Synch to No Gnus 200601190601.

[elisp/gnus.git-] / lisp / lpath.el

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 1f49e5b..ce638a3 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -28,14 +28,14 @@
 
 (if (featurep 'xemacs)
     (progn
-      (maybe-fbind '(delete-overlay
-                    detect-coding-string eudc-expand-inline event-click-count
-                    event-end event-start find-coding-systems-for-charsets
+      (maybe-fbind '(codepage-setup
+                    delete-overlay detect-coding-string eudc-expand-inline
+                    event-click-count event-end event-start
+                    find-coding-systems-for-charsets
                     find-coding-systems-region find-coding-systems-string
-                    mail-abbrevs-setup mouse-minibuffer-check
-                    mouse-movement-p mouse-scroll-subr overlay-lists
-                    posn-point posn-window read-event set-buffer-multibyte
-                    track-mouse window-edges))
+                    mail-abbrevs-setup mouse-minibuffer-check mouse-movement-p
+                    mouse-scroll-subr overlay-lists posn-point posn-window
+                    read-event set-buffer-multibyte track-mouse window-edges))
       (maybe-bind '(adaptive-fill-first-line-regexp
                    buffer-display-table buffer-file-coding-system
                    current-language-environment
@@ -56,7 +56,8 @@
                 w3-prepare-buffer w3-region window-pixel-height
                 window-pixel-width))
   (maybe-bind '(help-echo-owns-message mail-mode-hook mm-w3m-mode-map
-                                      show-nonbreak-escape)))
+                                      show-nonbreak-escape
+                                      nobreak-char-display)))
 
 (when (and (featurep 'xemacs)
           (not (featurep 'mule)))