X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Flpath.el;h=ce638a30e2b79d26e5c4c259c11ee37cadf932d7;hb=85be3726901ca453647897e26330fee8aa25d8c0;hp=1f49e5b6588eb780cb3128293daf82ed67c4c778;hpb=a1d6051d72c3658f0e714599bc9b5350eed426df;p=elisp%2Fgnus.git-

diff --git a/lisp/lpath.el b/lisp/lpath.el
index 1f49e5b..ce638a3 100644
--- 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)))