/[emacs]/emacs/lisp/menu-bar.el
ViewVC logotype

Diff of /emacs/lisp/menu-bar.el

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

revision 1.195 by abraham, Thu Feb 7 17:32:18 2002 UTC revision 1.196 by pj, Sat Feb 9 13:56:42 2002 UTC
# Line 550  Do the same for the keys of the same nam Line 550  Do the same for the keys of the same nam
550                     case-fold-search truncate-lines show-paren-mode                     case-fold-search truncate-lines show-paren-mode
551                     transient-mark-mode global-font-lock-mode                     transient-mark-mode global-font-lock-mode
552                     current-language-environment default-input-method                     current-language-environment default-input-method
553                     default-frame-alist display-time-mode))                     default-frame-alist display-time-mode
554                       line-number-mode column-number-mode))
555        (when (customize-mark-to-save elt)        (when (customize-mark-to-save elt)
556          (setq need-save t)))          (setq need-save t)))
557      ;; We only want to save text-mode-hook after adding or removing auto fill.      ;; We only want to save text-mode-hook after adding or removing auto fill.
# Line 563  Do the same for the keys of the same nam Line 564  Do the same for the keys of the same nam
564      (and (featurep 'saveplace)      (and (featurep 'saveplace)
565           (customize-mark-to-save 'save-place)           (customize-mark-to-save 'save-place)
566           (setq need-save t))           (setq need-save t))
567      (and(featurep 'uniquify)      (and (featurep 'uniquify)
568          (customize-mark-to-save 'uniquify-buffer-name-style)           (customize-mark-to-save 'uniquify-buffer-name-style)
569          (setq need-save t))           (setq need-save t))
570      ;; Save if we changed anything.      ;; Save if we changed anything.
571      (when need-save      (when need-save
572        (custom-save-all))))        (custom-save-all))))
# Line 581  Do the same for the keys of the same nam Line 582  Do the same for the keys of the same nam
582    
583  (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))  (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
584    
585    (define-key menu-bar-showhide-menu [column-number-mode]
586      (menu-bar-make-toggle column-number-mode column-number-mode
587                            "Show Column Number" "Column number mode %s"
588                            "Show the current column number in the mode-line"))
589    
590    (define-key menu-bar-showhide-menu [line-number-mode]
591      (menu-bar-make-toggle line-number-mode line-number-mode
592                            "Show Line Number" "Line number mode %s"
593                            "Show the current line number in the mode-line"))
594    
595    (define-key menu-bar-showhide-menu [linecolumn-separator]
596      '("--"))
597    
598  (defun showhide-date-time ()  (defun showhide-date-time ()
599    "Toggle whether to show date and time in the mode-line."    "Toggle whether to show date and time in the mode-line."
600    (interactive)    (interactive)

Legend:
Removed from v.1.195  
changed lines
  Added in v.1.196

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