changeset 92307:55f83f57568d

(custom-mode-map, custom-mode-link-map): Rename `custom-mode' to `Custom-mode' in docstrings. (custom-buffer-create-internal, customize-browse): Rename `custom-mode' to `Custom-mode'. (custom-mode-hook): Rename to `Custom-mode-hook'. (Custom-mode-hook): Renamed from `custom-mode-hook'. (custom-mode): Rename to `Custom-mode'. (Custom-mode): Renamed from `custom-mode'. Doc fix. (custom-mode): Add backward-compatible non-interactive variant of `Custom-mode' that simply calls `Custom-mode'. Mark it obsoleted. (custom-mode-hook): Mark it as obsolete alias of `Custom-mode-hook'.
author Juri Linkov <juri@jurta.org>
date Thu, 28 Feb 2008 20:45:37 +0000
parents fc2a30344c2d
children d054d9acfcd6
files lisp/cus-edit.el
diffstat 1 files changed, 17 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Thu Feb 28 19:12:01 2008 +0000
+++ b/lisp/cus-edit.el	Thu Feb 28 20:45:37 2008 +0000
@@ -480,7 +480,7 @@
     (define-key map "n" 'widget-forward)
     (define-key map "p" 'widget-backward)
     map)
-  "Keymap for `custom-mode'.")
+  "Keymap for `Custom-mode'.")
 
 (defvar custom-mode-link-map
   (let ((map (make-keymap)))
@@ -489,7 +489,7 @@
     (define-key map [down-mouse-1] 'mouse-drag-region)
     (define-key map [mouse-2] 'widget-move-and-invoke)
     map)
-  "Local keymap for links in `custom-mode'.")
+  "Local keymap for links in `Custom-mode'.")
 
 (defvar custom-field-keymap
   (let ((map (copy-keymap widget-field-keymap)))
@@ -1578,7 +1578,7 @@
 		 'custom-button-pressed-unraised))))
 
 (defun custom-buffer-create-internal (options &optional description)
-  (custom-mode)
+  (Custom-mode)
   (let ((init-file (or custom-file user-init-file)))
     ;; Insert verbose help at the top of the custom buffer.
     (when custom-buffer-verbose-help
@@ -1684,7 +1684,7 @@
     (setq group 'emacs))
   (let ((name "*Customize Browser*"))
     (pop-to-buffer (custom-get-fresh-buffer name)))
-  (custom-mode)
+  (Custom-mode)
   (widget-insert (format "\
 %s buttons; type RET or click mouse-1
 on a button to invoke its action.
@@ -4595,7 +4595,7 @@
 
 ;;; `custom-tool-bar-map' used to be set up here.  This will fail to
 ;;; DTRT when `display-graphic-p' returns nil during compilation.  Hence
-;;; we set this up lazily in `custom-mode'.
+;;; we set this up lazily in `Custom-mode'.
 (defvar custom-tool-bar-map nil
   "Keymap for toolbar in Custom mode.")
 
@@ -4625,16 +4625,16 @@
 	       (parent (downcase (widget-get  button :tag))))
 	  (customize-group parent)))))
 
-(defcustom custom-mode-hook nil
+(defcustom Custom-mode-hook nil
   "Hook called when entering Custom mode."
   :type 'hook
-  :group 'custom-buffer )
+  :group 'custom-buffer)
 
 (defun custom-state-buffer-message (widget)
   (if (eq (widget-get (widget-get widget :parent) :custom-state) 'modified)
       (message "To install your edits, invoke [State] and choose the Set operation")))
 
-(define-derived-mode custom-mode nil "Custom"
+(define-derived-mode Custom-mode nil "Custom"
   "Major mode for editing customization buffers.
 
 The following commands are available:
@@ -4654,7 +4654,7 @@
 Erase customizations; set options
   and buffer text to the standard values.  \\[Custom-reset-standard]
 
-Entry to this mode calls the value of `custom-mode-hook'
+Entry to this mode calls the value of `Custom-mode-hook'
 if that value is non-nil."
   (use-local-map custom-mode-map)
   (easy-menu-add Custom-mode-menu)
@@ -4695,7 +4695,15 @@
     (set (make-local-variable 'widget-link-suffix) ""))
   (add-hook 'widget-edit-functions 'custom-state-buffer-message nil t))
 
+(put 'Custom-mode 'mode-class 'special)
+
+;; backward-compatibility
+(defun custom-mode ()
+  "Non-interactive variant of `Custom-mode'."
+  (Custom-mode))
+(make-obsolete 'custom-mode 'Custom-mode "23.0")
 (put 'custom-mode 'mode-class 'special)
+(define-obsolete-variable-alias 'custom-mode-hook 'Custom-mode-hook "23.0")
 
 (dolist (regexp
 	 '("^No user option defaults have been changed since Emacs "