emacs/lisp/cus-edit.el

377 (defgroup abbrev-mode nil
378   "Word abbreviations mode."
392 (defgroup mode-line nil
412 (defgroup dired nil
469 ;;; Custom mode keymaps
471 (defvar custom-mode-map
473   ;; "\r" bindings from the parent map.
475   (let ((map (make-keymap)))
476     (set-keymap-parent map widget-keymap)
477     (define-key map [remap self-insert-command] 'Custom-no-edit)
478     (define-key map "\^m" 'Custom-newline)
479     (define-key map " " 'scroll-up)
480     (define-key map "\177" 'scroll-down)
481     (define-key map "\C-c\C-c" 'Custom-set)
482     (define-key map "\C-x\C-s" 'Custom-save)
483     (define-key map "q" 'Custom-buffer-done)
484     (define-key map "u" 'Custom-goto-parent)
485     (define-key map "n" 'widget-forward)
486     (define-key map "p" 'widget-backward)
487     map)
488   "Keymap for `custom-mode'.")
490 (defvar custom-mode-link-map
491   (let ((map (make-keymap)))
492     (set-keymap-parent map custom-mode-map)
493     (define-key map [down-mouse-2] nil)
494     (define-key map [down-mouse-1] 'mouse-drag-region)
495     (define-key map [mouse-2] 'widget-move-and-invoke)
496     map)
497   "Local keymap for links in `custom-mode'.")
1005 (defun customize-mode (mode)
1006   "Customize options related to the current major mode.
1007 If a prefix \\[universal-argument] was given (or if the current major mode has no known group),
1011     (let ((completion-regexp-list '("-mode\\'"))
1012 	  (group (custom-group-of-mode major-mode)))
1014 	  major-mode
1017 			      (format "Major mode (default %s): " major-mode)
1018 			    "Major mode: ")
1020 			  'custom-group-of-mode
1021 			  t nil nil (if group (symbol-name major-mode))))))))
1022   (customize-group (custom-group-of-mode mode)))
1548   (custom-mode)
1692   (custom-mode)
1816   :keymap custom-mode-link-map
2571 	   ;; In lisp mode edit the saved value when possible.
2599 	   ;; Edit mode.
3710   :keymap custom-mode-link-map
4193 	  (if recentf-mode
4202       (unless (eq major-mode 'emacs-lisp-mode)
4203 	(emacs-lisp-mode))
4509 (easy-menu-define Custom-mode-menu
4510     custom-mode-map
4522   (let ((map (copy-keymap widget-field-keymap)))
4523     (define-key map "\C-c\C-c" 'Custom-set)
4524     (define-key map "\C-x\C-s" 'Custom-save)
4525     map)
4541 (defcustom custom-mode-hook nil
4542   "Hook called when entering Custom mode."
4550 (defun custom-mode ()
4551   "Major mode for editing customization buffers.
4560 \\<custom-mode-map>\
4570 Entry to this mode calls the value of `custom-mode-hook'
4573   (setq major-mode 'custom-mode
4574 	mode-name "Custom")
4575   (use-local-map custom-mode-map)
4576   (easy-menu-add Custom-mode-menu)
4601   (run-mode-hooks 'custom-mode-hook))
4603 (put 'custom-mode 'mode-class 'special)