Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-menu.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 859a2309aef8
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
839 ;; Poorly. 839 ;; Poorly.
840 ;;(define-key vm-mail-mode-map [menu-bar mail] 840 ;;(define-key vm-mail-mode-map [menu-bar mail]
841 ;; (cons "Mail" vm-menu-fsfemacs-mail-menu)) 841 ;; (cons "Mail" vm-menu-fsfemacs-mail-menu))
842 (if vm-popup-menu-on-mouse-3 842 (if vm-popup-menu-on-mouse-3
843 (define-key vm-mail-mode-map [down-mouse-3] 843 (define-key vm-mail-mode-map [down-mouse-3]
844 'vm-menu-popup-mode-menu))))) 844 'vm-menu-popup-mode-menu))
845 ;; replace some FSF Emacs menubar menu commands so the
846 ;; user gets the VM version. Catch errors; we don't
847 ;; care enough about this to make VM crash if the
848 ;; menubar entry names change.
849 (condition-case nil
850 (progn
851 (define-key vm-mail-mode-map [menubar mail send]
852 'vm-mail-send-and-exit)
853 (define-key vm-mail-mode-map [menubar mail send-stay]
854 'vm-mail-send))
855 (error nil)))))
845 856
846 (defun vm-menu-install-menus () 857 (defun vm-menu-install-menus ()
847 (cond ((consp vm-use-menus) 858 (cond ((consp vm-use-menus)
848 (vm-menu-install-vm-mode-menu) 859 (vm-menu-install-vm-mode-menu)
849 (vm-menu-install-menubar) 860 (vm-menu-install-menubar)