/[emacs]/emacs/lisp/bindings.el
ViewVC logotype

Diff of /emacs/lisp/bindings.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.100.2.6 by miles, Tue Jul 6 10:10:46 2004 UTC revision 1.100.2.7 by miles, Sat Jul 17 02:51:54 2004 UTC
# Line 404  Menu of mode operations in the mode line Line 404  Menu of mode operations in the mode line
404  (define-key mode-line-mode-menu [highlight-changes-mode]  (define-key mode-line-mode-menu [highlight-changes-mode]
405    `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode    `(menu-item ,(purecopy "Highlight changes (Chg)") highlight-changes-mode
406                :button (:toggle . highlight-changes-mode)))                :button (:toggle . highlight-changes-mode)))
 (define-key mode-line-mode-menu [glasses-mode]  
   `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode  
               :button (:toggle . (bound-and-true-p glasses-mode))))  
407  (define-key mode-line-mode-menu [hide-ifdef-mode]  (define-key mode-line-mode-menu [hide-ifdef-mode]
408    `(menu-item ,(purecopy "Hide ifdef (Ifdef)") hide-ifdef-mode    `(menu-item ,(purecopy "Hide ifdef (Ifdef)") hide-ifdef-mode
409                :button (:toggle . (bound-and-true-p hide-ifdef-mode))))                :button (:toggle . (bound-and-true-p hide-ifdef-mode))))
410    (define-key mode-line-mode-menu [glasses-mode]
411      `(menu-item ,(purecopy "Glasses (o^o)") glasses-mode
412                  :button (:toggle . (bound-and-true-p glasses-mode))))
413  (define-key mode-line-mode-menu [font-lock-mode]  (define-key mode-line-mode-menu [font-lock-mode]
414    `(menu-item ,(purecopy "Font Lock") font-lock-mode    `(menu-item ,(purecopy "Font Lock") font-lock-mode
415                :button (:toggle . font-lock-mode)))                :button (:toggle . font-lock-mode)))
# Line 419  Menu of mode operations in the mode line Line 419  Menu of mode operations in the mode line
419  (define-key mode-line-mode-menu [column-number-mode]  (define-key mode-line-mode-menu [column-number-mode]
420    `(menu-item ,(purecopy "Column number") column-number-mode    `(menu-item ,(purecopy "Column number") column-number-mode
421                :button (:toggle . column-number-mode)))                :button (:toggle . column-number-mode)))
422  (define-key mode-line-mode-menu [auto-fill-mode]  (define-key mode-line-mode-menu [auto-revert-tail-mode]
423    `(menu-item ,(purecopy "Auto Fill (Fill)") auto-fill-mode    `(menu-item ,(purecopy "Auto revert tail (Tail)") auto-revert-tail-mode
424                :button (:toggle . auto-fill-function)))                :button (:toggle . auto-revert-tail-mode)))
425  (define-key mode-line-mode-menu [auto-revert-mode]  (define-key mode-line-mode-menu [auto-revert-mode]
426    `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode    `(menu-item ,(purecopy "Auto revert (ARev)") auto-revert-mode
427                :button (:toggle . auto-revert-mode)))                :button (:toggle . auto-revert-mode)))
428    (define-key mode-line-mode-menu [auto-fill-mode]
429      `(menu-item ,(purecopy "Auto fill (Fill)") auto-fill-mode
430                  :button (:toggle . auto-fill-function)))
431  (define-key mode-line-mode-menu [abbrev-mode]  (define-key mode-line-mode-menu [abbrev-mode]
432    `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode    `(menu-item ,(purecopy "Abbrev (Abbrev)") abbrev-mode
433                :button (:toggle . abbrev-mode)))                :button (:toggle . abbrev-mode)))

Legend:
Removed from v.1.100.2.6  
changed lines
  Added in v.1.100.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26