Mercurial > hg > xemacs-beta
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))