config.log
config.status
config.cache
-sample.dot.emacs
Liece works under following environment at least.
- Emacs 20.7
- - XEmacs 21.4 or later
+ - XEmacs 21.1 or later
This package uses following libraries.
- APEL 10.2 or later (stands for - "A Portable Emacs Library")
ftp://ftp.m17n.org/pub/mule/apel/
- - FLIM 1.12 or later
- ftp://ftp.m17n.org/pub/mule/flim/
* Quick installation
** Setting up your ~/.emacs
- If you are using Emacs or Mule, please add directory of APEL and
- Liece to load-path. If you install by default setting you can write
- subdirs.el for example:
-
- ex:
- (normal-top-level-add-to-load-path '("apel" "liece"))
-
- If you are using Emacs 20.3 or XEmacs, prepare `subdirs.el' with
- following contents, Emacs will find and append each substantial
- directory to `load-path' automagically.
+ If you are using Emacs 20.7, prepare `subdirs.el' with following
+ contents, Emacs will find and append each substantial directory to
+ `load-path' automagically.
ex:
(normal-top-level-add-subdirs-to-load-path)
- If you are using Emacs 19 or earlier version of Emacsen,
- you have to write more complicated path-setting in your `~/.emacs'.
-
- ex:
- (setq load-path
- (append
- (list "/usr/local/lib/mule/site-lisp/apel"
- "/usr/local/lib/mule/site-lisp/liece")
- load-path))
-
- For more details, please read `README' file come along with APEL.
-
If you have never been using liece and/or its variants,
add an autoload setting into your `~/.emacs'.
ex:
(autoload 'liece "liece" nil t)
-** Setting up your ~/.liece
-
- If you have never run Liece, and quite unsure to configure startup
- files in Emacs Lisp, please copy `sample.dot.liece' file in `doc'
- directory to `~/.liece'.
-
- Please read ducuments under `doc' directory.
- (`README-styles' to configure window splitting)
+ If you are using Emacs 20.7 and have never run Liece, run
+ `etc/gnu-emacs-user-config' to prepare initial settings.
* Optional packages
Makefile.in
Makefile
+gnu-emacs-user-config
SUBDIRS = icons po styles
-EXTRA_DIST = sample.dot.emacs.in
-DISTCLEANFILES = sample.dot.emacs
-pkgdata_DATA = sample.dot.emacs
-sample.dot.emacs: sample.dot.emacs.in
- sed -e 's!@pkgdatadir@!$(pkgdatadir)!g' $< > $@
+EXTRA_DIST = gnu-emacs-user-config.in
+DISTCLEANFILES = gnu-emacs-user-config
+pkgdata_DATA = gnu-emacs-user-config
+gnu-emacs-user-config: gnu-emacs-user-config.in
+ sed 's!@pkgdatadir@!$(pkgdatadir)!g' $< > $@
+ chmod +x $@
package:
install-package: package
+++ /dev/null
-;;; -*- emacs-lisp -*-
-
-(setq liece-intl-catalogue-directory "@pkgdatadir@/locale"
- liece-window-style-directory "@pkgdatadir@/styles"
- liece-icon-directory "@pkgdatadir@/icons")
Makefile.in
+Makefile
liece-setup.el
+2002-09-26 Daiki Ueno <ueno@unixuser.org>
+
+ * liece-minibuf.el (liece-minibuf-completing-read): Don't use the
+ 7th argument of completing-read.
+
2002-09-24 Daiki Ueno <ueno@unixuser.org>
* liece-handle.el (liece-handle-mode-message): Check chnlp before
* liece-ctcp.el: Don't throw an error when liece-q-ccl is not found.
+2002-04-08 Daiki Ueno <daiki@xemacs.org>
+
+ * liece-misc.el: Don't require pccl and broken.
+
+2002-04-07 Daiki Ueno <daiki@xemacs.org>
+
+ * liece-modules.el: Don't compile liece-q-ccl.el.
+ * liece-ctcp.el: Don't require liece-q-ccl.el.
+
+2002-03-24 Daiki Ueno <daiki@xemacs.org>
+
+ * liece-coding.el (liece-mime-charset-for-write): Use
+ `mime-charset-to-coding-system' instead of `mime-charset-p'.
+ (liece-mime-charset-for-read): Ditto.
+
2002-03-20 Daiki Ueno <ueno@unixuser.org>
* gettext.el (bind-text-domain): Respect LC_ALL and LC_MESSAGES;
:group 'liece)
(defcustom liece-mime-charset-for-write
- (if (mime-charset-p 'iso-2022-jp-2)
+ (if (mime-charset-to-coding-system 'iso-2022-jp-2)
'iso-2022-jp-2
default-mime-charset-for-write)
"Charset used in any transferred messages."
:group 'liece-coding)
(defcustom liece-mime-charset-for-read
- (if (mime-charset-p 'x-ctext)
+ (if (mime-charset-to-coding-system 'x-ctext)
'x-ctext
default-mime-charset)
"Charset used in any transferred messages."
(require 'liece-handler)
-(require 'pccl)
-
-(eval-and-compile
- (or (broken-p 'ccl-usable) (require 'liece-q-ccl nil 'noerror)
- (require 'liece-q-el)))
+;; (require 'pccl)
+
+;; (if-broken ccl-usable
+;; (require 'liece-q-el)
+;; (require 'liece-q-ccl))
+(require 'liece-q-el)
(require 'liece-x-face)
(mapconcat (function car) liece-supported-user-mode-alist ""))))
(defun liece-minibuffer-completing-read
- (prompt table &optional predicate require-match initial-input history default)
- (completing-read
- (if default
- (format "%s(default %s) " prompt default)
- prompt)
- table predicate require-match initial-input history default))
+ (prompt table &optional predicate require-match initial-input history
+ default)
+ (let ((result
+ (completing-read
+ (if default
+ (format "%s(default %s) " prompt default)
+ prompt)
+ table predicate require-match initial-input history)))
+ (if (and default (equal result ""))
+ default
+ result)))
(defvar liece-minibuffer-completion-separator ","
"Separator used for separating strings in `liece-minibuffer-completing-read-multiple'.
(let ((liece-minibuffer-completion-table
table))
(split-string
- (completing-read
+ (liece-minibuffer-completing-read
prompt #'liece-minibuffer-completing-read-multiple-1
predicate require-match initial-input history default)
liece-minibuffer-completion-separator)))))
;;; Code:
(eval-and-compile
- (require 'broken)
- (require 'pccl)
(require 'invisible)
(require 'liece-inlines)
(require 'liece-coding))
(if (fboundp 'set-face-stipple)
(push 'bitmap-stipple liece-modules-to-compile))
-(require 'pccl)
-(unless-broken ccl-usable
- (push 'liece-q-ccl liece-modules-to-compile))
+;; (require 'pccl)
+;; (unless-broken ccl-usable
+;; (push 'liece-q-ccl liece-modules-to-compile))
(setq liece-modules (cons 'liece-setup liece-modules-to-compile))