mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
* lisp/**/*.el: Avoid positional args to define-minor-mode
Back in Emacs-21.1, `define-minor-mode` grew keywords arguments to replace its old positional arguments. Let's make sure we don't use the old-style any more. * lisp/org/ox-beamer.el (org-beamer-mode-map): Move initialization into declaration. (org-beamer-mode): * lisp/textmodes/tildify.el (tildify-mode): * lisp/textmodes/sgml-mode.el (html-autoview-mode): * lisp/textmodes/rst.el (rst-minor-mode): * lisp/textmodes/remember.el (remember-notes-mode): * lisp/textmodes/ispell.el (ispell-minor-mode): * lisp/tar-mode.el (tar-subfile-mode): * lisp/strokes.el (strokes-mode): * lisp/so-long.el (so-long-minor-mode): * lisp/shell.el (shell-dirtrack-mode): * lisp/scroll-all.el (scroll-all-mode): * lisp/ruler-mode.el (ruler-mode): * lisp/rect.el (rectangle-mark-mode): * lisp/progmodes/sh-script.el (sh-electric-here-document-mode): * lisp/outline.el (outline-minor-mode): * lisp/org/org.el (org-cdlatex-mode): * lisp/org/org-table.el (org-table-header-line-mode) (org-table-follow-field-mode, orgtbl-mode): * lisp/org/org-src.el (org-src-mode): * lisp/org/org-list.el (org-list-checkbox-radio-mode): * lisp/org/org-indent.el (org-indent-mode): * lisp/org/org-capture.el (org-capture-mode): * lisp/obsolete/pc-select.el (pc-selection-mode): * lisp/obsolete/iswitchb.el (iswitchb-mode): * lisp/net/rcirc.el (rcirc-omit-mode, rcirc-multiline-minor-mode) (rcirc-track-minor-mode): * lisp/net/goto-addr.el (goto-address-mode, goto-address-prog-mode): * lisp/image-mode.el (image-minor-mode): * lisp/ibuf-ext.el (ibuffer-auto-mode): * lisp/gnus/gnus-cite.el (gnus-message-citation-mode): * lisp/font-core.el (font-lock-mode): * lisp/erc/erc.el (define-erc-module): * lisp/erc/erc-track.el (erc-track-minor-mode): * lisp/erc/erc-fill.el (erc-fill-mode): * lisp/epa-mail.el (epa-mail-mode): * lisp/emacs-lisp/checkdoc.el (checkdoc-minor-mode): * lisp/dirtrack.el (dirtrack-mode, dirtrack-debug-mode): * lisp/dired-aux.el (dired-isearch-filenames-mode): * lisp/cedet/semantic/idle.el (semantic-idle-scheduler-mode): * lisp/cedet/semantic/decorate/mode.el (semantic-decoration-mode): * lisp/autoarg.el (autoarg-mode, autoarg-kp-mode): * lisp/vc/pcvs.el (cvs-minor-mode): Avoid old-style positional args to `define-minor-mode`.
This commit is contained in:
parent
ccfd6a975e
commit
c45bfd3c4a
41 changed files with 52 additions and 71 deletions
|
|
@ -3744,7 +3744,7 @@ SPC.
|
|||
|
||||
For spell-checking \"on the fly\", not just after typing SPC or
|
||||
RET, use `flyspell-mode'."
|
||||
nil " Spell" ispell-minor-keymap)
|
||||
:lighter " Spell" :keymap ispell-minor-keymap)
|
||||
|
||||
(defun ispell-minor-check ()
|
||||
"Check previous word, then continue with the normal binding of this key.
|
||||
|
|
|
|||
|
|
@ -607,7 +607,7 @@ This sets `buffer-save-without-query' so that `save-some-buffers' will
|
|||
save the notes buffer without asking.
|
||||
|
||||
\\{remember-notes-mode-map}"
|
||||
nil nil nil
|
||||
:lighter nil
|
||||
(cond
|
||||
(remember-notes-mode
|
||||
(add-hook 'kill-buffer-query-functions
|
||||
|
|
|
|||
|
|
@ -1408,13 +1408,11 @@ highlighting.
|
|||
When ReST minor mode is enabled, the ReST mode keybindings
|
||||
are installed on top of the major mode bindings. Use this
|
||||
for modes derived from Text mode, like Mail mode."
|
||||
;; The initial value.
|
||||
nil
|
||||
;; The indicator for the mode line.
|
||||
" ReST"
|
||||
;; The minor mode bindings.
|
||||
rst-mode-map
|
||||
:group 'rst)
|
||||
;; The indicator for the mode line.
|
||||
:lighter " ReST"
|
||||
;; The minor mode bindings.
|
||||
:keymap rst-mode-map
|
||||
:group 'rst)
|
||||
|
||||
;; FIXME: can I somehow install these too?
|
||||
;; :abbrev-table rst-mode-abbrev-table
|
||||
|
|
|
|||
|
|
@ -2440,7 +2440,7 @@ The third `match-string' will be the used in the menu.")
|
|||
HTML Autoview mode is a buffer-local minor mode for use with
|
||||
`html-mode'. If enabled, saving the file automatically runs
|
||||
`browse-url-of-buffer' to view it."
|
||||
nil nil nil
|
||||
:lighter nil
|
||||
(if html-autoview-mode
|
||||
(add-hook 'after-save-hook #'browse-url-of-buffer nil t)
|
||||
(remove-hook 'after-save-hook #'browse-url-of-buffer t)))
|
||||
|
|
|
|||
|
|
@ -486,7 +486,7 @@ that space character is replaced by a hard space specified by
|
|||
When `tildify-mode' is enabled, if `tildify-string-alist' specifies a hard space
|
||||
representation for current major mode, the `tildify-space-string' buffer-local
|
||||
variable will be set to the representation."
|
||||
nil " ~" nil
|
||||
:lighter " ~"
|
||||
(when tildify-mode
|
||||
(let ((space (with-suppressed-warnings ((obsolete
|
||||
tildify--pick-alist-entry))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue