Mercurial > emacs

comparison lisp/menu-bar.el @ 12558:98c9ac60aa20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-help-menu): Add finder-by-keyword.
author Karl Heuer <kwzh@gnu.org>
date Mon, 17 Jul 1995 22:51:17 +0000
parents 2f548b1c066e
children dd342be41ef7
comparison
equal deleted inserted replaced
12557:34e9427fe8f5 12558:98c9ac60aa20
18 ;; GNU General Public License for more details. 18 ;; GNU General Public License for more details.
19 19
20 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to
22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
23
24 ;; Avishai Yacobi suggested some menu rearrangements.
23 25
24 ;;; Code: 26 ;;; Code:
25 27
26 ;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key 28 ;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
27 ;; definitions made in loaddefs.el. 29 ;; definitions made in loaddefs.el.
300 302
301 (define-key menu-bar-help-menu [emacs-version] 303 (define-key menu-bar-help-menu [emacs-version]
302 '("Show Version" . emacs-version)) 304 '("Show Version" . emacs-version))
303 (define-key menu-bar-help-menu [report-emacs-bug] 305 (define-key menu-bar-help-menu [report-emacs-bug]
304 '("Send Bug Report..." . report-emacs-bug)) 306 '("Send Bug Report..." . report-emacs-bug))
307 (define-key menu-bar-help-menu [finder-by-keyword]
308 '("Find Lisp Packages..." . finder-by-keyword))
305 (define-key menu-bar-help-menu [emacs-tutorial] 309 (define-key menu-bar-help-menu [emacs-tutorial]
306 '("Emacs Tutorial" . help-with-tutorial)) 310 '("Emacs Tutorial" . help-with-tutorial))
307 (define-key menu-bar-help-menu [man] '("Man..." . manual-entry)) 311 (define-key menu-bar-help-menu [man]
312 '("Man..." . manual-entry))
308 (define-key menu-bar-help-menu [describe-variable] 313 (define-key menu-bar-help-menu [describe-variable]
309 '("Describe Variable..." . describe-variable)) 314 '("Describe Variable..." . describe-variable))
310 (define-key menu-bar-help-menu [describe-function] 315 (define-key menu-bar-help-menu [describe-function]
311 '("Describe Function..." . describe-function)) 316 '("Describe Function..." . describe-function))
312 (define-key menu-bar-help-menu [describe-key] 317 (define-key menu-bar-help-menu [describe-key]