lpath.el: Bind completion-styles for Emacs 21 and XEmacs; bind header-line-format...

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 05c6643..7f7a21a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2010-08-31  Katsumi Yamaoka  <yamaoka@jpl.org>
 
+       * lpath.el: Bind completion-styles for Emacs 21 and XEmacs; bind
+       header-line-format for XEmacs 21.4.
+
        * gnus-sum.el (gnus-summary-stop-at-end-of-message)
        * gnus.el (gnus-valid-select-methods)
        * message.el (message-send-mail-partially-limit)

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 0b5ec3d..20e1d14 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -56,9 +56,10 @@
        vcard-pretty-print w3-coding-system-for-mime-charset window-pixel-height
        window-pixel-width))
     (maybe-bind
-     '(eudc-protocol
-       filladapt-mode help-echo-owns-message itimer-list ps-print-color-p
-       smtpmail-default-smtp-server w3-meta-charset-content-type-regexp
+     '(completion-styles
+       eudc-protocol filladapt-mode help-echo-owns-message itimer-list
+       ps-print-color-p smtpmail-default-smtp-server
+       w3-meta-charset-content-type-regexp
        w3-meta-content-type-charset-regexp))))
 
 (when (featurep 'xemacs)