Lines Matching +defs:pretty +defs:name
58 (defun easy-mmode-pretty-mode-name (mode &optional lighter)
64 (name (concat (replace-regexp-in-string
65 ;; If the original mode name included "-minor" (some
72 "-mode\\'" "" (symbol-name mode))))
74 (if (not (stringp lighter)) name
84 (replace-regexp-in-string (regexp-quote lighter) lighter name t t))))
110 :group GROUP Custom group name to use in all generated `defcustom' forms.
112 Don't use this default group name unless you have written a
126 (declare (debug (&define name stringp
143 (mode-name (symbol-name mode))
144 (pretty-name (easy-mmode-pretty-mode-name mode lighter))
153 (hook (intern (concat mode-name "-hook")))
154 (hook-on (intern (concat mode-name "-on-hook")))
155 (hook-off (intern (concat mode-name "-off-hook")))
175 (intern (concat mode-name "-map"))))
186 "-mode\\'" "" mode-name)))))
195 Use the command `%s' to change this variable." pretty-name mode))
206 ,(format base-doc-string pretty-name mode mode)
221 \\{%s}") pretty-name keymap-sym))
245 (message ,(format "%s %%sabled" pretty-name)
262 ,(format "Keymap for `%s'." mode-name)))
298 (let* ((global-mode-name (symbol-name global-mode))
299 (pretty-name (easy-mmode-pretty-mode-name mode))
300 (pretty-global-name (easy-mmode-pretty-mode-name global-mode))
303 (MODE-buffers (intern (concat global-mode-name "-buffers")))
305 (intern (concat global-mode-name "-enable-in-buffers")))
307 (intern (concat global-mode-name "-check-buffers")))
308 (MODE-cmhh (intern (concat global-mode-name "-cmhh")))
309 (MODE-major-mode (intern (concat (symbol-name mode) "-major-mode")))
324 "-mode\\'" "" (symbol-name mode))))))
335 pretty-name pretty-global-name pretty-name turn-on
336 mode pretty-name)
374 (put ',MODE-enable-in-buffers 'definition-name ',global-mode)
380 (put ',MODE-check-buffers 'definition-name ',global-mode)
386 (put ',MODE-cmhh 'definition-name ',global-mode))))
405 (defun easy-mmode-define-keymap (bs &optional name m args)
417 (:name (setq name val))
424 (setq m (if dense (make-keymap name) (make-sparse-keymap name))))
482 (defmacro easy-mmode-define-navigation (base re &optional name endfun narrowfun)
493 (let* ((base-name (symbol-name base))
494 (prev-sym (intern (concat base-name "-prev")))
495 (next-sym (intern (concat base-name "-next")))
503 (unless name (setq name base-name))
506 ,(concat "^No \\(previous\\|next\\) " (regexp-quote name)))
508 ,(format "Go to the next COUNT'th %s." name)
518 (error "No next %s" ,name))
529 (put ',next-sym 'definition-name ',base)
531 ,(format "Go to the previous COUNT'th %s" (or name base-name))
538 (error "No previous %s" ,name))
540 (put ',prev-sym 'definition-name ',base))))