Mercurial > hg > xemacs-beta

comparison lisp/utils/edit-toolbar.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents 3d6bfa290dbd
children
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
189 189
190 Editing commands: 190 Editing commands:
191 191
192 \\{edit-toolbar-map}" 192 \\{edit-toolbar-map}"
193 (setq mode-popup-menu edit-toolbar-menu) 193 (setq mode-popup-menu edit-toolbar-menu)
194 (if current-menubar 194 (if (and (featurep 'menubar))
195 current-menubar
195 (progn 196 (progn
196 (set (make-local-variable 'current-menubar) 197 (set (make-local-variable 'current-menubar)
197 (copy-sequence current-menubar)) 198 (copy-sequence current-menubar))
198 (add-submenu nil edit-toolbar-menu))) 199 (add-submenu nil edit-toolbar-menu)))
199 (use-local-map edit-toolbar-map) 200 (use-local-map edit-toolbar-map)