Mercurial > emacs

comparison lisp/menu-bar.el @ 31461:c613942bdf43

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(menu-bar-options-menu): Fix the font-lock toggle.
author Dave Love <fx@gnu.org>
date Thu, 07 Sep 2000 13:50:53 +0000
parents 16a6f51eb602
children 84f6fc78ec6d
comparison
equal deleted inserted replaced
31460:30806f88340f 31461:c613942bdf43
2 2
3 ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994, 1995, 2000 Free Software Foundation, Inc.
4 4
5 ;; Author: RMS 5 ;; Author: RMS
6 ;; Maintainer: FSF 6 ;; Maintainer: FSF
7 ;; Keywords: internal 7 ;; Keywords: internal, mouse
8 8
9 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
10 10
11 ;; GNU Emacs is free software; you can redistribute it and/or modify 11 ;; GNU Emacs is free software; you can redistribute it and/or modify
12 ;; it under the terms of the GNU General Public License as published by 12 ;; it under the terms of the GNU General Public License as published by
632 (define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode] 632 (define-key menu-bar-options-menu [toggle-global-lazy-font-lock-mode]
633 (menu-bar-make-toggle toggle-global-lazy-font-lock-mode global-font-lock-mode 633 (menu-bar-make-toggle toggle-global-lazy-font-lock-mode global-font-lock-mode
634 "Highlight Syntax (Global Font Lock)" 634 "Highlight Syntax (Global Font Lock)"
635 "Syntax Highlighting %s" 635 "Syntax Highlighting %s"
636 "Highlights text based on language syntax" 636 "Highlights text based on language syntax"
637 global-font-lock-mode)) 637 (global-font-lock-mode)))
638 638
639 639
640 ;; The "Tools" menu items 640 ;; The "Tools" menu items
641 641
642 (defvar menu-bar-games-menu (make-sparse-keymap "Games")) 642 (defvar menu-bar-games-menu (make-sparse-keymap "Games"))
853 '("--")) 853 '("--"))
854 (define-key menu-bar-help-menu [report-emacs-bug] 854 (define-key menu-bar-help-menu [report-emacs-bug]
855 '(menu-item "Send Bug Report..." report-emacs-bug 855 '(menu-item "Send Bug Report..." report-emacs-bug
856 :help "Send e-mail to Emacs maintainers")) 856 :help "Send e-mail to Emacs maintainers"))
857 (define-key menu-bar-help-menu [emacs-manual] 857 (define-key menu-bar-help-menu [emacs-manual]
858 '(menu-item "Read the Emacs manual" 858 '(menu-item "Read the Emacs Manual"
859 (lambda () (interactive) (info "emacs")))) 859 (lambda () (interactive) (info "emacs"))))
860 (define-key menu-bar-help-menu [emacs-problems] 860 (define-key menu-bar-help-menu [emacs-problems]
861 '(menu-item "Emacs Known Problems" view-emacs-problems)) 861 '(menu-item "Emacs Known Problems" view-emacs-problems))
862 (define-key menu-bar-help-menu [emacs-news] 862 (define-key menu-bar-help-menu [emacs-news]
863 '(menu-item "Emacs News" view-emacs-news 863 '(menu-item "Emacs News" view-emacs-news