Synch with Gnus.

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

diff --git a/lisp/lpath.el b/lisp/lpath.el
index e3baffc..6badb07 100644 (file)
--- a/lisp/lpath.el
+++ b/lisp/lpath.el
@@ -81,6 +81,7 @@
                 events-to-keys face-doc-string find-face frame-device
                 frame-property get-popup-menu-response glyph-height
                 glyph-property glyph-width glyphp make-annotation
+                make-event
                 make-color-instance make-extent make-glyph make-gui-button
                 make-image-specifier map-extents next-command-event
                 pp-to-string read-color set-extent-property
@@ -91,10 +92,12 @@
 
 ;; T-gnus.
 (if (featurep 'xemacs)
-    (maybe-bind '(mh-lib-progs))
+    (progn
+      (maybe-fbind '(propertize))
+      (maybe-bind '(mh-lib-progs)))
   ;; FSFmacs
   (maybe-fbind '(charsetp
-                font-lock-set-defaults function-max-args
+                font-lock-set-defaults function-max-args propertize
                 smiley-encode-buffer))
   (if (boundp 'MULE)
       (progn