/[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.192 by pj, Tue Jan 29 13:55:02 2002 UTC revision 1.193 by pj, Tue Jan 29 14:17:26 2002 UTC
# Line 484  Do the same for the keys of the same nam Line 484  Do the same for the keys of the same nam
484    
485  ;; The "Options" menu items  ;; The "Options" menu items
486    
 ;; The "Show/Hide" submenu of menu "Options"  
   
 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))  
 (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))  
   
 (defun menu-bar-scroll-bar-right ()  
   "Turn on the scroll-bar on the right side."  
   (interactive)  
   (set-scroll-bar-mode 'right))  
   
 (defun menu-bar-scroll-bar-left ()  
   "Turn on the scroll-bar on the left side."  
   (interactive)  
   (set-scroll-bar-mode 'left))  
   
 (defun menu-bar-scroll-bar-none ()  
   "Turn off the scroll-bar."  
   (interactive)  
   (set-scroll-bar-mode nil))  
   
 (define-key menu-bar-showhide-scroll-bar-menu [right]  
   '(menu-item "On the Right" menu-bar-scroll-bar-right  
               :help "Scroll-bar on the right side"  
               :visible window-system  
               :button (:radio . (eq scroll-bar-mode 'right))))  
   
 (define-key menu-bar-showhide-scroll-bar-menu [left]  
   '(menu-item "On the Left" menu-bar-scroll-bar-left  
               :help "Scroll-bar on the left side"  
               :visible window-system  
               :button (:radio . (eq scroll-bar-mode 'left))))  
   
 (define-key menu-bar-showhide-scroll-bar-menu [none]  
   '(menu-item "None" menu-bar-scroll-bar-none  
               :help "Turn off scroll-bar"  
               :visible window-system  
               :button (:radio . (eq scroll-bar-mode nil))))  
   
 (define-key menu-bar-showhide-menu [showhide-scroll-bar]  
   (list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu  
         :visible 'window-system  
         :help "Select scroll-bar mode"))  
   
 (defun showhide-menu-bar ()  
   "Toggle whether to turn menu-bar on/off."  
   (interactive)  
   (if (menu-bar-mode)  
       (message "Menu-bar mode enabled.")  
     (message "Menu-bar mode disabled.  Use M-x menu-bar-mode to make the menu bar appear.")))  
   
 (define-key menu-bar-showhide-menu [showhide-menu-bar]  
   '(menu-item "Menu-bar" showhide-menu-bar  
               :help "Toggle menu-bar on/off"  
               :button (:toggle . menu-bar-mode)))  
   
 (defun showhide-tool-bar ()  
   "Toggle whether to turn tool-bar on/off."  
   (interactive)  
   (if (tool-bar-mode)  
       (message "Tool-bar mode enabled.")  
     (message "Tool-bar mode disabled.")))  
   
 (define-key menu-bar-showhide-menu [showhide-tool-bar]  
   '(menu-item "Tool-bar" showhide-tool-bar  
               :help "Turn tool-bar on/off"  
               :visible window-system  
               :button (:toggle . tool-bar-mode)))  
   
 (define-key menu-bar-options-menu [showhide]  
   (list 'menu-item "Show/Hide" menu-bar-showhide-menu  
         :help "Toggle on/off various display features"))  
   
 (define-key menu-bar-options-menu [showhide-separator]  
   '("--"))  
   
   
487  (defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))  (defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
488    
489  (define-key menu-bar-custom-menu [customize-apropos-groups]  (define-key menu-bar-custom-menu [customize-apropos-groups]
# Line 624  Do the same for the keys of the same nam Line 548  Do the same for the keys of the same nam
548    (dolist (elt '(debug-on-quit debug-on-error auto-compression-mode    (dolist (elt '(debug-on-quit debug-on-error auto-compression-mode
549                   case-fold-search truncate-lines show-paren-mode                   case-fold-search truncate-lines show-paren-mode
550                   transient-mark-mode global-font-lock-mode                   transient-mark-mode global-font-lock-mode
551                   current-language-environment default-input-method))                   current-language-environment default-input-method
552                     default-frame-alist))
553      (if (default-value elt)      (if (default-value elt)
554          (customize-save-variable elt (default-value elt))))          (customize-save-variable elt (default-value elt))))
555    (if (memq 'turn-on-auto-fill text-mode-hook)    (if (memq 'turn-on-auto-fill text-mode-hook)
# Line 643  Do the same for the keys of the same nam Line 568  Do the same for the keys of the same nam
568  (define-key menu-bar-options-menu [custom-separator]  (define-key menu-bar-options-menu [custom-separator]
569    '("--"))    '("--"))
570    
571    ;; The "Show/Hide" submenu of menu "Options"
572    
573    (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide"))
574    (defvar menu-bar-showhide-scroll-bar-menu (make-sparse-keymap "Scroll-bar"))
575    
576    (defun menu-bar-scroll-bar-right ()
577      "Turn on the scroll-bar on the right side."
578      (interactive)
579      (set-scroll-bar-mode 'right))
580    
581    (defun menu-bar-scroll-bar-left ()
582      "Turn on the scroll-bar on the left side."
583      (interactive)
584      (set-scroll-bar-mode 'left))
585    
586    (defun menu-bar-scroll-bar-none ()
587      "Turn off the scroll-bar."
588      (interactive)
589      (set-scroll-bar-mode nil))
590    
591    (define-key menu-bar-showhide-scroll-bar-menu [right]
592      '(menu-item "On the Right" menu-bar-scroll-bar-right
593                  :help "Scroll-bar on the right side"
594                  :visible window-system
595                  :button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'right))))
596    
597    (define-key menu-bar-showhide-scroll-bar-menu [left]
598      '(menu-item "On the Left" menu-bar-scroll-bar-left
599                  :help "Scroll-bar on the left side"
600                  :visible window-system
601                  :button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) 'left))))
602    
603    (define-key menu-bar-showhide-scroll-bar-menu [none]
604      '(menu-item "None" menu-bar-scroll-bar-none
605                  :help "Turn off scroll-bar"
606                  :visible window-system
607                  :button (:radio . (eq (cdr (assq 'vertical-scroll-bars (frame-parameters))) nil))))
608    
609    (define-key menu-bar-showhide-menu [showhide-scroll-bar]
610      (list 'menu-item "Scroll-Bar" menu-bar-showhide-scroll-bar-menu
611            :visible 'window-system
612            :help "Select scroll-bar mode"))
613    
614    (defun showhide-menu-bar ()
615      "Toggle whether to turn menu-bar on/off."
616      (interactive)
617      (menu-bar-mode)
618      (if menu-bar-mode
619          (message "Menu-bar mode enabled.")
620        (message "Menu-bar mode disabled.  Use M-x menu-bar-mode to make the menu bar appear.")))
621    
622    (define-key menu-bar-showhide-menu [showhide-menu-bar]
623      '(menu-item "Menu-bar" showhide-menu-bar
624                  :help "Toggle menu-bar on/off"
625                  :button (:toggle . menu-bar-mode)))
626    
627    (defun showhide-tool-bar ()
628      "Toggle whether to turn tool-bar on/off."
629      (interactive)
630      (if (tool-bar-mode)
631          (message "Tool-bar mode enabled.")
632        (message "Tool-bar mode disabled.")))
633    
634    (define-key menu-bar-showhide-menu [showhide-tool-bar]
635      '(menu-item "Tool-bar" showhide-tool-bar
636                  :help "Turn tool-bar on/off"
637                  :visible window-system
638                  :button (:toggle . tool-bar-mode)))
639    
640    (define-key menu-bar-options-menu [showhide]
641      (list 'menu-item "Show/Hide" menu-bar-showhide-menu
642            :help "Toggle on/off various display features"))
643    
644    (define-key menu-bar-options-menu [showhide-separator]
645      '("--"))
646    
647  (define-key menu-bar-options-menu [mule]  (define-key menu-bar-options-menu [mule]
648    ;; It is better not to use backquote here,    ;; It is better not to use backquote here,
649    ;; because that makes a bootstrapping problem    ;; because that makes a bootstrapping problem

Legend:
Removed from v.1.192  
changed lines
  Added in v.1.193

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