Mercurial > emacs

comparison lisp/menu-bar.el @ 17696:a30300999b49

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-help-menu): Move "Customize" to the top.
author Richard M. Stallman <rms@gnu.org>
date Wed, 07 May 1997 20:54:04 +0000
parents b11021ca3525
children 720d1f98ae42
comparison
equal deleted inserted replaced
17695:5788aa5f0fd0 17696:a30300999b49
335 (define-key menu-bar-custom-menu [customize-variable] 335 (define-key menu-bar-custom-menu [customize-variable]
336 '("Specific Variable..." . customize-variable)) 336 '("Specific Variable..." . customize-variable))
337 (define-key menu-bar-custom-menu [customize] 337 (define-key menu-bar-custom-menu [customize]
338 '("Browse Hierarchy of User Options" . customize)) 338 '("Browse Hierarchy of User Options" . customize))
339 339
340 (define-key menu-bar-help-menu [customize-menu]
341 (cons "Customize" menu-bar-custom-menu))
342 (define-key menu-bar-help-menu [emacs-version] 340 (define-key menu-bar-help-menu [emacs-version]
343 '("Show Version" . emacs-version)) 341 '("Show Version" . emacs-version))
344 (define-key menu-bar-help-menu [report-emacs-bug] 342 (define-key menu-bar-help-menu [report-emacs-bug]
345 '("Send Bug Report..." . report-emacs-bug)) 343 '("Send Bug Report..." . report-emacs-bug))
346 (define-key menu-bar-help-menu [finder-by-keyword] 344 (define-key menu-bar-help-menu [finder-by-keyword]
362 (define-key menu-bar-help-menu [describe-mode] 360 (define-key menu-bar-help-menu [describe-mode]
363 '("Describe Mode" . describe-mode)) 361 '("Describe Mode" . describe-mode))
364 (define-key menu-bar-help-menu [info] '("Browse Manuals" . info)) 362 (define-key menu-bar-help-menu [info] '("Browse Manuals" . info))
365 (define-key menu-bar-help-menu [emacs-faq] '("Emacs FAQ" . view-emacs-FAQ)) 363 (define-key menu-bar-help-menu [emacs-faq] '("Emacs FAQ" . view-emacs-FAQ))
366 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news)) 364 (define-key menu-bar-help-menu [emacs-news] '("Emacs News" . view-emacs-news))
365 (define-key menu-bar-help-menu [customize-menu]
366 (cons "Customize" menu-bar-custom-menu))
367 367
368 (defun kill-this-buffer () ; for the menubar 368 (defun kill-this-buffer () ; for the menubar
369 "Kills the current buffer." 369 "Kills the current buffer."
370 (interactive) 370 (interactive)
371 (kill-buffer (current-buffer))) 371 (kill-buffer (current-buffer)))