[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
RE: customize-saved in the customize menu?
From: |
Simon Marshall |
Subject: |
RE: customize-saved in the customize menu? |
Date: |
Mon, 29 Apr 2002 09:42:04 -0400 |
OK, there wasn't any more feedback, so here's a possible patch... I
played around a little with the layout. I think the best layout is to
have a separate menu section for the Saved... and New... menu entries,
since both create a customise buffer for a selection of disparate
options.
cd ~/ftp/emacs-21.1.90/lisp/
diff -c /rvcarma/marshals/ftp/emacs-21.1.90/lisp/menu-bar.el.\~1\~
/rvcarma/marshals/ftp/emacs-21.1.90/lisp/menu-bar.el
*** /rvcarma/marshals/ftp/emacs-21.1.90/lisp/menu-bar.el.~1~ Thu Nov 15
20:29:44 2001
--- /rvcarma/marshals/ftp/emacs-21.1.90/lisp/menu-bar.el Mon Apr 29
14:25:56 2002
***************
*** 498,504 ****
(define-key menu-bar-custom-menu [customize-apropos]
'(menu-item "Settings Matching Regexp..." customize-apropos
:help "Browse customizable settings whose names match regexp"))
! (define-key menu-bar-custom-menu [separator-2]
'("--"))
(define-key menu-bar-custom-menu [customize-group]
'(menu-item "Specific Group..." customize-group
--- 498,504 ----
(define-key menu-bar-custom-menu [customize-apropos]
'(menu-item "Settings Matching Regexp..." customize-apropos
:help "Browse customizable settings whose names match regexp"))
! (define-key menu-bar-custom-menu [separator-1]
'("--"))
(define-key menu-bar-custom-menu [customize-group]
'(menu-item "Specific Group..." customize-group
***************
*** 508,517 ****
:help "Customize attributes of specific face"))
(define-key menu-bar-custom-menu [customize-option]
'(menu-item "Specific Option..." customize-option
! :help "Change value of specific option"))
(define-key menu-bar-custom-menu [customize-changed-options]
! '(menu-item "Recently Changed Options..." customize-changed-options
! :help "Customize options changed in recent versions"))
(define-key menu-bar-custom-menu [separator-3]
'("--"))
(define-key menu-bar-custom-menu [customize-browse]
--- 508,522 ----
:help "Customize attributes of specific face"))
(define-key menu-bar-custom-menu [customize-option]
'(menu-item "Specific Option..." customize-option
! :help "Customize value of specific option"))
! (define-key menu-bar-custom-menu [separator-2]
! '("--"))
(define-key menu-bar-custom-menu [customize-changed-options]
! '(menu-item "New Options..." customize-changed-options
! :help "Options added or changed in recent Emacs versions"))
! (define-key menu-bar-custom-menu [customize-saved]
! '(menu-item "Saved Options" customize-saved
! :help "Customize previously saved options"))
(define-key menu-bar-custom-menu [separator-3]
'("--"))
(define-key menu-bar-custom-menu [customize-browse]
Diff finished at Mon Apr 29 14:35:23