lpath.el: Fbind read-char-choice for XEmacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9af5af4..d993730 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-03-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       lpath.el: Fbind read-char-choice for XEmacs.
+
 2011-03-13  Teodor Zlatanov  <tzz@lifelogs.com>
 
        * auth-source.el (auth-source-netrc-create): Show the default in the

diff --git a/lisp/lpath.el b/lisp/lpath.el
index d03bc58..67ca6a6 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -65,12 +65,13 @@
      image-type-available-p insert-image libxml-parse-html-region
      mail-abbrevs-setup make-mode-line-mouse-map make-network-process
      mouse-minibuffer-check mouse-movement-p mouse-scroll-subr overlay-lists
-     pgg-display-output-buffer posn-point posn-window put-image read-event
-     recenter-top-bottom rmail-msg-restore-non-pruned-header
-     rmail-swap-buffers-maybe select-safe-coding-system shr-insert-document
-     sort-coding-systems track-mouse ucs-to-char url-generic-parse-url
-     url-insert-file-contents vcard-pretty-print w3-parse-buffer
-     w3m-detect-meta-charset w3m-region window-edges))
+     pgg-display-output-buffer posn-point posn-window put-image
+     read-char-choice read-event recenter-top-bottom
+     rmail-msg-restore-non-pruned-header rmail-swap-buffers-maybe
+     select-safe-coding-system shr-insert-document sort-coding-systems
+     track-mouse ucs-to-char url-generic-parse-url url-insert-file-contents
+     vcard-pretty-print w3-parse-buffer w3m-detect-meta-charset w3m-region
+     window-edges))
   (maybe-bind
    '(adaptive-fill-first-line-regexp
      buffer-display-table buffer-save-without-query completion-styles