Lines Matching +defs:lisp +defs:mode
214 (defgroup lisp nil
377 (defgroup abbrev-mode nil
378 "Word abbreviations mode."
392 (defgroup mode-line nil
469 ;;; Custom mode keymaps
471 (defvar custom-mode-map
488 "Keymap for `custom-mode'.")
490 (defvar custom-mode-link-map
492 (set-keymap-parent map custom-mode-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
2044 (cond ((eq form 'lisp)
2045 (insert " (lisp)"))
2068 :tag (if (memq form '(lisp mismatch))
2464 (const lisp))
2541 ;; If we don't know the state, see if we need to edit it in lisp form.
2570 ((memq form '(lisp mismatch))
2571 ;; In lisp mode edit the saved value when possible.
2599 ;; Edit mode.
2775 (eq (widget-get widget :custom-form) 'lisp)))
2776 ("Show Saved Lisp Expression" custom-variable-edit-lisp
2810 (defun custom-variable-edit-lisp (widget)
2813 (widget-put widget :custom-form 'lisp)
2831 ((memq form '(lisp mismatch))
2873 ((memq form '(lisp mismatch))
3194 (const lisp))
3403 ((and (not (eq form 'lisp))
3440 ("Show Lisp Expression" custom-face-edit-lisp
3442 (not (eq (widget-get widget :custom-form) 'lisp)))))
3462 (defun custom-face-edit-lisp (widget)
3465 (widget-put widget :custom-form 'lisp)
3642 (lisp-complete-symbol 'facep))
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
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)