Synch up with the trunk.
authorueno <ueno>
Fri, 27 Sep 2002 07:08:21 +0000 (07:08 +0000)
committerueno <ueno>
Fri, 27 Sep 2002 07:08:21 +0000 (07:08 +0000)
12 files changed:
.cvsignore
INSTALL
etc/.cvsignore
etc/Makefile.am
etc/sample.dot.emacs.in [deleted file]
lisp/.cvsignore
lisp/ChangeLog
lisp/liece-coding.el
lisp/liece-ctcp.el
lisp/liece-minibuf.el
lisp/liece-misc.el
lisp/liece-modules.el

index 2056dde..c89a4cb 100644 (file)
@@ -8,4 +8,3 @@ configure
 config.log
 config.status
 config.cache
-sample.dot.emacs
diff --git a/INSTALL b/INSTALL
index 05f7798..390d4f6 100644 (file)
--- a/INSTALL
+++ b/INSTALL
@@ -8,14 +8,12 @@
   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
 
index 3dda729..19b9bcf 100644 (file)
@@ -1,2 +1,3 @@
 Makefile.in
 Makefile
+gnu-emacs-user-config
index ffb7083..5270e87 100644 (file)
@@ -1,10 +1,11 @@
 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
diff --git a/etc/sample.dot.emacs.in b/etc/sample.dot.emacs.in
deleted file mode 100644 (file)
index bb3872e..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-;;; -*- emacs-lisp -*-
-
-(setq liece-intl-catalogue-directory "@pkgdatadir@/locale"
-      liece-window-style-directory "@pkgdatadir@/styles"
-      liece-icon-directory "@pkgdatadir@/icons")
index 2c31d3a..c332026 100644 (file)
@@ -1,2 +1,3 @@
 Makefile.in
+Makefile
 liece-setup.el
index 5f8bfc9..6b7038e 100644 (file)
@@ -1,3 +1,8 @@
+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;
index 2670cf6..76b5970 100644 (file)
@@ -41,7 +41,7 @@
   :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."
@@ -49,7 +49,7 @@
   :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."
index 63db6ab..61fe151 100644 (file)
 
 (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)
 
index e5b0250..e4cb5a7 100644 (file)
     (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'.
@@ -225,7 +230,7 @@ PROMPT, TABLE, PREDICATE, REQUIRE-MATCH, INITIAL-INPUT, HISTORY, DEFAULT."
       (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)))))
index de2de52..cf2f3e1 100644 (file)
@@ -30,8 +30,6 @@
 ;;; Code:
 
 (eval-and-compile
-  (require 'broken)
-  (require 'pccl)
   (require 'invisible)
   (require 'liece-inlines)
   (require 'liece-coding))
index a41cd08..0f9940d 100644 (file)
@@ -71,9 +71,9 @@
 (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))