HCoop
/
bpt
/
emacs.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
guile feature
[bpt/emacs.git]
/
lisp
/
cus-theme.el
diff --git
a/lisp/cus-theme.el
b/lisp/cus-theme.el
index
dbe4fa4
..
928c54d
100644
(file)
--- a/
lisp/cus-theme.el
+++ b/
lisp/cus-theme.el
@@
-1,9
+1,9
@@
;;; cus-theme.el -- custom theme creation user interface
;;
;;; cus-theme.el -- custom theme creation user interface
;;
-;; Copyright (C) 2001-201
3
Free Software Foundation, Inc.
+;; Copyright (C) 2001-201
4
Free Software Foundation, Inc.
;;
;; Author: Alex Schroeder <alex@gnu.org>
;;
;; Author: Alex Schroeder <alex@gnu.org>
-;; Maintainer:
FSF
+;; Maintainer:
emacs-devel@gnu.org
;; Keywords: help, faces
;; Package: emacs
;; Keywords: help, faces
;; Package: emacs
@@
-32,9
+32,11
@@
(defvar custom-new-theme-mode-map
(let ((map (make-keymap)))
(defvar custom-new-theme-mode-map
(let ((map (make-keymap)))
- (set-keymap-parent map widget-keymap)
+ (set-keymap-parent map (make-composed-keymap widget-keymap
+ special-mode-map))
(suppress-keymap map)
(define-key map "\C-x\C-s" 'custom-theme-write)
(suppress-keymap map)
(define-key map "\C-x\C-s" 'custom-theme-write)
+ (define-key map "q" 'Custom-buffer-done)
(define-key map "n" 'widget-forward)
(define-key map "p" 'widget-backward)
map)
(define-key map "n" 'widget-forward)
(define-key map "p" 'widget-backward)
map)