Changes committed gnus/lisp (ChangeLog lpath.el)

Modified: ChangeLog lpath.el

Always bind default-file-name-coding-system for (S)XEmacs.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2041 gnus/lisp/ChangeLog:7.2042
--- ChangeLog:7.2041	Wed Dec  2 12:50:30 2009
+++ ChangeLog	Wed Dec  2 13:10:00 2009
@@ -1,3 +1,7 @@
+2009-12-02  Katsumi Yamaoka  <[email protected]>
+
+	* lpath.el: Always bind default-file-name-coding-system for (S)XEmacs.
+
 2009-12-02  Stefan Monnier  <[email protected]>
 
 	* message.el (message-completion-in-region): New compatibility function.
Index: lpath.el
diff -u gnus/lisp/lpath.el:7.56 gnus/lisp/lpath.el:7.57
--- lpath.el:7.56	Mon Nov 30 10:36:17 2009
+++ lpath.el	Wed Dec  2 13:10:00 2009
@@ -72,8 +72,8 @@
   (maybe-bind
    '(adaptive-fill-first-line-regexp
      buffer-display-table cursor-in-non-selected-windows
-     default-enable-multibyte-characters eudc-protocol
-     filladapt-mode gnus-agent-expire-current-dirs
+     default-enable-multibyte-characters default-file-name-coding-system
+     eudc-protocol filladapt-mode gnus-agent-expire-current-dirs
      help-xref-stack-item idna-program installation-directory
      line-spacing mark-active mouse-selection-click-count
      mouse-selection-click-count-buffer ps-print-color-p rmail-default-file
@@ -91,7 +91,7 @@
        select-frame-set-input-focus unicode-precedence-list unicode-to-char
        w32-focus-frame x-focus-frame))
     (maybe-bind
-     '(default-file-name-coding-system scroll-margin)))
+     '(scroll-margin)))
 
   (when (and (= emacs-major-version 21) (= emacs-minor-version 4))
     (maybe-fbind
@@ -105,7 +105,7 @@
        unicode-precedence-list))
     (maybe-bind
      '(current-language-environment
-       default-file-name-coding-system language-info-alist pgg-parse-crc24)))
+       language-info-alist pgg-parse-crc24)))
 
   (unless (featurep 'file-coding)
     (maybe-fbind