Mercurial > emacs

comparison lisp/menu-bar.el @ 18601:97ffde6d7770

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New command names.
author Per Abrahamsen <abraham@dina.kvl.dk>
date Fri, 04 Jul 1997 13:24:25 +0000
parents fade5fd2fab4
children 9b34ca7eb8ef
comparison
equal deleted inserted replaced
18600:d95acbbb4ac7 18601:97ffde6d7770
333 333
334 ;;; Menu support 334 ;;; Menu support
335 335
336 (defvar menu-bar-custom-menu (make-sparse-keymap "Customize")) 336 (defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
337 337
338 (define-key menu-bar-custom-menu [custom-menu-update] 338 (define-key menu-bar-custom-menu [Custom-menu-update]
339 '("Update This Menu" . custom-menu-update)) 339 '("Update This Menu" . custom-menu-update))
340 (define-key menu-bar-custom-menu [customize-apropos] 340 (define-key menu-bar-custom-menu [customize-apropos]
341 '("Apropos..." . customize-apropos)) 341 '("Apropos..." . customize-apropos))
342 (define-key menu-bar-custom-menu [customize-group] 342 (define-key menu-bar-custom-menu [customize-group]
343 '("Specific Group..." . customize-group)) 343 '("Specific Group..." . customize-group))
344 (define-key menu-bar-custom-menu [customize-face] 344 (define-key menu-bar-custom-menu [customize-face]
345 '("Specific Face..." . customize-face)) 345 '("Specific Face..." . customize-face))
346 (define-key menu-bar-custom-menu [customize-variable] 346 (define-key menu-bar-custom-menu [customize-variable]
347 '("Specific Variable..." . customize-variable)) 347 '("Specific Variable..." . customize-variable))
348 (define-key menu-bar-custom-menu [customize] 348 (define-key menu-bar-custom-menu [customize]
349 '("Browse Hierarchy of User Options" . customize)) 349 '("Browse Hierarchy of User Options" . customize-browse))
350 350
351 (define-key menu-bar-help-menu [emacs-version] 351 (define-key menu-bar-help-menu [emacs-version]
352 '("Show Version" . emacs-version)) 352 '("Show Version" . emacs-version))
353 (define-key menu-bar-help-menu [report-emacs-bug] 353 (define-key menu-bar-help-menu [report-emacs-bug]
354 '("Send Bug Report..." . report-emacs-bug)) 354 '("Send Bug Report..." . report-emacs-bug))