[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r102827: * cus-theme.el (customize-th
From: |
Chong Yidong |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r102827: * cus-theme.el (customize-themes): Use switch-to-buffer. |
Date: |
Wed, 12 Jan 2011 14:10:00 -0500 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 102827
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Wed 2011-01-12 14:10:00 -0500
message:
* cus-theme.el (customize-themes): Use switch-to-buffer.
* menu-bar.el (menu-bar-custom-menu): Tweak Mule and Customize
menus. Add menu item for customize-themes.
modified:
lisp/ChangeLog
lisp/cus-theme.el
lisp/menu-bar.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-01-12 18:57:23 +0000
+++ b/lisp/ChangeLog 2011-01-12 19:10:00 +0000
@@ -1,5 +1,9 @@
2011-01-12 Chong Yidong <address@hidden>
+ * menu-bar.el (menu-bar-custom-menu): Tweak Mule and Customize
+ menus. Add menu item for customize-themes.
+
+ * cus-theme.el (customize-themes):
* emacs-lisp/package.el (package--list-packages): Use
switch-to-buffer.
=== modified file 'lisp/cus-theme.el'
--- a/lisp/cus-theme.el 2010-10-17 00:05:20 +0000
+++ b/lisp/cus-theme.el 2011-01-12 19:10:00 +0000
@@ -541,7 +541,7 @@
When called from Lisp, BUFFER should be the buffer to use; if
omitted, a buffer named *Custom Themes* is used."
(interactive)
- (pop-to-buffer (get-buffer-create (or buffer "*Custom Themes*")))
+ (switch-to-buffer (get-buffer-create (or buffer "*Custom Themes*")))
(let ((inhibit-read-only t))
(erase-buffer))
(custom-theme-choose-mode)
=== modified file 'lisp/menu-bar.el'
--- a/lisp/menu-bar.el 2010-12-20 14:44:28 +0000
+++ b/lisp/menu-bar.el 2011-01-12 19:10:00 +0000
@@ -584,18 +584,15 @@
(defvar menu-bar-custom-menu (make-sparse-keymap "Customize"))
-(define-key menu-bar-custom-menu [customize-apropos-groups]
- `(menu-item ,(purecopy "Groups Matching Regexp...") customize-apropos-groups
- :help ,(purecopy "Browse groups whose names match regexp")))
(define-key menu-bar-custom-menu [customize-apropos-faces]
- `(menu-item ,(purecopy "Faces Matching Regexp...") customize-apropos-faces
- :help ,(purecopy "Browse faces whose names match regexp")))
+ `(menu-item ,(purecopy "Faces Matching...") customize-apropos-faces
+ :help ,(purecopy "Browse faces matching a regexp or word list")))
(define-key menu-bar-custom-menu [customize-apropos-options]
- `(menu-item ,(purecopy "Options Matching Regexp...")
customize-apropos-options
- :help ,(purecopy "Browse options whose names match regexp")))
+ `(menu-item ,(purecopy "Options Matching...") customize-apropos-options
+ :help ,(purecopy "Browse options matching a regexp or word
list")))
(define-key menu-bar-custom-menu [customize-apropos]
- `(menu-item ,(purecopy "Settings Matching Regexp...") customize-apropos
- :help ,(purecopy "Browse customizable settings whose names match
regexp")))
+ `(menu-item ,(purecopy "All Settings Matching...") customize-apropos
+ :help ,(purecopy "Browse customizable settings matching a regexp
or word list")))
(define-key menu-bar-custom-menu [separator-1]
menu-bar-separator)
(define-key menu-bar-custom-menu [customize-group]
@@ -623,6 +620,9 @@
(define-key menu-bar-custom-menu [customize]
`(menu-item ,(purecopy "Top-level Customization Group") customize
:help ,(purecopy "The master group called `Emacs'")))
+(define-key menu-bar-custom-menu [customize-themes]
+ `(menu-item ,(purecopy "Custom Themes") customize-themes
+ :help ,(purecopy "Choose a pre-defined customization theme")))
;(defvar menu-bar-preferences-menu (make-sparse-keymap "Preferences"))
@@ -1144,7 +1144,7 @@
;; It is better not to use backquote here,
;; because that makes a bootstrapping problem
;; if you need to recompile all the Lisp files using interpreted code.
- `(menu-item ,(purecopy "Mule (Multilingual Environment)") ,mule-menu-keymap
+ `(menu-item ,(purecopy "Multilingual Environment") ,mule-menu-keymap
;; Most of the MULE menu actually does make sense in unibyte mode,
;; e.g. language selection.
;;; :visible '(default-value 'enable-multibyte-characters)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r102827: * cus-theme.el (customize-themes): Use switch-to-buffer.,
Chong Yidong <=