Customization

Customization

[Juri Linkov]

I propose the following key binding for customization buffers:

Index: emacs/lisp/cus-edit.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v
retrieving revision 1.191
diff -u -r1.191 cus-edit.el
--- emacs/lisp/cus-edit.el	5 Apr 2004 17:21:09 -0000	1.191
+++ emacs/lisp/cus-edit.el	29 Apr 2004 09:18:22 -0000
@@ -4023,6 +4023,7 @@
   (suppress-keymap custom-mode-map)
   (define-key custom-mode-map " " 'scroll-up)
   (define-key custom-mode-map "\177" 'scroll-down)
+  (define-key custom-mode-map "\C-x\C-s" 'Custom-save)
   (define-key custom-mode-map "q" 'Custom-buffer-done)
   (define-key custom-mode-map "u" 'Custom-goto-parent)
   (define-key custom-mode-map "n" 'widget-forward)

And anoter change: currently, there is only one uncategorized option
at the top level of customization: it is `confirm-kill-emacs'.
It could be placed under the `convenience' category:

Index: emacs/lisp/files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.689
diff -u -r1.689 files.el
--- emacs/lisp/files.el	17 Apr 2004 19:58:19 -0000	1.689
+++ emacs/lisp/files.el	29 Apr 2004 09:18:28 -0000
@@ -4423,7 +4423,7 @@
   :type '(choice (const :tag "Ask with yes-or-no-p" yes-or-no-p)
 		 (const :tag "Ask with y-or-n-p" y-or-n-p)
 		 (const :tag "Don't confirm" nil))
-  :group 'emacs
+  :group 'convenience
   :version "21.1")

-- 
Juri Linkov
http://www.jurta.org/emacs/

Re: Customization

[David Kastrup]

Juri Linkov <juri@jurta.org> writes:

> I propose the following key binding for customization buffers:
> 
> Index: emacs/lisp/cus-edit.el
> ===================================================================
> RCS file: /cvsroot/emacs/emacs/lisp/cus-edit.el,v
> retrieving revision 1.191
> diff -u -r1.191 cus-edit.el
> --- emacs/lisp/cus-edit.el	5 Apr 2004 17:21:09 -0000	1.191
> +++ emacs/lisp/cus-edit.el	29 Apr 2004 09:18:22 -0000
> @@ -4023,6 +4023,7 @@
>    (suppress-keymap custom-mode-map)
>    (define-key custom-mode-map " " 'scroll-up)
>    (define-key custom-mode-map "\177" 'scroll-down)
> +  (define-key custom-mode-map "\C-x\C-s" 'Custom-save)
>    (define-key custom-mode-map "q" 'Custom-buffer-done)
>    (define-key custom-mode-map "u" 'Custom-goto-parent)
>    (define-key custom-mode-map "n" 'widget-forward)

Good idea.

-- 
David Kastrup, Kriemhildstr. 15, 44793 Bochum