diff lisp/modes/view-process-xemacs.el @ 209:41ff10fd062f r20-4b3

Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents 5a88923fcbfe
children
line wrap: on
line diff
--- a/lisp/modes/view-process-xemacs.el	Mon Aug 13 10:03:54 2007 +0200
+++ b/lisp/modes/view-process-xemacs.el	Mon Aug 13 10:04:58 2007 +0200
@@ -315,7 +315,8 @@
 
 (defun View-process-install-pulldown-menu ()
   "Installs a pulldown menu for the `View-process-mode'."
-  (if (and current-menubar 
+  (if (and (featurep 'menubar)
+	   current-menubar 
 	   (not (assoc View-process-pulldown-menu-name current-menubar)))
       (progn
 	(set-buffer-menubar (copy-sequence current-menubar))