diff options
Diffstat (limited to 'lisp')
131 files changed, 1455 insertions, 954 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e058f387a93..b20ebccea89 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,237 @@ | |||
| 1 | 2011-10-24 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * isearch.el (isearch-occur): Let-bind `search-spaces-regexp' to | ||
| 4 | `search-whitespace-regexp' only when `isearch-regexp' is non-nil. | ||
| 5 | (Bug#9364) | ||
| 6 | |||
| 7 | 2011-10-24 Juri Linkov <juri@jurta.org> | ||
| 8 | |||
| 9 | * info.el (Info-following-node-name-re): Add newline to the list | ||
| 10 | of allowed characters for leading space. (Bug#9824) | ||
| 11 | |||
| 12 | 2011-10-24 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 13 | |||
| 14 | * progmodes/octave-inf.el (inferior-octave-mode-map): Fix C-c C-h binding. | ||
| 15 | * progmodes/octave-mod.el (octave-help): Remove. | ||
| 16 | |||
| 17 | 2011-10-23 Michael Albinus <michael.albinus@gmx.de> | ||
| 18 | |||
| 19 | Sync with Tramp 2.2.3. | ||
| 20 | |||
| 21 | * net/tramp-cache.el (top): Pacify byte-compiler using | ||
| 22 | `init-file-user' and `site-run-file'. | ||
| 23 | |||
| 24 | * net/trampver.el: Update release number. | ||
| 25 | |||
| 26 | 2011-10-23 Chong Yidong <cyd@gnu.org> | ||
| 27 | |||
| 28 | * files.el (toggle-read-only): Remove obsolete comment about | ||
| 29 | version control. | ||
| 30 | |||
| 31 | * vc/vc-hooks.el (vc-toggle-read-only): Make it an obsolete alias | ||
| 32 | for toggle-read-only. Note that this hasn't called vc-next-action | ||
| 33 | since 2008-05-02, though it wasn't documented at the time. | ||
| 34 | |||
| 35 | * vc/ediff-init.el (ediff-toggle-read-only-function): | ||
| 36 | Use toggle-read-only. | ||
| 37 | |||
| 38 | 2011-10-22 Alan Mackenzie <bug-cc-mode@gnu.org> | ||
| 39 | |||
| 40 | Fix bug #9560, sporadic wrong indentation; improve instrumentation | ||
| 41 | of c-parse-state. | ||
| 42 | |||
| 43 | * cc-engine.el (c-append-lower-brace-pair-to-state-cache): | ||
| 44 | correct faulty logical expression. | ||
| 45 | (c-parse-state-state, c-record-parse-state-state): | ||
| 46 | (c-replay-parse-state-state): New defvar/defuns. | ||
| 47 | (c-debug-parse-state): Use new functions. | ||
| 48 | |||
| 49 | 2011-10-22 Martin Rudalics <rudalics@gmx.at> | ||
| 50 | |||
| 51 | * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by | ||
| 52 | last fix. Use window-in-direction correctly. | ||
| 53 | |||
| 54 | 2011-10-21 Chong Yidong <cyd@gnu.org> | ||
| 55 | |||
| 56 | * progmodes/idlwave.el (idlwave-mode): | ||
| 57 | * progmodes/vera-mode.el (vera-mode): No need to set | ||
| 58 | require-final-newline; that's done in prog-mode. | ||
| 59 | Suggested by Stefan Monnier. | ||
| 60 | |||
| 61 | 2011-10-21 Martin Rudalics <rudalics@gmx.at> | ||
| 62 | |||
| 63 | * mouse.el (mouse-drag-window-above) | ||
| 64 | (mouse-drag-move-window-bottom, mouse-drag-move-window-top) | ||
| 65 | (mouse-drag-mode-line-1, mouse-drag-header-line) | ||
| 66 | (mouse-drag-vertical-line-rightward-window): Remove. | ||
| 67 | (mouse-drag-line): New function. | ||
| 68 | (mouse-drag-mode-line, mouse-drag-header-line) | ||
| 69 | (mouse-drag-vertical-line): Call mouse-drag-line. | ||
| 70 | * window.el (window-at-side-p, windows-at-side): New functions. | ||
| 71 | |||
| 72 | 2011-10-21 Ulrich Mueller <ulm@gentoo.org> | ||
| 73 | |||
| 74 | * tar-mode.el (tar-grind-file-mode): | ||
| 75 | Fix handling of setuid/setgid, handle sticky bit. (Bug#9817) | ||
| 76 | |||
| 77 | 2011-10-21 Chong Yidong <cyd@gnu.org> | ||
| 78 | |||
| 79 | * progmodes/idlwave.el (idlwave-mode): | ||
| 80 | * progmodes/vera-mode.el (vera-mode): | ||
| 81 | Use mode-require-final-newline. | ||
| 82 | |||
| 83 | 2011-10-20 Glenn Morris <rgm@gnu.org> | ||
| 84 | |||
| 85 | * vc/vc.el (vc-next-action): Handle removed directories. (Bug#9781) | ||
| 86 | |||
| 87 | 2011-10-20 Christoph Scholtes <cschol2112@googlemail.com> | ||
| 88 | |||
| 89 | * emulation/cua-base.el (cua-set-mark): Fix case of string. | ||
| 90 | |||
| 91 | 2011-10-20 Chong Yidong <cyd@gnu.org> | ||
| 92 | |||
| 93 | * emulation/cua-base.el (cua-mode): | ||
| 94 | * mail/footnote.el (footnote-mode): | ||
| 95 | * mail/mailabbrev.el (mail-abbrevs-mode): | ||
| 96 | * net/xesam.el (xesam-minor-mode): | ||
| 97 | * progmodes/bug-reference.el (bug-reference-mode): | ||
| 98 | * progmodes/cap-words.el (capitalized-words-mode): | ||
| 99 | * progmodes/compile.el (compilation-minor-mode) | ||
| 100 | (compilation-shell-minor-mode): | ||
| 101 | * progmodes/gud.el (gud-tooltip-mode): | ||
| 102 | * progmodes/hideif.el (hide-ifdef-mode): | ||
| 103 | * progmodes/idlw-shell.el (idlwave-shell-electric-debug-mode): | ||
| 104 | * progmodes/subword.el (subword-mode): | ||
| 105 | * progmodes/vhdl-mode.el (vhdl-electric-mode, vhdl-stutter-mode): | ||
| 106 | * progmodes/which-func.el (which-function-mode): | ||
| 107 | * term/tvi970.el (tvi970-set-keypad-mode): | ||
| 108 | * term/vt100.el (vt100-wide-mode): | ||
| 109 | * textmodes/flyspell.el (flyspell-mode): | ||
| 110 | * textmodes/ispell.el (ispell-minor-mode): | ||
| 111 | * textmodes/nroff-mode.el (nroff-electric-mode): | ||
| 112 | * textmodes/paragraphs.el (use-hard-newlines): | ||
| 113 | * textmodes/refill.el (refill-mode): | ||
| 114 | * textmodes/reftex.el (reftex-mode): | ||
| 115 | * textmodes/rst.el (rst-minor-mode): | ||
| 116 | * textmodes/sgml-mode.el (html-autoview-mode) | ||
| 117 | (sgml-electric-tag-pair-mode): | ||
| 118 | * textmodes/tex-mode.el (latex-electric-env-pair-mode): | ||
| 119 | * vc/diff-mode.el (diff-auto-refine-mode, diff-minor-mode): | ||
| 120 | * emulation/crisp.el (crisp-mode): | ||
| 121 | * emacs-lisp/eldoc.el (eldoc-mode): | ||
| 122 | * emacs-lisp/checkdoc.el (checkdoc-minor-mode): Doc fixes for new | ||
| 123 | minor mode behavior. | ||
| 124 | |||
| 125 | 2011-10-19 Juri Linkov <juri@jurta.org> | ||
| 126 | |||
| 127 | * descr-text.el (describe-char): Add #x2010 and #x2011 to | ||
| 128 | the list of hard-coded chars with escape-glyph face. | ||
| 129 | |||
| 130 | 2011-10-19 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 131 | |||
| 132 | * vc/log-edit.el (log-edit-empty-buffer-p): Ignore empty headers. | ||
| 133 | |||
| 134 | 2011-10-19 Michael Albinus <michael.albinus@gmx.de> | ||
| 135 | |||
| 136 | * net/tramp.el (tramp-connectable-p): Make a stronger check on a | ||
| 137 | running process. | ||
| 138 | |||
| 139 | 2011-10-19 Glenn Morris <rgm@gnu.org> | ||
| 140 | |||
| 141 | * vc/vc-bzr.el (vc-bzr-after-dir-status): | ||
| 142 | Ignore ignored files. (Bug#9726) | ||
| 143 | |||
| 144 | 2011-10-19 Chong Yidong <cyd@gnu.org> | ||
| 145 | |||
| 146 | Doc fix for minor modes, stating that an omitted argument enables | ||
| 147 | the mode unconditionally when called from Lisp. | ||
| 148 | |||
| 149 | * abbrev.el (abbrev-mode): | ||
| 150 | * allout.el (allout-mode): | ||
| 151 | * autoinsert.el (auto-insert-mode): | ||
| 152 | * autoarg.el (autoarg-mode, autoarg-kp-mode): | ||
| 153 | * autorevert.el (auto-revert-mode, auto-revert-tail-mode) | ||
| 154 | (global-auto-revert-mode): | ||
| 155 | * battery.el (display-battery-mode): | ||
| 156 | * composite.el (global-auto-composition-mode) | ||
| 157 | (auto-composition-mode): | ||
| 158 | * delsel.el (delete-selection-mode): | ||
| 159 | * desktop.el (desktop-save-mode): | ||
| 160 | * dired-x.el (dired-omit-mode): | ||
| 161 | * dirtrack.el (dirtrack-mode): | ||
| 162 | * doc-view.el (doc-view-minor-mode): | ||
| 163 | * double.el (double-mode): | ||
| 164 | * electric.el (electric-indent-mode, electric-pair-mode): | ||
| 165 | * emacs-lock.el (emacs-lock-mode): | ||
| 166 | * epa-hook.el (auto-encryption-mode): | ||
| 167 | * follow.el (follow-mode): | ||
| 168 | * font-core.el (font-lock-mode): | ||
| 169 | * frame.el (auto-raise-mode, auto-lower-mode, blink-cursor-mode): | ||
| 170 | * help.el (temp-buffer-resize-mode): | ||
| 171 | * hilit-chg.el (highlight-changes-mode) | ||
| 172 | (highlight-changes-visible-mode): | ||
| 173 | * hi-lock.el (hi-lock-mode): | ||
| 174 | * hl-line.el (hl-line-mode, global-hl-line-mode): | ||
| 175 | * icomplete.el (icomplete-mode): | ||
| 176 | * ido.el (ido-everywhere): | ||
| 177 | * image-file.el (auto-image-file-mode): | ||
| 178 | * image-mode.el (image-minor-mode): | ||
| 179 | * iswitchb.el (iswitchb-mode): | ||
| 180 | * jka-cmpr-hook.el (auto-compression-mode): | ||
| 181 | * linum.el (linum-mode): | ||
| 182 | * longlines.el (longlines-mode): | ||
| 183 | * master.el (master-mode): | ||
| 184 | * mb-depth.el (minibuffer-depth-indicate-mode): | ||
| 185 | * menu-bar.el (menu-bar-mode): | ||
| 186 | * minibuf-eldef.el (minibuffer-electric-default-mode): | ||
| 187 | * mouse-sel.el (mouse-sel-mode): | ||
| 188 | * msb.el (msb-mode): | ||
| 189 | * mwheel.el (mouse-wheel-mode): | ||
| 190 | * outline.el (outline-minor-mode): | ||
| 191 | * paren.el (show-paren-mode): | ||
| 192 | * recentf.el (recentf-mode): | ||
| 193 | * reveal.el (reveal-mode, global-reveal-mode): | ||
| 194 | * rfn-eshadow.el (file-name-shadow-mode): | ||
| 195 | * ruler-mode.el (ruler-mode): | ||
| 196 | * savehist.el (savehist-mode): | ||
| 197 | * scroll-all.el (scroll-all-mode): | ||
| 198 | * scroll-bar.el (scroll-bar-mode): | ||
| 199 | * server.el (server-mode): | ||
| 200 | * shell.el (shell-dirtrack-mode): | ||
| 201 | * simple.el (auto-fill-mode, transient-mark-mode) | ||
| 202 | (visual-line-mode, overwrite-mode, binary-overwrite-mode) | ||
| 203 | (line-number-mode, column-number-mode, size-indication-mode) | ||
| 204 | (auto-save-mode, normal-erase-is-backspace-mode, visible-mode): | ||
| 205 | * strokes.el (strokes-mode): | ||
| 206 | * time.el (display-time-mode): | ||
| 207 | * t-mouse.el (gpm-mouse-mode): | ||
| 208 | * tool-bar.el (tool-bar-mode): | ||
| 209 | * tooltip.el (tooltip-mode): | ||
| 210 | * type-break.el (type-break-mode-line-message-mode) | ||
| 211 | (type-break-query-mode): | ||
| 212 | * view.el (view-mode): | ||
| 213 | * whitespace.el (whitespace-mode, whitespace-newline-mode) | ||
| 214 | (global-whitespace-mode, global-whitespace-newline-mode): | ||
| 215 | * xt-mouse.el (xterm-mouse-mode): Doc fix. | ||
| 216 | |||
| 217 | * emacs-lisp/easy-mmode.el (define-globalized-minor-mode): | ||
| 218 | Fix autogenerated docstring. | ||
| 219 | |||
| 220 | 2011-10-19 Juri Linkov <juri@jurta.org> | ||
| 221 | |||
| 222 | * net/browse-url.el (browse-url-can-use-xdg-open): Support LXDE | ||
| 223 | by checking environment variables "DESKTOP_SESSION" and | ||
| 224 | "XDG_CURRENT_DESKTOP". (Bug#9779) | ||
| 225 | |||
| 226 | 2011-10-19 Juri Linkov <juri@jurta.org> | ||
| 227 | |||
| 228 | * net/browse-url.el (browse-url-browser-function): Add "Chromium". | ||
| 229 | (browse-url-chromium-program, browse-url-chromium-arguments): | ||
| 230 | New defcustoms. | ||
| 231 | (browse-url-default-browser): Check for `browse-url-chromium' and | ||
| 232 | call `browse-url-chromium-program'. | ||
| 233 | (browse-url-chromium): New command. (Bug#9779) | ||
| 234 | |||
| 1 | 2011-10-18 Juanma Barranquero <lekktu@gmail.com> | 235 | 2011-10-18 Juanma Barranquero <lekktu@gmail.com> |
| 2 | 236 | ||
| 3 | * facemenu.el (list-colors-duplicates): On Windows, detect more | 237 | * facemenu.el (list-colors-duplicates): On Windows, detect more |
diff --git a/lisp/abbrev.el b/lisp/abbrev.el index 5a7a741a3a6..395810772c5 100644 --- a/lisp/abbrev.el +++ b/lisp/abbrev.el | |||
| @@ -54,9 +54,12 @@ define global abbrevs instead." | |||
| 54 | 54 | ||
| 55 | (define-minor-mode abbrev-mode | 55 | (define-minor-mode abbrev-mode |
| 56 | "Toggle Abbrev mode in the current buffer. | 56 | "Toggle Abbrev mode in the current buffer. |
| 57 | With optional argument ARG, turn abbrev mode on if ARG is | 57 | With a prefix argument ARG, enable Abbrev mode if ARG is |
| 58 | positive, otherwise turn it off. In Abbrev mode, inserting an | 58 | positive, and disable it otherwise. If called from Lisp, enable |
| 59 | abbreviation causes it to expand and be replaced by its expansion." | 59 | Abbrev mode if ARG is omitted or nil. |
| 60 | |||
| 61 | In Abbrev mode, inserting an abbreviation causes it to expand and | ||
| 62 | be replaced by its expansion." | ||
| 60 | ;; It's defined in C, this stops the d-m-m macro defining it again. | 63 | ;; It's defined in C, this stops the d-m-m macro defining it again. |
| 61 | :variable abbrev-mode) | 64 | :variable abbrev-mode) |
| 62 | 65 | ||
diff --git a/lisp/allout-widgets.el b/lisp/allout-widgets.el index ef75e7157e6..162da1f4815 100644 --- a/lisp/allout-widgets.el +++ b/lisp/allout-widgets.el | |||
| @@ -486,13 +486,14 @@ happens in the buffer.") | |||
| 486 | ;;;_ > define-minor-mode allout-widgets-mode (arg) | 486 | ;;;_ > define-minor-mode allout-widgets-mode (arg) |
| 487 | ;;;###autoload | 487 | ;;;###autoload |
| 488 | (define-minor-mode allout-widgets-mode | 488 | (define-minor-mode allout-widgets-mode |
| 489 | "Allout-mode extension, providing graphical decoration of outline structure. | 489 | "Toggle Allout Widgets mode. |
| 490 | 490 | With a prefix argument ARG, enable Allout Widgets mode if ARG is | |
| 491 | This is meant to operate along with allout-mode, via `allout-mode-hook'. | 491 | positive, and disable it otherwise. If called from Lisp, enable |
| 492 | 492 | the mode if ARG is omitted or nil. | |
| 493 | If optional argument ARG is greater than 0, enable. | 493 | |
| 494 | If optional argument ARG is less than 0, disable. | 494 | Allout Widgets mode is an extension of Allout mode that provides |
| 495 | Anything else, toggle between active and inactive. | 495 | graphical decoration of outline structure. It is meant to |
| 496 | operate along with `allout-mode', via `allout-mode-hook'. | ||
| 496 | 497 | ||
| 497 | The graphics include: | 498 | The graphics include: |
| 498 | 499 | ||
diff --git a/lisp/allout.el b/lisp/allout.el index 4002f12e264..18cc3c80dc6 100644 --- a/lisp/allout.el +++ b/lisp/allout.el | |||
| @@ -1702,17 +1702,19 @@ valid values." | |||
| 1702 | ;;;###autoload | 1702 | ;;;###autoload |
| 1703 | (define-minor-mode allout-mode | 1703 | (define-minor-mode allout-mode |
| 1704 | ;;;_ . Doc string: | 1704 | ;;;_ . Doc string: |
| 1705 | "Toggle minor mode for controlling exposure and editing of text outlines. | 1705 | "Toggle Allout outline mode. |
| 1706 | \\<allout-mode-map-value> | 1706 | With a prefix argument ARG, enable Allout outline mode if ARG is |
| 1707 | 1707 | positive, and disable it otherwise. If called from Lisp, enable | |
| 1708 | Allout outline mode always runs as a minor mode. | 1708 | the mode if ARG is omitted or nil. |
| 1709 | 1709 | ||
| 1710 | Allout outline mode provides extensive outline oriented | 1710 | \\<allout-mode-map-value> |
| 1711 | formatting and manipulation. It enables structural editing of | 1711 | Allout outline mode is a minor mode that provides extensive |
| 1712 | outlines, as well as navigation and exposure. It also is | 1712 | outline oriented formatting and manipulation. It enables |
| 1713 | specifically aimed at accommodating syntax-sensitive text like | 1713 | structural editing of outlines, as well as navigation and |
| 1714 | programming languages. \(For example, see the allout code itself, | 1714 | exposure. It also is specifically aimed at accommodating |
| 1715 | which is organized as an allout outline.) | 1715 | syntax-sensitive text like programming languages. \(For example, |
| 1716 | see the allout code itself, which is organized as an allout | ||
| 1717 | outline.) | ||
| 1716 | 1718 | ||
| 1717 | In addition to typical outline navigation and exposure, allout includes: | 1719 | In addition to typical outline navigation and exposure, allout includes: |
| 1718 | 1720 | ||
diff --git a/lisp/autoarg.el b/lisp/autoarg.el index 378ec1318b1..57f5bcd809c 100644 --- a/lisp/autoarg.el +++ b/lisp/autoarg.el | |||
| @@ -90,15 +90,19 @@ | |||
| 90 | 90 | ||
| 91 | ;;;###autoload | 91 | ;;;###autoload |
| 92 | (define-minor-mode autoarg-mode | 92 | (define-minor-mode autoarg-mode |
| 93 | "Toggle Autoarg minor mode globally. | 93 | "Toggle Autoarg mode, a global minor mode. |
| 94 | With ARG, turn Autoarg mode on if ARG is positive, off otherwise. | 94 | With a prefix argument ARG, enable Autoarg mode if ARG is |
| 95 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 96 | the mode if ARG is omitted or nil. | ||
| 97 | |||
| 95 | \\<autoarg-mode-map> | 98 | \\<autoarg-mode-map> |
| 96 | In Autoarg mode digits are bound to `digit-argument' -- i.e. they | 99 | In Autoarg mode, digits are bound to `digit-argument', i.e. they |
| 97 | supply prefix arguments as C-DIGIT and M-DIGIT normally do -- and | 100 | supply prefix arguments as C-DIGIT and M-DIGIT normally do. |
| 98 | C-DIGIT inserts DIGIT. \\[autoarg-terminate] terminates the prefix sequence | 101 | Furthermore, C-DIGIT inserts DIGIT. |
| 99 | and inserts the digits of the autoarg sequence into the buffer. | 102 | \\[autoarg-terminate] terminates the prefix sequence and inserts |
| 100 | Without a numeric prefix arg the normal binding of \\[autoarg-terminate] is | 103 | the digits of the autoarg sequence into the buffer. |
| 101 | invoked, i.e. what it would be with Autoarg mode off. | 104 | Without a numeric prefix arg, the normal binding of \\[autoarg-terminate] |
| 105 | is invoked, i.e. what it would be with Autoarg mode off. | ||
| 102 | 106 | ||
| 103 | For example: | 107 | For example: |
| 104 | `6 9 \\[autoarg-terminate]' inserts `69' into the buffer, as does `C-6 C-9'. | 108 | `6 9 \\[autoarg-terminate]' inserts `69' into the buffer, as does `C-6 C-9'. |
| @@ -112,11 +116,14 @@ then invokes the normal binding of \\[autoarg-terminate]. | |||
| 112 | 116 | ||
| 113 | ;;;###autoload | 117 | ;;;###autoload |
| 114 | (define-minor-mode autoarg-kp-mode | 118 | (define-minor-mode autoarg-kp-mode |
| 115 | "Toggle Autoarg-KP minor mode globally. | 119 | "Toggle Autoarg-KP mode, a global minor mode. |
| 116 | With ARG, turn Autoarg mode on if ARG is positive, off otherwise. | 120 | With a prefix argument ARG, enable Autoarg-KP mode if ARG is |
| 121 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 122 | the mode if ARG is omitted or nil. | ||
| 123 | |||
| 117 | \\<autoarg-kp-mode-map> | 124 | \\<autoarg-kp-mode-map> |
| 118 | This is similar to \\[autoarg-mode] but rebinds the keypad keys `kp-1' | 125 | This is similar to `autoarg-mode' but rebinds the keypad keys |
| 119 | etc. to supply digit arguments. | 126 | `kp-1' etc. to supply digit arguments. |
| 120 | 127 | ||
| 121 | \\{autoarg-kp-mode-map}" | 128 | \\{autoarg-kp-mode-map}" |
| 122 | nil " Aakp" autoarg-kp-mode-map :global t :group 'keyboard | 129 | nil " Aakp" autoarg-kp-mode-map :global t :group 'keyboard |
diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index 5793c3180be..6d002f4a217 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el | |||
| @@ -397,9 +397,10 @@ or if CONDITION had no actions, after all other CONDITIONs." | |||
| 397 | 397 | ||
| 398 | ;;;###autoload | 398 | ;;;###autoload |
| 399 | (define-minor-mode auto-insert-mode | 399 | (define-minor-mode auto-insert-mode |
| 400 | "Toggle Auto-insert mode. | 400 | "Toggle Auto-insert mode, a global minor mode. |
| 401 | With prefix ARG, turn Auto-insert mode on if and only if ARG is positive. | 401 | With a prefix argument ARG, enable Auto-insert mode if ARG is |
| 402 | Returns the new status of Auto-insert mode (non-nil means on). | 402 | positive, and disable it otherwise. If called from Lisp, enable |
| 403 | the mode if ARG is omitted or nil. | ||
| 403 | 404 | ||
| 404 | When Auto-insert mode is enabled, when new files are created you can | 405 | When Auto-insert mode is enabled, when new files are created you can |
| 405 | insert a template for the file depending on the mode of the buffer." | 406 | insert a template for the file depending on the mode of the buffer." |
diff --git a/lisp/autorevert.el b/lisp/autorevert.el index c67b6663bd0..817aaff55ca 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el | |||
| @@ -284,10 +284,15 @@ the list of old buffers.") | |||
| 284 | 284 | ||
| 285 | ;;;###autoload | 285 | ;;;###autoload |
| 286 | (define-minor-mode auto-revert-mode | 286 | (define-minor-mode auto-revert-mode |
| 287 | "Toggle reverting buffer when file on disk changes. | 287 | "Toggle reverting buffer when the file changes (Auto Revert mode). |
| 288 | With a prefix argument ARG, enable Auto Revert mode if ARG is | ||
| 289 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 290 | the mode if ARG is omitted or nil. | ||
| 291 | |||
| 292 | Auto Revert mode is a minor mode that affects only the current | ||
| 293 | buffer. When enabled, it reverts the buffer when the file on | ||
| 294 | disk changes. | ||
| 288 | 295 | ||
| 289 | With arg, turn Auto Revert mode on if and only if arg is positive. | ||
| 290 | This is a minor mode that affects only the current buffer. | ||
| 291 | Use `global-auto-revert-mode' to automatically revert all buffers. | 296 | Use `global-auto-revert-mode' to automatically revert all buffers. |
| 292 | Use `auto-revert-tail-mode' if you know that the file will only grow | 297 | Use `auto-revert-tail-mode' if you know that the file will only grow |
| 293 | without being changed in the part that is already in the buffer." | 298 | without being changed in the part that is already in the buffer." |
| @@ -314,14 +319,16 @@ This function is designed to be added to hooks, for example: | |||
| 314 | 319 | ||
| 315 | ;;;###autoload | 320 | ;;;###autoload |
| 316 | (define-minor-mode auto-revert-tail-mode | 321 | (define-minor-mode auto-revert-tail-mode |
| 317 | "Toggle reverting tail of buffer when file on disk grows. | 322 | "Toggle reverting tail of buffer when the file grows. |
| 318 | With arg, turn Tail mode on if arg is positive, otherwise turn it off. | 323 | With a prefix argument ARG, enable Auto-Revert Tail mode if ARG |
| 324 | is positive, and disable it otherwise. If called from Lisp, | ||
| 325 | enable the mode if ARG is omitted or nil. | ||
| 319 | 326 | ||
| 320 | When Tail mode is enabled, the tail of the file is constantly | 327 | When Auto Revert Tail mode is enabled, the tail of the file is |
| 321 | followed, as with the shell command `tail -f'. This means that | 328 | constantly followed, as with the shell command `tail -f'. This |
| 322 | whenever the file grows on disk (presumably because some | 329 | means that whenever the file grows on disk (presumably because |
| 323 | background process is appending to it from time to time), this is | 330 | some background process is appending to it from time to time), |
| 324 | reflected in the current buffer. | 331 | this is reflected in the current buffer. |
| 325 | 332 | ||
| 326 | You can edit the buffer and turn this mode off and on again as | 333 | You can edit the buffer and turn this mode off and on again as |
| 327 | you please. But make sure the background process has stopped | 334 | you please. But make sure the background process has stopped |
| @@ -367,7 +374,7 @@ Perform a full revert? ") | |||
| 367 | 374 | ||
| 368 | ;;;###autoload | 375 | ;;;###autoload |
| 369 | (defun turn-on-auto-revert-tail-mode () | 376 | (defun turn-on-auto-revert-tail-mode () |
| 370 | "Turn on Auto-Revert Tail Mode. | 377 | "Turn on Auto-Revert Tail mode. |
| 371 | 378 | ||
| 372 | This function is designed to be added to hooks, for example: | 379 | This function is designed to be added to hooks, for example: |
| 373 | (add-hook 'my-logfile-mode-hook 'turn-on-auto-revert-tail-mode)" | 380 | (add-hook 'my-logfile-mode-hook 'turn-on-auto-revert-tail-mode)" |
| @@ -377,12 +384,13 @@ This function is designed to be added to hooks, for example: | |||
| 377 | ;;;###autoload | 384 | ;;;###autoload |
| 378 | (define-minor-mode global-auto-revert-mode | 385 | (define-minor-mode global-auto-revert-mode |
| 379 | "Toggle Global Auto Revert mode. | 386 | "Toggle Global Auto Revert mode. |
| 380 | With optional prefix argument ARG, enable Global Auto Revert Mode | 387 | With a prefix argument ARG, enable Global Auto Revert mode if ARG |
| 381 | if ARG > 0, else disable it. | 388 | is positive, and disable it otherwise. If called from Lisp, |
| 389 | enable the mode if ARG is omitted or nil. | ||
| 382 | 390 | ||
| 383 | This is a global minor mode that reverts any buffer associated | 391 | Global Auto Revert mode is a global minor mode that reverts any |
| 384 | with a file when the file changes on disk. Use `auto-revert-mode' | 392 | buffer associated with a file when the file changes on disk. Use |
| 385 | to revert a particular buffer. | 393 | `auto-revert-mode' to revert a particular buffer. |
| 386 | 394 | ||
| 387 | If `global-auto-revert-non-file-buffers' is non-nil, this mode | 395 | If `global-auto-revert-non-file-buffers' is non-nil, this mode |
| 388 | may also revert some non-file buffers, as described in the | 396 | may also revert some non-file buffers, as described in the |
diff --git a/lisp/battery.el b/lisp/battery.el index f5c01fbef58..3b245ed644d 100644 --- a/lisp/battery.el +++ b/lisp/battery.el | |||
| @@ -164,10 +164,14 @@ The text being displayed in the echo area is controlled by the variables | |||
| 164 | 164 | ||
| 165 | ;;;###autoload | 165 | ;;;###autoload |
| 166 | (define-minor-mode display-battery-mode | 166 | (define-minor-mode display-battery-mode |
| 167 | "Display battery status information in the mode line. | 167 | "Toggle battery status display in mode line (Display Battery mode). |
| 168 | The text being displayed in the mode line is controlled by the variables | 168 | With a prefix argument ARG, enable Display Battery mode if ARG is |
| 169 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 170 | the mode if ARG is omitted or nil. | ||
| 171 | |||
| 172 | The text displayed in the mode line is controlled by | ||
| 169 | `battery-mode-line-format' and `battery-status-function'. | 173 | `battery-mode-line-format' and `battery-status-function'. |
| 170 | The mode line will be updated automatically every `battery-update-interval' | 174 | The mode line is be updated every `battery-update-interval' |
| 171 | seconds." | 175 | seconds." |
| 172 | :global t :group 'battery | 176 | :global t :group 'battery |
| 173 | (setq battery-mode-line-string "") | 177 | (setq battery-mode-line-string "") |
diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 093e592c475..3dd0e6f78fd 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog | |||
| @@ -1,3 +1,20 @@ | |||
| 1 | 2011-10-23 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * ede.el (ede-maybe-checkout): Function deleted; | ||
| 4 | vc-toggle-read-only does not do version control now. | ||
| 5 | |||
| 6 | * ede/util.el (ede-make-buffer-writable): Don't use | ||
| 7 | vc-toggle-read-only. | ||
| 8 | |||
| 9 | * ede/project-am.el (project-remove-file, project-add-file) | ||
| 10 | (project-new-target): Don't call ede-maybe-checkout. | ||
| 11 | |||
| 12 | 2011-10-19 Chong Yidong <cyd@gnu.org> | ||
| 13 | |||
| 14 | * ede.el (ede-minor-mode,global-ede-mode): | ||
| 15 | * semantic.el (semantic-mode): Doc fix to reflect new | ||
| 16 | define-minor-mode calling behavior. | ||
| 17 | |||
| 1 | 2011-07-30 Chong Yidong <cyd@stupidchicken.com> | 18 | 2011-07-30 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 19 | ||
| 3 | * semantic/grammar.el (semantic-grammar-insert-defanalyzers): Fix | 20 | * semantic/grammar.el (semantic-grammar-insert-defanalyzers): Fix |
diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index 307ccfdadd7..14f09517b1d 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el | |||
| @@ -398,8 +398,9 @@ To be used in hook functions." | |||
| 398 | 398 | ||
| 399 | (define-minor-mode ede-minor-mode | 399 | (define-minor-mode ede-minor-mode |
| 400 | "Toggle EDE (Emacs Development Environment) minor mode. | 400 | "Toggle EDE (Emacs Development Environment) minor mode. |
| 401 | With non-nil argument ARG, enable EDE minor mode if ARG is | 401 | With a prefix argument ARG, enable EDE minor mode if ARG is |
| 402 | positive; otherwise, disable it. | 402 | positive, and disable it otherwise. If called from Lisp, enable |
| 403 | EDE minor mode if ARG is omitted or nil. | ||
| 403 | 404 | ||
| 404 | If this file is contained, or could be contained in an EDE | 405 | If this file is contained, or could be contained in an EDE |
| 405 | controlled project, then this mode is activated automatically | 406 | controlled project, then this mode is activated automatically |
| @@ -458,8 +459,9 @@ ONOFF indicates enabling or disabling the mode." | |||
| 458 | ;;;###autoload | 459 | ;;;###autoload |
| 459 | (define-minor-mode global-ede-mode | 460 | (define-minor-mode global-ede-mode |
| 460 | "Toggle global EDE (Emacs Development Environment) mode. | 461 | "Toggle global EDE (Emacs Development Environment) mode. |
| 461 | With non-nil argument ARG, enable global EDE mode if ARG is | 462 | With a prefix argument ARG, enable global EDE mode if ARG is |
| 462 | positive; otherwise, disable it. | 463 | positive, and disable it otherwise. If called from Lisp, enable |
| 464 | the mode if ARG is omitted or nil. | ||
| 463 | 465 | ||
| 464 | This global minor mode enables `ede-minor-mode' in all buffers in | 466 | This global minor mode enables `ede-minor-mode' in all buffers in |
| 465 | an EDE controlled project." | 467 | an EDE controlled project." |
| @@ -1177,16 +1179,6 @@ See also `ede-map-subprojects'." | |||
| 1177 | Return the first non-nil value returned by PROC." | 1179 | Return the first non-nil value returned by PROC." |
| 1178 | (eval (cons 'or (ede-map-targets this proc)))) | 1180 | (eval (cons 'or (ede-map-targets this proc)))) |
| 1179 | 1181 | ||
| 1180 | ;;; VC Handling | ||
| 1181 | ;; | ||
| 1182 | (defun ede-maybe-checkout (&optional buffer) | ||
| 1183 | "Check BUFFER out of VC if necessary." | ||
| 1184 | (save-excursion | ||
| 1185 | (if buffer (set-buffer buffer)) | ||
| 1186 | (if (and buffer-read-only vc-mode | ||
| 1187 | (y-or-n-p "Checkout Makefile.am from VC? ")) | ||
| 1188 | (vc-toggle-read-only)))) | ||
| 1189 | |||
| 1190 | 1182 | ||
| 1191 | ;;; Some language specific methods. | 1183 | ;;; Some language specific methods. |
| 1192 | ;; | 1184 | ;; |
diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index 88cf67e22ed..ec54d8151bc 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el | |||
| @@ -214,7 +214,6 @@ OT is the object target. DIR is the directory to start in." | |||
| 214 | target (project-am-preferred-target-type (buffer-file-name))))) | 214 | target (project-am-preferred-target-type (buffer-file-name))))) |
| 215 | (ede-with-projectfile ot | 215 | (ede-with-projectfile ot |
| 216 | (makefile-move-to-macro (project-am-macro ot)) | 216 | (makefile-move-to-macro (project-am-macro ot)) |
| 217 | (ede-maybe-checkout) | ||
| 218 | (makefile-end-of-command) | 217 | (makefile-end-of-command) |
| 219 | (insert " " ofn) | 218 | (insert " " ofn) |
| 220 | (makefile-fill-paragraph nil) | 219 | (makefile-fill-paragraph nil) |
| @@ -226,10 +225,6 @@ OT is the object target. DIR is the directory to start in." | |||
| 226 | "Remove the current buffer from any project targets." | 225 | "Remove the current buffer from any project targets." |
| 227 | (ede-with-projectfile ot | 226 | (ede-with-projectfile ot |
| 228 | (makefile-move-to-macro (project-am-macro ot)) | 227 | (makefile-move-to-macro (project-am-macro ot)) |
| 229 | (if (and buffer-read-only vc-mode | ||
| 230 | (y-or-n-p "Checkout Makefile.am from VC? ")) | ||
| 231 | (vc-toggle-read-only t)) | ||
| 232 | (ede-maybe-checkout) | ||
| 233 | (makefile-navigate-macro (concat " *" (regexp-quote (ede-name fnnd)))) | 228 | (makefile-navigate-macro (concat " *" (regexp-quote (ede-name fnnd)))) |
| 234 | (replace-match "" t t nil 0) | 229 | (replace-match "" t t nil 0) |
| 235 | (makefile-fill-paragraph nil) | 230 | (makefile-fill-paragraph nil) |
| @@ -271,7 +266,6 @@ buffer being in order to provide a smart default target type." | |||
| 271 | (if (not ot) (error "Error creating target object %S" ntype)) | 266 | (if (not ot) (error "Error creating target object %S" ntype)) |
| 272 | (ede-with-projectfile ot | 267 | (ede-with-projectfile ot |
| 273 | (goto-char (point-min)) | 268 | (goto-char (point-min)) |
| 274 | (ede-maybe-checkout) | ||
| 275 | (makefile-next-dependency) | 269 | (makefile-next-dependency) |
| 276 | (if (= (point) (point-min)) | 270 | (if (= (point) (point-min)) |
| 277 | (goto-char (point-max)) | 271 | (goto-char (point-max)) |
diff --git a/lisp/cedet/ede/util.el b/lisp/cedet/ede/util.el index fc4536ba88a..053180d4a8b 100644 --- a/lisp/cedet/ede/util.el +++ b/lisp/cedet/ede/util.el | |||
| @@ -87,12 +87,7 @@ their sources to VERSION." | |||
| 87 | If BUFFER isn't specified, use the current buffer." | 87 | If BUFFER isn't specified, use the current buffer." |
| 88 | (save-excursion | 88 | (save-excursion |
| 89 | (if buffer (set-buffer buffer)) | 89 | (if buffer (set-buffer buffer)) |
| 90 | (if buffer-read-only | 90 | (toggle-read-only -1))) |
| 91 | (if (and vc-mode | ||
| 92 | (y-or-n-p (format "Check out %s? " (buffer-file-name)))) | ||
| 93 | (vc-toggle-read-only) | ||
| 94 | (if (not vc-mode) | ||
| 95 | (toggle-read-only -1)))))) | ||
| 96 | 91 | ||
| 97 | (provide 'ede/util) | 92 | (provide 'ede/util) |
| 98 | 93 | ||
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index ce9af0e12b5..34d886b6807 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el | |||
| @@ -1055,8 +1055,10 @@ The possible elements of this list include the following: | |||
| 1055 | 1055 | ||
| 1056 | ;;;###autoload | 1056 | ;;;###autoload |
| 1057 | (define-minor-mode semantic-mode | 1057 | (define-minor-mode semantic-mode |
| 1058 | "Toggle Semantic mode. | 1058 | "Toggle parser features (Semantic mode). |
| 1059 | With ARG, turn Semantic mode on if ARG is positive, off otherwise. | 1059 | With a prefix argument ARG, enable Semantic mode if ARG is |
| 1060 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1061 | Semantic mode if ARG is omitted or nil. | ||
| 1060 | 1062 | ||
| 1061 | In Semantic mode, Emacs parses the buffers you visit for their | 1063 | In Semantic mode, Emacs parses the buffers you visit for their |
| 1062 | semantic content. This information is used by a variety of | 1064 | semantic content. This information is used by a variety of |
diff --git a/lisp/composite.el b/lisp/composite.el index 11a3d5ba388..487962ee07c 100644 --- a/lisp/composite.el +++ b/lisp/composite.el | |||
| @@ -728,12 +728,13 @@ This function is the default value of `auto-composition-function' (which see)." | |||
| 728 | ;;;###autoload | 728 | ;;;###autoload |
| 729 | (define-minor-mode auto-composition-mode | 729 | (define-minor-mode auto-composition-mode |
| 730 | "Toggle Auto Composition mode. | 730 | "Toggle Auto Composition mode. |
| 731 | With ARG, turn Auto Composition mode off if and only if ARG is a non-positive | 731 | With a prefix argument ARG, enable Auto Composition mode if ARG |
| 732 | number; if ARG is nil, toggle Auto Composition mode; anything else turns Auto | 732 | is positive, and disable it otherwise. If called from Lisp, |
| 733 | Composition on. | 733 | enable the mode if ARG is omitted or nil. |
| 734 | 734 | ||
| 735 | When Auto Composition is enabled, text characters are automatically composed | 735 | When Auto Composition mode is enabled, text characters are |
| 736 | by functions registered in `composition-function-table' (which see). | 736 | automatically composed by functions registered in |
| 737 | `composition-function-table'. | ||
| 737 | 738 | ||
| 738 | You can use `global-auto-composition-mode' to turn on | 739 | You can use `global-auto-composition-mode' to turn on |
| 739 | Auto Composition mode in all buffers (this is the default)." | 740 | Auto Composition mode in all buffers (this is the default)." |
| @@ -744,10 +745,13 @@ Auto Composition mode in all buffers (this is the default)." | |||
| 744 | 745 | ||
| 745 | ;;;###autoload | 746 | ;;;###autoload |
| 746 | (define-minor-mode global-auto-composition-mode | 747 | (define-minor-mode global-auto-composition-mode |
| 747 | "Toggle Auto-Composition mode in every possible buffer. | 748 | "Toggle Auto Composition mode in all buffers. |
| 748 | With prefix arg, turn Global-Auto-Composition mode on if and only if arg | 749 | With a prefix argument ARG, enable it if ARG is positive, and |
| 749 | is positive. | 750 | disable it otherwise. If called from Lisp, enable it if ARG is |
| 750 | See `auto-composition-mode' for more information on Auto-Composition mode." | 751 | omitted or nil. |
| 752 | |||
| 753 | For more information on Auto Composition mode, see | ||
| 754 | `auto-composition-mode' ." | ||
| 751 | :variable (default-value 'auto-composition-mode)) | 755 | :variable (default-value 'auto-composition-mode)) |
| 752 | 756 | ||
| 753 | (defalias 'toggle-auto-composition 'auto-composition-mode) | 757 | (defalias 'toggle-auto-composition 'auto-composition-mode) |
diff --git a/lisp/delsel.el b/lisp/delsel.el index 705b64be89d..6d2c47f3957 100644 --- a/lisp/delsel.el +++ b/lisp/delsel.el | |||
| @@ -56,8 +56,9 @@ | |||
| 56 | ;;;###autoload | 56 | ;;;###autoload |
| 57 | (define-minor-mode delete-selection-mode | 57 | (define-minor-mode delete-selection-mode |
| 58 | "Toggle Delete Selection mode. | 58 | "Toggle Delete Selection mode. |
| 59 | With prefix ARG, turn Delete Selection mode on if ARG is | 59 | With a prefix argument ARG, enable Delete Selection mode if ARG |
| 60 | positive, off if ARG is not positive. | 60 | is positive, and disable it otherwise. If called from Lisp, |
| 61 | enable the mode if ARG is omitted or nil. | ||
| 61 | 62 | ||
| 62 | When Delete Selection mode is enabled, Transient Mark mode is also | 63 | When Delete Selection mode is enabled, Transient Mark mode is also |
| 63 | enabled and typed text replaces the selection if the selection is | 64 | enabled and typed text replaces the selection if the selection is |
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 7d267cec480..c175bd7c3c7 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el | |||
| @@ -606,7 +606,8 @@ as well as widgets, buttons, overlays, and text properties." | |||
| 606 | 'trailing-whitespace) | 606 | 'trailing-whitespace) |
| 607 | ((and nobreak-char-display char (eq char '#xa0)) | 607 | ((and nobreak-char-display char (eq char '#xa0)) |
| 608 | 'nobreak-space) | 608 | 'nobreak-space) |
| 609 | ((and nobreak-char-display char (eq char '#xad)) | 609 | ((and nobreak-char-display char |
| 610 | (memq char '(#xad #x2010 #x2011))) | ||
| 610 | 'escape-glyph) | 611 | 'escape-glyph) |
| 611 | ((and (< char 32) (not (memq char '(9 10)))) | 612 | ((and (< char 32) (not (memq char '(9 10)))) |
| 612 | 'escape-glyph))))) | 613 | 'escape-glyph))))) |
diff --git a/lisp/desktop.el b/lisp/desktop.el index c60745a6b16..cdc787dfde9 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el | |||
| @@ -147,11 +147,14 @@ backward compatibility.") | |||
| 147 | 147 | ||
| 148 | ;;;###autoload | 148 | ;;;###autoload |
| 149 | (define-minor-mode desktop-save-mode | 149 | (define-minor-mode desktop-save-mode |
| 150 | "Toggle desktop saving mode. | 150 | "Toggle desktop saving (Desktop Save mode). |
| 151 | With numeric ARG, turn desktop saving on if ARG is positive, off | 151 | With a prefix argument ARG, enable Desktop Save mode if ARG is |
| 152 | otherwise. If desktop saving is turned on, the state of Emacs is | 152 | positive, and disable it otherwise. If called from Lisp, enable |
| 153 | saved from one session to another. See variable `desktop-save' | 153 | the mode if ARG is omitted or nil. |
| 154 | and function `desktop-read' for details." | 154 | |
| 155 | If Desktop Save mode is enabled, the state of Emacs is saved from | ||
| 156 | one session to another. See variable `desktop-save' and function | ||
| 157 | `desktop-read' for details." | ||
| 155 | :global t | 158 | :global t |
| 156 | :group 'desktop) | 159 | :group 'desktop) |
| 157 | 160 | ||
diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 0f2cfd4973f..aaddc479b2a 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el | |||
| @@ -133,16 +133,20 @@ If nil, there is no maximum size." | |||
| 133 | :group 'dired-x) | 133 | :group 'dired-x) |
| 134 | 134 | ||
| 135 | (define-minor-mode dired-omit-mode | 135 | (define-minor-mode dired-omit-mode |
| 136 | "Toggle Dired-Omit mode. | 136 | "Toggle omission of uninteresting files in Dired (Dired-Omit mode). |
| 137 | With numeric ARG, enable Dired-Omit mode if ARG is positive, disable | 137 | With a prefix argument ARG, enable Dired-Omit mode if ARG is |
| 138 | otherwise. Enabling and disabling is buffer-local. | 138 | positive, and disable it otherwise. If called from Lisp, enable |
| 139 | If enabled, \"uninteresting\" files are not listed. | 139 | the mode if ARG is omitted or nil. |
| 140 | Uninteresting files are those whose filenames match regexp `dired-omit-files', | ||
| 141 | plus those ending with extensions in `dired-omit-extensions'. | ||
| 142 | 140 | ||
| 143 | To enable omitting in every Dired buffer, you can put in your ~/.emacs | 141 | Dired-Omit mode is a buffer-local minor mode. When enabled in a |
| 142 | Dired buffer, Dired does not list files whose filenames match | ||
| 143 | regexp `dired-omit-files', nor files ending with extensions in | ||
| 144 | `dired-omit-extensions'. | ||
| 144 | 145 | ||
| 145 | (add-hook 'dired-mode-hook (lambda () (dired-omit-mode 1))) | 146 | To enable omitting in every Dired buffer, you can put this in |
| 147 | your init file: | ||
| 148 | |||
| 149 | (add-hook 'dired-mode-hook (lambda () (dired-omit-mode))) | ||
| 146 | 150 | ||
| 147 | See Info node `(dired-x) Omitting Variables' for more information." | 151 | See Info node `(dired-x) Omitting Variables' for more information." |
| 148 | :group 'dired-x | 152 | :group 'dired-x |
diff --git a/lisp/dired.el b/lisp/dired.el index 60ba14ade84..3ff86869a78 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -4128,7 +4128,7 @@ instead. | |||
| 4128 | ;;;*** | 4128 | ;;;*** |
| 4129 | 4129 | ||
| 4130 | ;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump) | 4130 | ;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump) |
| 4131 | ;;;;;; "dired-x" "dired-x.el" "219648338c42c7912fa336680b434db0") | 4131 | ;;;;;; "dired-x" "dired-x.el" "0a19e4cb2cadf007be715af1035c9c36") |
| 4132 | ;;; Generated autoloads from dired-x.el | 4132 | ;;; Generated autoloads from dired-x.el |
| 4133 | 4133 | ||
| 4134 | (autoload 'dired-jump "dired-x" "\ | 4134 | (autoload 'dired-jump "dired-x" "\ |
diff --git a/lisp/dirtrack.el b/lisp/dirtrack.el index 23a05816a2d..eef8c111da5 100644 --- a/lisp/dirtrack.el +++ b/lisp/dirtrack.el | |||
| @@ -183,7 +183,11 @@ and ends with a forward slash." | |||
| 183 | 183 | ||
| 184 | ;;;###autoload | 184 | ;;;###autoload |
| 185 | (define-minor-mode dirtrack-mode | 185 | (define-minor-mode dirtrack-mode |
| 186 | "Enable or disable Dirtrack directory tracking in a shell buffer. | 186 | "Toggle directory tracking in shell buffers (Dirtrack mode). |
| 187 | With a prefix argument ARG, enable Dirtrack mode if ARG is | ||
| 188 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 189 | the mode if ARG is omitted or nil. | ||
| 190 | |||
| 187 | This method requires that your shell prompt contain the full | 191 | This method requires that your shell prompt contain the full |
| 188 | current working directory at all times, and that `dirtrack-list' | 192 | current working directory at all times, and that `dirtrack-list' |
| 189 | is set to match the prompt. This is an alternative to | 193 | is set to match the prompt. This is an alternative to |
| @@ -199,7 +203,7 @@ and similar commands which change the shell working directory." | |||
| 199 | 203 | ||
| 200 | 204 | ||
| 201 | (define-minor-mode dirtrack-debug-mode | 205 | (define-minor-mode dirtrack-debug-mode |
| 202 | "Enable or disable Dirtrack debugging." | 206 | "Toggle Dirtrack debugging." |
| 203 | nil nil nil | 207 | nil nil nil |
| 204 | (if dirtrack-debug-mode | 208 | (if dirtrack-debug-mode |
| 205 | (display-buffer (get-buffer-create dirtrack-debug-buffer)))) | 209 | (display-buffer (get-buffer-create dirtrack-debug-buffer)))) |
diff --git a/lisp/doc-view.el b/lisp/doc-view.el index 872b2172c7e..ceaad83cd7c 100644 --- a/lisp/doc-view.el +++ b/lisp/doc-view.el | |||
| @@ -1502,8 +1502,11 @@ to the next best mode." | |||
| 1502 | 1502 | ||
| 1503 | ;;;###autoload | 1503 | ;;;###autoload |
| 1504 | (define-minor-mode doc-view-minor-mode | 1504 | (define-minor-mode doc-view-minor-mode |
| 1505 | "Toggle Doc view minor mode. | 1505 | "Toggle displaying buffer via Doc View (Doc View minor mode). |
| 1506 | With arg, turn Doc view minor mode on if arg is positive, off otherwise. | 1506 | With a prefix argument ARG, enable Doc View minor mode if ARG is |
| 1507 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1508 | the mode if ARG is omitted or nil. | ||
| 1509 | |||
| 1507 | See the command `doc-view-mode' for more information on this mode." | 1510 | See the command `doc-view-mode' for more information on this mode." |
| 1508 | nil " DocView" doc-view-minor-mode-map | 1511 | nil " DocView" doc-view-minor-mode-map |
| 1509 | :group 'doc-view | 1512 | :group 'doc-view |
diff --git a/lisp/double.el b/lisp/double.el index 4aa8da72af7..2a845f61942 100644 --- a/lisp/double.el +++ b/lisp/double.el | |||
| @@ -146,12 +146,13 @@ but not `C-u X' or `ESC X' since the X is not the prefix key." | |||
| 146 | 146 | ||
| 147 | ;;;###autoload | 147 | ;;;###autoload |
| 148 | (define-minor-mode double-mode | 148 | (define-minor-mode double-mode |
| 149 | "Toggle Double mode. | 149 | "Toggle special insertion on double keypresses (Double mode). |
| 150 | With prefix argument ARG, turn Double mode on if ARG is positive, otherwise | 150 | With a prefix argument ARG, enable Double mode if ARG is |
| 151 | turn it off. | 151 | positive, and disable it otherwise. If called from Lisp, enable |
| 152 | the mode if ARG is omitted or nil. | ||
| 152 | 153 | ||
| 153 | When Double mode is on, some keys will insert different strings | 154 | When Double mode is enabled, some keys will insert different |
| 154 | when pressed twice. See variable `double-map' for details." | 155 | strings when pressed twice. See `double-map' for details." |
| 155 | :lighter " Double" | 156 | :lighter " Double" |
| 156 | :link '(emacs-commentary-link "double") | 157 | :link '(emacs-commentary-link "double") |
| 157 | (kill-local-variable 'key-translation-map) | 158 | (kill-local-variable 'key-translation-map) |
diff --git a/lisp/electric.el b/lisp/electric.el index 17c33c7d5cd..26fba20ea12 100644 --- a/lisp/electric.el +++ b/lisp/electric.el | |||
| @@ -241,8 +241,14 @@ Returns nil when we can't find this char." | |||
| 241 | 241 | ||
| 242 | ;;;###autoload | 242 | ;;;###autoload |
| 243 | (define-minor-mode electric-indent-mode | 243 | (define-minor-mode electric-indent-mode |
| 244 | "Automatically reindent lines of code when inserting particular chars. | 244 | "Toggle on-the-fly reindentation (Electric Indent mode). |
| 245 | `electric-indent-chars' specifies the set of chars that should cause reindentation." | 245 | With a prefix argument ARG, enable Electric Indent mode if ARG is |
| 246 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 247 | the mode if ARG is omitted or nil. | ||
| 248 | |||
| 249 | Electric Indent mode is a global minor mode. When enabled, | ||
| 250 | reindentation is triggered whenever you insert a character listed | ||
| 251 | in `electric-indent-chars'." | ||
| 246 | :global t | 252 | :global t |
| 247 | :group 'electricity | 253 | :group 'electricity |
| 248 | (if electric-indent-mode | 254 | (if electric-indent-mode |
| @@ -330,7 +336,14 @@ This can be convenient for people who find it easier to hit ) than C-f." | |||
| 330 | 336 | ||
| 331 | ;;;###autoload | 337 | ;;;###autoload |
| 332 | (define-minor-mode electric-pair-mode | 338 | (define-minor-mode electric-pair-mode |
| 333 | "Automatically pair-up parens when inserting an open paren." | 339 | "Toggle automatic parens pairing (Electric Pair mode). |
| 340 | With a prefix argument ARG, enable Electric Pair mode if ARG is | ||
| 341 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 342 | the mode if ARG is omitted or nil. | ||
| 343 | |||
| 344 | Electric Pair mode is a global minor mode. When enabled, typing | ||
| 345 | an open parenthesis automatically inserts the corresponding | ||
| 346 | closing parenthesis. \(Likewise for brackets, etc.)" | ||
| 334 | :global t | 347 | :global t |
| 335 | :group 'electricity | 348 | :group 'electricity |
| 336 | (if electric-pair-mode | 349 | (if electric-pair-mode |
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 7eb6e6ef765..c9e32023187 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el | |||
| @@ -1237,9 +1237,10 @@ generating a buffered list of errors." | |||
| 1237 | 1237 | ||
| 1238 | ;;;###autoload | 1238 | ;;;###autoload |
| 1239 | (define-minor-mode checkdoc-minor-mode | 1239 | (define-minor-mode checkdoc-minor-mode |
| 1240 | "Toggle Checkdoc minor mode, a mode for checking Lisp doc strings. | 1240 | "Toggle automatic docstring checking (Checkdoc minor mode). |
| 1241 | With prefix ARG, turn Checkdoc minor mode on if ARG is positive, otherwise | 1241 | With a prefix argument ARG, enable Checkdoc minor mode if ARG is |
| 1242 | turn it off. | 1242 | positive, and disable it otherwise. If called from Lisp, enable |
| 1243 | the mode if ARG is omitted or nil. | ||
| 1243 | 1244 | ||
| 1244 | In Checkdoc minor mode, the usual bindings for `eval-defun' which is | 1245 | In Checkdoc minor mode, the usual bindings for `eval-defun' which is |
| 1245 | bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include | 1246 | bound to \\<checkdoc-minor-mode-map>\\[checkdoc-eval-defun] and `checkdoc-eval-current-buffer' are overridden to include |
diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 46dc1f162ba..b1cb0615e43 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el | |||
| @@ -350,14 +350,16 @@ call another major mode in their body." | |||
| 350 | (define-minor-mode ,global-mode | 350 | (define-minor-mode ,global-mode |
| 351 | ;; Very short lines to avoid too long lines in the generated | 351 | ;; Very short lines to avoid too long lines in the generated |
| 352 | ;; doc string. | 352 | ;; doc string. |
| 353 | ,(format "Toggle %s in every possible buffer. | 353 | ,(format "Toggle %s in all buffers. |
| 354 | With prefix ARG, turn %s on if and only if | 354 | With prefix ARG, enable %s if ARG is positive; |
| 355 | ARG is positive. | 355 | otherwise, disable it. If called from Lisp, enable the mode if |
| 356 | ARG is omitted or nil. | ||
| 357 | |||
| 356 | %s is enabled in all buffers where | 358 | %s is enabled in all buffers where |
| 357 | \`%s' would do it. | 359 | \`%s' would do it. |
| 358 | See `%s' for more information on %s." | 360 | See `%s' for more information on %s." |
| 359 | pretty-name pretty-global-name pretty-name turn-on | 361 | pretty-name pretty-global-name |
| 360 | mode pretty-name) | 362 | pretty-name turn-on mode pretty-name) |
| 361 | :global t ,@group ,@(nreverse extra-keywords) | 363 | :global t ,@group ,@(nreverse extra-keywords) |
| 362 | 364 | ||
| 363 | ;; Setup hook to handle future mode changes and new buffers. | 365 | ;; Setup hook to handle future mode changes and new buffers. |
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el index cd9b779bee9..901b6d1bf6a 100644 --- a/lisp/emacs-lisp/eldoc.el +++ b/lisp/emacs-lisp/eldoc.el | |||
| @@ -149,14 +149,17 @@ This is used to determine if `eldoc-idle-delay' is changed by the user.") | |||
| 149 | 149 | ||
| 150 | ;;;###autoload | 150 | ;;;###autoload |
| 151 | (define-minor-mode eldoc-mode | 151 | (define-minor-mode eldoc-mode |
| 152 | "Toggle ElDoc mode on or off. | 152 | "Toggle echo area display of Lisp objects at point (ElDoc mode). |
| 153 | In ElDoc mode, the echo area displays information about a | 153 | With a prefix argument ARG, enable ElDoc mode if ARG is positive, |
| 154 | function or variable in the text where point is. If point is | 154 | and disable it otherwise. If called from Lisp, enable ElDoc mode |
| 155 | on a documented variable, it displays the first line of that | 155 | if ARG is omitted or nil. |
| 156 | variable's doc string. Otherwise it displays the argument list | 156 | |
| 157 | of the function called in the expression point is on. | 157 | ElDoc mode is a buffer-local minor mode. When enabled, the echo |
| 158 | 158 | area displays information about a function or variable in the | |
| 159 | With prefix ARG, turn ElDoc mode on if and only if ARG is positive." | 159 | text where point is. If point is on a documented variable, it |
| 160 | displays the first line of that variable's doc string. Otherwise | ||
| 161 | it displays the argument list of the function called in the | ||
| 162 | expression point is on." | ||
| 160 | :group 'eldoc :lighter eldoc-minor-mode-string | 163 | :group 'eldoc :lighter eldoc-minor-mode-string |
| 161 | (setq eldoc-last-message nil) | 164 | (setq eldoc-last-message nil) |
| 162 | (if eldoc-mode | 165 | (if eldoc-mode |
diff --git a/lisp/emacs-lock.el b/lisp/emacs-lock.el index 18411f7d2ef..f2c93473015 100644 --- a/lisp/emacs-lock.el +++ b/lisp/emacs-lock.el | |||
| @@ -176,14 +176,16 @@ Return a value appropriate for `kill-buffer-query-functions' (which see)." | |||
| 176 | 176 | ||
| 177 | ;;;###autoload | 177 | ;;;###autoload |
| 178 | (define-minor-mode emacs-lock-mode | 178 | (define-minor-mode emacs-lock-mode |
| 179 | "Toggle Emacs Lock mode in the current buffer. | 179 | "Toggle Emacs Lock mode in the current buffer. |
| 180 | 180 | If called with a plain prefix argument, ask for the locking mode | |
| 181 | With \\[universal-argument], ask for the locking mode to be used. | 181 | to be used. With any other prefix ARG, turn mode on if ARG is |
| 182 | With other prefix ARG, turn mode on if ARG is positive, off otherwise. | 182 | positive, off otherwise. If called from Lisp, enable the mode if |
| 183 | 183 | ARG is omitted or nil. | |
| 184 | Initially, if the user does not pass an explicit locking mode, it defaults | 184 | |
| 185 | to `emacs-lock-default-locking-mode' (which see); afterwards, the locking | 185 | Initially, if the user does not pass an explicit locking mode, it |
| 186 | mode most recently set on the buffer is used instead. | 186 | defaults to `emacs-lock-default-locking-mode' (which see); |
| 187 | afterwards, the locking mode most recently set on the buffer is | ||
| 188 | used instead. | ||
| 187 | 189 | ||
| 188 | When called from Elisp code, ARG can be any locking mode: | 190 | When called from Elisp code, ARG can be any locking mode: |
| 189 | 191 | ||
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index b2806e8f8eb..567a57949b3 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el | |||
| @@ -349,8 +349,10 @@ normal CRiSP binding) and when it is nil M-x will run | |||
| 349 | 349 | ||
| 350 | ;;;###autoload | 350 | ;;;###autoload |
| 351 | (define-minor-mode crisp-mode | 351 | (define-minor-mode crisp-mode |
| 352 | "Toggle CRiSP/Brief emulation minor mode. | 352 | "Toggle CRiSP/Brief emulation (CRiSP mode). |
| 353 | With ARG, turn CRiSP mode on if ARG is positive, off otherwise." | 353 | With a prefix argument ARG, enable CRiSP mode if ARG is positive, |
| 354 | and disable it otherwise. If called from Lisp, enable the mode | ||
| 355 | if ARG is omitted or nil." | ||
| 354 | :keymap crisp-mode-map | 356 | :keymap crisp-mode-map |
| 355 | :lighter crisp-mode-modeline-string | 357 | :lighter crisp-mode-modeline-string |
| 356 | (when crisp-mode | 358 | (when crisp-mode |
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index b643d521ad6..9a50352d507 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1121,7 +1121,7 @@ With a double \\[universal-argument] prefix argument, unconditionally set mark." | |||
| 1121 | (pop-to-mark-command))) | 1121 | (pop-to-mark-command))) |
| 1122 | ((and cua-toggle-set-mark mark-active) | 1122 | ((and cua-toggle-set-mark mark-active) |
| 1123 | (cua--deactivate) | 1123 | (cua--deactivate) |
| 1124 | (message "Mark Cleared")) | 1124 | (message "Mark cleared")) |
| 1125 | (t | 1125 | (t |
| 1126 | (push-mark-command nil nil) | 1126 | (push-mark-command nil nil) |
| 1127 | (setq cua--explicit-region-start t) | 1127 | (setq cua--explicit-region-start t) |
| @@ -1531,16 +1531,17 @@ If ARG is the atom `-', scroll upward by nearly full screen." | |||
| 1531 | 1531 | ||
| 1532 | ;;;###autoload | 1532 | ;;;###autoload |
| 1533 | (define-minor-mode cua-mode | 1533 | (define-minor-mode cua-mode |
| 1534 | "Toggle CUA key-binding mode. | 1534 | "Toggle Common User Access style editing (CUA mode). |
| 1535 | When enabled, using shifted movement keys will activate the | 1535 | With a prefix argument ARG, enable CUA mode if ARG is positive, |
| 1536 | region (and highlight the region using `transient-mark-mode'), | 1536 | and disable it otherwise. If called from Lisp, enable the mode |
| 1537 | and typed text replaces the active selection. | 1537 | if ARG is omitted or nil. |
| 1538 | 1538 | ||
| 1539 | Also when enabled, you can use C-z, C-x, C-c, and C-v to undo, | 1539 | CUA mode is a global minor mode. When enabled, typed text |
| 1540 | cut, copy, and paste in addition to the normal Emacs bindings. | 1540 | replaces the active selection, and you can use C-z, C-x, C-c, and |
| 1541 | The C-x and C-c keys only do cut and copy when the region is | 1541 | C-v to undo, cut, copy, and paste in addition to the normal Emacs |
| 1542 | active, so in most cases, they do not conflict with the normal | 1542 | bindings. The C-x and C-c keys only do cut and copy when the |
| 1543 | function of these prefix keys. | 1543 | region is active, so in most cases, they do not conflict with the |
| 1544 | normal function of these prefix keys. | ||
| 1544 | 1545 | ||
| 1545 | If you really need to perform a command which starts with one of | 1546 | If you really need to perform a command which starts with one of |
| 1546 | the prefix keys even when the region is active, you have three | 1547 | the prefix keys even when the region is active, you have three |
diff --git a/lisp/epa-hook.el b/lisp/epa-hook.el index 652ab19ba65..ea036e836e4 100644 --- a/lisp/epa-hook.el +++ b/lisp/epa-hook.el | |||
| @@ -49,7 +49,7 @@ does that automatically." | |||
| 49 | :group 'epa-file) | 49 | :group 'epa-file) |
| 50 | 50 | ||
| 51 | (defvar epa-file-encrypt-to nil | 51 | (defvar epa-file-encrypt-to nil |
| 52 | "*Recipient(s) used for encrypting files. | 52 | "Recipient(s) used for encrypting files. |
| 53 | May either be a string or a list of strings.") | 53 | May either be a string or a list of strings.") |
| 54 | 54 | ||
| 55 | (put 'epa-file-encrypt-to 'safe-local-variable | 55 | (put 'epa-file-encrypt-to 'safe-local-variable |
| @@ -83,9 +83,10 @@ May either be a string or a list of strings.") | |||
| 83 | (auto-save-mode 0))) | 83 | (auto-save-mode 0))) |
| 84 | 84 | ||
| 85 | (define-minor-mode auto-encryption-mode | 85 | (define-minor-mode auto-encryption-mode |
| 86 | "Toggle automatic file encryption and decryption. | 86 | "Toggle automatic file encryption/decryption (Auto Encryption mode). |
| 87 | With prefix argument ARG, turn auto encryption on if positive, else off. | 87 | With a prefix argument ARG, enable Auto Encryption mode if ARG is |
| 88 | Return the new status of auto encryption (non-nil means on)." | 88 | positive, and disable it otherwise. If called from Lisp, enable |
| 89 | the mode if ARG is omitted or nil." | ||
| 89 | :global t :init-value t :group 'epa-file :version "23.1" | 90 | :global t :init-value t :group 'epa-file :version "23.1" |
| 90 | ;; We'd like to use custom-initialize-set here so the setup is done | 91 | ;; We'd like to use custom-initialize-set here so the setup is done |
| 91 | ;; before dumping, but at the point where the defcustom is evaluated, | 92 | ;; before dumping, but at the point where the defcustom is evaluated, |
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 7c7f10de2c8..d72d3f51bb1 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog | |||
| @@ -1,3 +1,11 @@ | |||
| 1 | 2011-10-20 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * erc.el (define-erc-module): Fix autogenerated docstring to | ||
| 4 | reflect Emacs 24 minor mode changes. | ||
| 5 | |||
| 6 | * erc-fill.el (erc-fill-mode): | ||
| 7 | * erc-track.el (erc-track-minor-mode): Doc fix. | ||
| 8 | |||
| 1 | 2011-09-23 Antoine Levitt <antoine.levitt@gmail.com> | 9 | 2011-09-23 Antoine Levitt <antoine.levitt@gmail.com> |
| 2 | 10 | ||
| 3 | * erc-button.el (erc-button-next-function): Scoping fix | 11 | * erc-button.el (erc-button-next-function): Scoping fix |
diff --git a/lisp/erc/erc-fill.el b/lisp/erc/erc-fill.el index 0b9a4051d65..3940cfbc9a4 100644 --- a/lisp/erc/erc-fill.el +++ b/lisp/erc/erc-fill.el | |||
| @@ -39,9 +39,12 @@ | |||
| 39 | ;;;###autoload (autoload 'erc-fill-mode "erc-fill" nil t) | 39 | ;;;###autoload (autoload 'erc-fill-mode "erc-fill" nil t) |
| 40 | (erc-define-minor-mode erc-fill-mode | 40 | (erc-define-minor-mode erc-fill-mode |
| 41 | "Toggle ERC fill mode. | 41 | "Toggle ERC fill mode. |
| 42 | With numeric arg, turn ERC fill mode on if and only if arg is | 42 | With a prefix argument ARG, enable ERC fill mode if ARG is |
| 43 | positive. In ERC fill mode, messages in the channel buffers are | 43 | positive, and disable it otherwise. If called from Lisp, enable |
| 44 | filled." | 44 | the mode if ARG is omitted or nil. |
| 45 | |||
| 46 | ERC fill mode is a global minor mode. When enabled, messages in | ||
| 47 | the channel buffers are filled." | ||
| 45 | nil nil nil | 48 | nil nil nil |
| 46 | :global t :group 'erc-fill | 49 | :global t :group 'erc-fill |
| 47 | (if erc-fill-mode | 50 | (if erc-fill-mode |
diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index 28c1ced91c6..b663aeed423 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el | |||
| @@ -588,12 +588,15 @@ START is the minimum length of the name used." | |||
| 588 | 588 | ||
| 589 | ;;;###autoload | 589 | ;;;###autoload |
| 590 | (define-minor-mode erc-track-minor-mode | 590 | (define-minor-mode erc-track-minor-mode |
| 591 | "Global minor mode for tracking ERC buffers and showing activity in the | 591 | "Toggle mode line display of ERC activity (ERC Track minor mode). |
| 592 | mode line. | 592 | With a prefix argument ARG, enable ERC Track minor mode if ARG is |
| 593 | 593 | positive, and disable it otherwise. If called from Lisp, enable | |
| 594 | This exists for the sole purpose of providing the C-c C-SPC and | 594 | the mode if ARG is omitted or nil. |
| 595 | C-c C-@ keybindings. Make sure that you have enabled the track | 595 | |
| 596 | module, otherwise the keybindings will not do anything useful." | 596 | ERC Track minor mode is a global minor mode. It exists for the |
| 597 | sole purpose of providing the C-c C-SPC and C-c C-@ keybindings. | ||
| 598 | Make sure that you have enabled the track module, otherwise the | ||
| 599 | keybindings will not do anything useful." | ||
| 597 | :init-value nil | 600 | :init-value nil |
| 598 | :lighter "" | 601 | :lighter "" |
| 599 | :keymap erc-track-minor-mode-map | 602 | :keymap erc-track-minor-mode-map |
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index a4040b239c1..2d8c2565f69 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -1242,7 +1242,9 @@ Example: | |||
| 1242 | (erc-define-minor-mode | 1242 | (erc-define-minor-mode |
| 1243 | ,mode | 1243 | ,mode |
| 1244 | ,(format "Toggle ERC %S mode. | 1244 | ,(format "Toggle ERC %S mode. |
| 1245 | With arg, turn ERC %S mode on if and only if arg is positive. | 1245 | With a prefix argument ARG, enable %s if ARG is positive, |
| 1246 | and disable it otherwise. If called from Lisp, enable the mode | ||
| 1247 | if ARG is omitted or nil. | ||
| 1246 | %s" name name doc) | 1248 | %s" name name doc) |
| 1247 | nil nil nil | 1249 | nil nil nil |
| 1248 | :global ,(not local-p) :group (quote ,group) | 1250 | :global ,(not local-p) :group (quote ,group) |
diff --git a/lisp/face-remap.el b/lisp/face-remap.el index 9e5ab58636b..bfd973a299f 100644 --- a/lisp/face-remap.el +++ b/lisp/face-remap.el | |||
| @@ -204,7 +204,7 @@ Each positive or negative step scales the default face height by this amount." | |||
| 204 | (make-variable-buffer-local 'text-scale-mode-amount) | 204 | (make-variable-buffer-local 'text-scale-mode-amount) |
| 205 | 205 | ||
| 206 | (define-minor-mode text-scale-mode | 206 | (define-minor-mode text-scale-mode |
| 207 | "Minor mode for displaying buffer text in a larger/smaller font than usual. | 207 | "Minor mode for displaying buffer text in a larger/smaller font. |
| 208 | 208 | ||
| 209 | The amount of scaling is determined by the variable | 209 | The amount of scaling is determined by the variable |
| 210 | `text-scale-mode-amount': one step scales the global default | 210 | `text-scale-mode-amount': one step scales the global default |
diff --git a/lisp/files.el b/lisp/files.el index 6321cff91fd..3ed9bd5a272 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -4700,11 +4700,7 @@ and `view-read-only' is non-nil, enter view mode." | |||
| 4700 | (not (eq (get major-mode 'mode-class) 'special))) | 4700 | (not (eq (get major-mode 'mode-class) 'special))) |
| 4701 | (view-mode-enter)) | 4701 | (view-mode-enter)) |
| 4702 | (t (setq buffer-read-only (not buffer-read-only)) | 4702 | (t (setq buffer-read-only (not buffer-read-only)) |
| 4703 | (force-mode-line-update))) | 4703 | (force-mode-line-update))))) |
| 4704 | (if (memq (vc-backend buffer-file-name) '(RCS SCCS)) | ||
| 4705 | (message "%s" (substitute-command-keys | ||
| 4706 | (concat "File is under version-control; " | ||
| 4707 | "use \\[vc-next-action] to check in/out")))))) | ||
| 4708 | 4704 | ||
| 4709 | (defun insert-file (filename) | 4705 | (defun insert-file (filename) |
| 4710 | "Insert contents of file FILENAME into buffer after point. | 4706 | "Insert contents of file FILENAME into buffer after point. |
diff --git a/lisp/follow.el b/lisp/follow.el index 94a542f1016..37295cc533b 100644 --- a/lisp/follow.el +++ b/lisp/follow.el | |||
| @@ -484,10 +484,13 @@ Used by `follow-window-size-change'.") | |||
| 484 | (put 'follow-mode 'permanent-local t) | 484 | (put 'follow-mode 'permanent-local t) |
| 485 | ;;;###autoload | 485 | ;;;###autoload |
| 486 | (define-minor-mode follow-mode | 486 | (define-minor-mode follow-mode |
| 487 | "Minor mode that combines windows into one tall virtual window. | 487 | "Toggle Follow mode. |
| 488 | With a prefix argument ARG, enable Follow mode if ARG is | ||
| 489 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 490 | the mode if ARG is omitted or nil. | ||
| 488 | 491 | ||
| 489 | The feeling of a \"virtual window\" has been accomplished by the use | 492 | Follow mode is a minor mode that combines windows into one tall |
| 490 | of two major techniques: | 493 | virtual window. This is accomplished by two main techniques: |
| 491 | 494 | ||
| 492 | * The windows always displays adjacent sections of the buffer. | 495 | * The windows always displays adjacent sections of the buffer. |
| 493 | This means that whenever one window is moved, all the | 496 | This means that whenever one window is moved, all the |
diff --git a/lisp/font-core.el b/lisp/font-core.el index fcaaf33b718..0db17efd7b7 100644 --- a/lisp/font-core.el +++ b/lisp/font-core.el | |||
| @@ -86,12 +86,12 @@ It will be passed one argument, which is the current value of | |||
| 86 | 86 | ||
| 87 | ;; The mode for which font-lock was initialized, or nil if none. | 87 | ;; The mode for which font-lock was initialized, or nil if none. |
| 88 | (defvar font-lock-major-mode) | 88 | (defvar font-lock-major-mode) |
| 89 | |||
| 89 | (define-minor-mode font-lock-mode | 90 | (define-minor-mode font-lock-mode |
| 90 | "Toggle Font Lock mode. | 91 | "Toggle syntax highlighting in this buffer (Font Lock mode). |
| 91 | With arg, turn Font Lock mode off if and only if arg is a non-positive | 92 | With a prefix argument ARG, enable Font Lock mode if ARG is |
| 92 | number; if arg is nil, toggle Font Lock mode; anything else turns Font | 93 | positive, and disable it otherwise. If called from Lisp, enable |
| 93 | Lock on. | 94 | the mode if ARG is omitted or nil. |
| 94 | \(Font Lock is also known as \"syntax highlighting\".) | ||
| 95 | 95 | ||
| 96 | When Font Lock mode is enabled, text is fontified as you type it: | 96 | When Font Lock mode is enabled, text is fontified as you type it: |
| 97 | 97 | ||
diff --git a/lisp/frame.el b/lisp/frame.el index ab9b085f1d9..8359fed14a4 100644 --- a/lisp/frame.el +++ b/lisp/frame.el | |||
| @@ -1134,7 +1134,10 @@ To get the frame's current border color, use `frame-parameters'." | |||
| 1134 | 1134 | ||
| 1135 | (define-minor-mode auto-raise-mode | 1135 | (define-minor-mode auto-raise-mode |
| 1136 | "Toggle whether or not the selected frame should auto-raise. | 1136 | "Toggle whether or not the selected frame should auto-raise. |
| 1137 | With ARG, turn auto-raise mode on if and only if ARG is positive. | 1137 | With a prefix argument ARG, enable Auto Raise mode if ARG is |
| 1138 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1139 | the mode if ARG is omitted or nil. | ||
| 1140 | |||
| 1138 | Note that this controls Emacs's own auto-raise feature. | 1141 | Note that this controls Emacs's own auto-raise feature. |
| 1139 | Some window managers allow you to enable auto-raise for certain windows. | 1142 | Some window managers allow you to enable auto-raise for certain windows. |
| 1140 | You can use that for Emacs windows if you wish, but if you do, | 1143 | You can use that for Emacs windows if you wish, but if you do, |
| @@ -1145,7 +1148,10 @@ that is beyond the control of Emacs and this command has no effect on it." | |||
| 1145 | 1148 | ||
| 1146 | (define-minor-mode auto-lower-mode | 1149 | (define-minor-mode auto-lower-mode |
| 1147 | "Toggle whether or not the selected frame should auto-lower. | 1150 | "Toggle whether or not the selected frame should auto-lower. |
| 1148 | With ARG, turn auto-lower mode on if and only if ARG is positive. | 1151 | With a prefix argument ARG, enable Auto Lower mode if ARG is |
| 1152 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1153 | the mode if ARG is omitted or nil. | ||
| 1154 | |||
| 1149 | Note that this controls Emacs's own auto-lower feature. | 1155 | Note that this controls Emacs's own auto-lower feature. |
| 1150 | Some window managers allow you to enable auto-lower for certain windows. | 1156 | Some window managers allow you to enable auto-lower for certain windows. |
| 1151 | You can use that for Emacs windows if you wish, but if you do, | 1157 | You can use that for Emacs windows if you wish, but if you do, |
| @@ -1556,14 +1562,13 @@ itself as a pre-command hook." | |||
| 1556 | (setq blink-cursor-timer nil))) | 1562 | (setq blink-cursor-timer nil))) |
| 1557 | 1563 | ||
| 1558 | (define-minor-mode blink-cursor-mode | 1564 | (define-minor-mode blink-cursor-mode |
| 1559 | "Toggle blinking cursor mode. | 1565 | "Toggle cursor blinking (Blink Cursor mode). |
| 1560 | With a numeric argument, turn blinking cursor mode on if ARG is positive, | 1566 | With a prefix argument ARG, enable Blink Cursor mode if ARG is |
| 1561 | otherwise turn it off. When blinking cursor mode is enabled, the | 1567 | positive, and disable it otherwise. If called from Lisp, enable |
| 1562 | cursor of the selected window blinks. | 1568 | the mode if ARG is omitted or nil. |
| 1563 | 1569 | ||
| 1564 | Note that this command is effective only when Emacs | 1570 | This command is effective only on graphical frames. On text-only |
| 1565 | displays through a window system, because then Emacs does its own | 1571 | terminals, cursor blinking is controlled by the terminal." |
| 1566 | cursor display. On a text-only terminal, this is not implemented." | ||
| 1567 | :init-value (not (or noninteractive | 1572 | :init-value (not (or noninteractive |
| 1568 | no-blinking-cursor | 1573 | no-blinking-cursor |
| 1569 | (eq system-type 'ms-dos) | 1574 | (eq system-type 'ms-dos) |
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index b7f41e22e50..592d0671c26 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2011-10-20 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * gnus-cite.el (gnus-message-citation-mode): Doc fix (in Emacs 24, | ||
| 4 | calling a minor mode from Lisp with nil arg enables it, so we have to | ||
| 5 | make the working a bit ambiguous here). | ||
| 6 | |||
| 1 | 2011-10-18 Teodor Zlatanov <tzz@lifelogs.com> | 7 | 2011-10-18 Teodor Zlatanov <tzz@lifelogs.com> |
| 2 | 8 | ||
| 3 | * gnus-util.el (gnus-bound-and-true-p): Macro for XEmacs compatibility. | 9 | * gnus-util.el (gnus-bound-and-true-p): Macro for XEmacs compatibility. |
| @@ -8,9 +14,9 @@ | |||
| 8 | * nnir.el (gnus-registry-enabled): Defvar to keep the compiler happy. | 14 | * nnir.el (gnus-registry-enabled): Defvar to keep the compiler happy. |
| 9 | * nnmairix.el (gnus-registry-enabled): Ditto. | 15 | * nnmairix.el (gnus-registry-enabled): Ditto. |
| 10 | 16 | ||
| 11 | 2011-10-17 Teodor Zlatanov <tzz@lifelogs.com> | 17 | 2011-10-17 Dave Abrahams <dave@boostpro.com> |
| 12 | 18 | ||
| 13 | * gnus-registry.el (gnus-registry-enabled): Add new variable. | 19 | * gnus-registry.el (gnus-registry-enabled): Add new variable. (Bug#9691) |
| 14 | (gnus-registry-install-shortcuts): Set `gnus-registry-install' to 'ask | 20 | (gnus-registry-install-shortcuts): Set `gnus-registry-install' to 'ask |
| 15 | only while we need to find out if it should be t or nil. | 21 | only while we need to find out if it should be t or nil. |
| 16 | (gnus-registry-initialize): Don't set `gnus-registry-install' to t. | 22 | (gnus-registry-initialize): Don't set `gnus-registry-install' to t. |
| @@ -24,7 +30,6 @@ | |||
| 24 | Use `gnus-registry-enabled' instead of `gnus-registry-install'. | 30 | Use `gnus-registry-enabled' instead of `gnus-registry-install'. |
| 25 | * nnir.el (nnir-mode): Use `gnus-registry-enabled' instead of | 31 | * nnir.el (nnir-mode): Use `gnus-registry-enabled' instead of |
| 26 | `gnus-registry-install'. | 32 | `gnus-registry-install'. |
| 27 | From Dave Abrahams <dave@boostpro.com>. | ||
| 28 | 33 | ||
| 29 | 2011-10-17 Daiki Ueno <ueno@unixuser.org> | 34 | 2011-10-17 Daiki Ueno <ueno@unixuser.org> |
| 30 | 35 | ||
| @@ -13104,13 +13109,11 @@ | |||
| 13104 | (mml-secure-cache-passphrase): New user option. | 13109 | (mml-secure-cache-passphrase): New user option. |
| 13105 | (mml-secure-passphrase-cache-expiry): New user option. | 13110 | (mml-secure-passphrase-cache-expiry): New user option. |
| 13106 | 13111 | ||
| 13107 | 2006-07-24 Daiki Ueno <ueno@unixuser.org> | 13112 | 2006-07-24 David Smith <davidsmith@acm.org> (tiny change) |
| 13108 | 13113 | Andreas Vögele <andreas@altroot.de> (tiny change) | |
| 13109 | * pgg-def.el (pgg-truncate-key-identifier): Truncate the key ID to 8 | ||
| 13110 | letters from the end. Thanks to "David Smith" <davidsmith@acm.org> and | ||
| 13111 | andreas@altroot.de (Andreas Vögele). | ||
| 13112 | 13114 | ||
| 13113 | FIXME: Use `tiny change'? | 13115 | * pgg-def.el (pgg-truncate-key-identifier): |
| 13116 | Truncate the key ID to 8 letters from the end. | ||
| 13114 | 13117 | ||
| 13115 | 2006-07-19 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> | 13118 | 2006-07-19 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> |
| 13116 | 13119 | ||
| @@ -19806,7 +19809,7 @@ | |||
| 19806 | 19809 | ||
| 19807 | * dns.el (dns-read-type): Add support for SVR. (small patch) | 19810 | * dns.el (dns-read-type): Add support for SVR. (small patch) |
| 19808 | 19811 | ||
| 19809 | 2004-05-20 Teodor Zlatanov <tzz@lifelogs.com> | 19812 | 2004-05-20 Adam Sjøgren <asjo@koldfront.dk> |
| 19810 | 19813 | ||
| 19811 | * spam.el (spam-use-crm114, spam-crm114, spam-crm114-program) | 19814 | * spam.el (spam-use-crm114, spam-crm114, spam-crm114-program) |
| 19812 | (spam-crm114-header, spam-crm114-spam-switch) | 19815 | (spam-crm114-header, spam-crm114-spam-switch) |
| @@ -19823,7 +19826,8 @@ | |||
| 19823 | (spam-crm114-unregister-spam-routine) | 19826 | (spam-crm114-unregister-spam-routine) |
| 19824 | (spam-crm114-register-ham-routine) | 19827 | (spam-crm114-register-ham-routine) |
| 19825 | (spam-crm114-unregister-ham-routine): Add CRM114 support. | 19828 | (spam-crm114-unregister-ham-routine): Add CRM114 support. |
| 19826 | From asjo@koldfront.dk (Adam Sjøgren). | 19829 | |
| 19830 | 2004-05-20 Teodor Zlatanov <tzz@lifelogs.com> | ||
| 19827 | 19831 | ||
| 19828 | * gnus.el: Add spam-use-crm114. | 19832 | * gnus.el: Add spam-use-crm114. |
| 19829 | 19833 | ||
| @@ -19960,10 +19964,13 @@ | |||
| 19960 | 19964 | ||
| 19961 | 2004-05-18 Reiner Steib <Reiner.Steib@gmx.de> | 19965 | 2004-05-18 Reiner Steib <Reiner.Steib@gmx.de> |
| 19962 | 19966 | ||
| 19967 | * gnus-picon.el (gnus-picon-insert-glyph): | ||
| 19968 | Add optional `nostring' argument. | ||
| 19969 | |||
| 19970 | 2004-05-18 Jesper Harder <harder@ifa.au.dk> | ||
| 19971 | |||
| 19963 | * gnus-picon.el (gnus-picon-style): New variable. | 19972 | * gnus-picon.el (gnus-picon-style): New variable. |
| 19964 | (gnus-picon-insert-glyph): Add optional `nostring' argument. | ||
| 19965 | (gnus-picon-transform-address): Support `gnus-picon-style'. | 19973 | (gnus-picon-transform-address): Support `gnus-picon-style'. |
| 19966 | From Jesper Harder <harder@ifa.au.dk>. | ||
| 19967 | 19974 | ||
| 19968 | 2004-05-18 Lars Magne Ingebrigtsen <larsi@gnus.org> | 19975 | 2004-05-18 Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 19969 | 19976 | ||
| @@ -20222,13 +20229,10 @@ | |||
| 20222 | * spam-stat.el (spam-stat-score-buffer): Simplify mapcar usage. | 20229 | * spam-stat.el (spam-stat-score-buffer): Simplify mapcar usage. |
| 20223 | Use mapc when appropriate. | 20230 | Use mapc when appropriate. |
| 20224 | 20231 | ||
| 20225 | 2004-04-22 Teodor Zlatanov <tzz@lifelogs.com> | 20232 | 2004-04-22 Dan Christensen <jdc@uwo.ca> |
| 20226 | 20233 | Adam Sjøgren <asjo@koldfront.dk> | |
| 20227 | FIXME: Make separate entries for each person. | 20234 | Wes Hardaker <wes@hardakers.net> |
| 20228 | 20235 | Michael Shields <shields@msrl.com> | |
| 20229 | From Dan Christensen <jdc@uwo.ca>, asjo@koldfront.dk (Adam | ||
| 20230 | Sjøgren), Wes Hardaker <wes@hardakers.net>, and Michael Shields | ||
| 20231 | <shields@msrl.com>: | ||
| 20232 | 20236 | ||
| 20233 | * spam.el (spam-necessary-extra-headers): Get the extra headers we | 20237 | * spam.el (spam-necessary-extra-headers): Get the extra headers we |
| 20234 | may need for spam sorting and scoring. | 20238 | may need for spam sorting and scoring. |
| @@ -20238,7 +20242,7 @@ | |||
| 20238 | sorting. | 20242 | sorting. |
| 20239 | (spam-extra-header-to-number): Add function to get a score from a | 20243 | (spam-extra-header-to-number): Add function to get a score from a |
| 20240 | header. | 20244 | header. |
| 20241 | (spam-summary-score): Add function to get a numeric score from the | 20245 | (spam-summary-score): Add function to get a numeric score from the |
| 20242 | headers. | 20246 | headers. |
| 20243 | (spam-generic-score): Fix function doc, was in wrong place. | 20247 | (spam-generic-score): Fix function doc, was in wrong place. |
| 20244 | (spam-initialize): Take symbols when it's run, and install the | 20248 | (spam-initialize): Take symbols when it's run, and install the |
diff --git a/lisp/gnus/gnus-cite.el b/lisp/gnus/gnus-cite.el index d205437b811..7c36311356f 100644 --- a/lisp/gnus/gnus-cite.el +++ b/lisp/gnus/gnus-cite.el | |||
| @@ -1224,13 +1224,8 @@ Returns nil if there is no such line before LIMIT, t otherwise." | |||
| 1224 | (autoload 'font-lock-set-defaults "font-lock"))) | 1224 | (autoload 'font-lock-set-defaults "font-lock"))) |
| 1225 | 1225 | ||
| 1226 | (define-minor-mode gnus-message-citation-mode | 1226 | (define-minor-mode gnus-message-citation-mode |
| 1227 | "Toggle `gnus-message-citation-mode' in current buffer. | 1227 | "Minor mode providing more font-lock support for nested citations. |
| 1228 | This buffer local minor mode provides additional font-lock support for | 1228 | When enabled, it automatically turns on `font-lock-mode'." |
| 1229 | nested citations. | ||
| 1230 | With prefix ARG, turn `gnus-message-citation-mode' on if and only if ARG | ||
| 1231 | is positive. | ||
| 1232 | Automatically turn `font-lock-mode' on when `gnus-message-citation-mode' | ||
| 1233 | is turned on." | ||
| 1234 | nil ;; init-value | 1229 | nil ;; init-value |
| 1235 | "" ;; lighter | 1230 | "" ;; lighter |
| 1236 | nil ;; keymap | 1231 | nil ;; keymap |
diff --git a/lisp/help.el b/lisp/help.el index e2af0759a65..508a4e3262c 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -977,13 +977,15 @@ function is called, the window to be resized is selected." | |||
| 977 | :version "20.4") | 977 | :version "20.4") |
| 978 | 978 | ||
| 979 | (define-minor-mode temp-buffer-resize-mode | 979 | (define-minor-mode temp-buffer-resize-mode |
| 980 | "Toggle mode which makes windows smaller for temporary buffers. | 980 | "Toggle auto-shrinking temp buffer windows (Temp Buffer Resize mode). |
| 981 | With prefix argument ARG, turn the resizing of windows displaying | 981 | With a prefix argument ARG, enable Temp Buffer Resize mode if ARG |
| 982 | temporary buffers on if ARG is positive or off otherwise. | 982 | is positive, and disable it otherwise. If called from Lisp, |
| 983 | 983 | enable the mode if ARG is omitted or nil. | |
| 984 | This mode makes a window the right height for its contents, but | 984 | |
| 985 | never more than `temp-buffer-max-height' nor less than | 985 | When Temp Buffer Resize mode is enabled, the windows in which we |
| 986 | `window-min-height'. | 986 | show a temporary buffer are automatically reduced in height to |
| 987 | fit the buffer's contents, but never more than | ||
| 988 | `temp-buffer-max-height' nor less than `window-min-height'. | ||
| 987 | 989 | ||
| 988 | This mode is used by `help', `apropos' and `completion' buffers, | 990 | This mode is used by `help', `apropos' and `completion' buffers, |
| 989 | and some others." | 991 | and some others." |
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index a254abe33ac..f659a7e8eef 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el | |||
| @@ -283,14 +283,17 @@ a library is being loaded.") | |||
| 283 | 283 | ||
| 284 | ;;;###autoload | 284 | ;;;###autoload |
| 285 | (define-minor-mode hi-lock-mode | 285 | (define-minor-mode hi-lock-mode |
| 286 | "Toggle minor mode for interactively adding font-lock highlighting patterns. | 286 | "Toggle selective highlighting of patterns (Hi Lock mode). |
| 287 | 287 | With a prefix argument ARG, enable Hi Lock mode if ARG is | |
| 288 | If ARG positive, turn hi-lock on. Issuing a hi-lock command will also | 288 | positive, and disable it otherwise. If called from Lisp, enable |
| 289 | turn hi-lock on. To turn hi-lock on in all buffers use | 289 | the mode if ARG is omitted or nil. |
| 290 | `global-hi-lock-mode' or in your .emacs file (global-hi-lock-mode 1). | 290 | |
| 291 | When hi-lock is turned on, a \"Regexp Highlighting\" submenu is added | 291 | Issuing one the highlighting commands listed below will |
| 292 | to the \"Edit\" menu. The commands in the submenu, which can be | 292 | automatically enable Hi Lock mode. To enable Hi Lock mode in all |
| 293 | called interactively, are: | 293 | buffers, use `global-hi-lock-mode' or add (global-hi-lock-mode 1) |
| 294 | to your init file. When Hi Lock mode is enabled, a \"Regexp | ||
| 295 | Highlighting\" submenu is added to the \"Edit\" menu. The | ||
| 296 | commands in the submenu, which can be called interactively, are: | ||
| 294 | 297 | ||
| 295 | \\[highlight-regexp] REGEXP FACE | 298 | \\[highlight-regexp] REGEXP FACE |
| 296 | Highlight matches of pattern REGEXP in current buffer with FACE. | 299 | Highlight matches of pattern REGEXP in current buffer with FACE. |
diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el index 041c1ee938b..46db4280688 100644 --- a/lisp/hilit-chg.el +++ b/lisp/hilit-chg.el | |||
| @@ -326,14 +326,15 @@ remove it from existing buffers." | |||
| 326 | 326 | ||
| 327 | ;;;###autoload | 327 | ;;;###autoload |
| 328 | (define-minor-mode highlight-changes-mode | 328 | (define-minor-mode highlight-changes-mode |
| 329 | "Toggle Highlight Changes mode. | 329 | "Toggle highlighting changes in this buffer (Highlight Changes mode). |
| 330 | With a prefix argument ARG, enable Highlight Changes mode if ARG | ||
| 331 | is positive, and disable it otherwise. If called from Lisp, | ||
| 332 | enable the mode if ARG is omitted or nil. | ||
| 330 | 333 | ||
| 331 | With ARG, turn Highlight Changes mode on if and only if arg is positive. | 334 | When Highlight Changes is enabled, changes are marked with a text |
| 332 | 335 | property. Normally they are displayed in a distinctive face, but | |
| 333 | In Highlight Changes mode changes are recorded with a text property. | 336 | command \\[highlight-changes-visible-mode] can be used to toggles |
| 334 | Normally they are displayed in a distinctive face, but command | 337 | this on and off. |
| 335 | \\[highlight-changes-visible-mode] can be used to toggles this | ||
| 336 | on and off. | ||
| 337 | 338 | ||
| 338 | Other functions for buffers in this mode include: | 339 | Other functions for buffers in this mode include: |
| 339 | \\[highlight-changes-next-change] - move point to beginning of next change | 340 | \\[highlight-changes-next-change] - move point to beginning of next change |
| @@ -366,14 +367,17 @@ buffer with the contents of a file | |||
| 366 | 367 | ||
| 367 | ;;;###autoload | 368 | ;;;###autoload |
| 368 | (define-minor-mode highlight-changes-visible-mode | 369 | (define-minor-mode highlight-changes-visible-mode |
| 369 | "Toggle visiblility of changes when buffer is in Highlight Changes mode. | 370 | "Toggle visiblility of highlighting due to Highlight Changes mode. |
| 371 | With a prefix argument ARG, enable Highlight Changes Visible mode | ||
| 372 | if ARG is positive, and disable it otherwise. If called from | ||
| 373 | Lisp, enable the mode if ARG is omitted or nil. | ||
| 370 | 374 | ||
| 371 | This mode only has an effect when Highlight Changes mode is on. | 375 | Highlight Changes Visible mode only has an effect when Highlight |
| 372 | It allows toggling between whether or not the changed text is displayed | 376 | Changes mode is on. When enabled, the changed text is displayed |
| 373 | in a distinctive face. | 377 | in a distinctive face. |
| 374 | 378 | ||
| 375 | The default value can be customized with variable | 379 | The default value can be customized with variable |
| 376 | `highlight-changes-visibility-initial-state' | 380 | `highlight-changes-visibility-initial-state'. |
| 377 | 381 | ||
| 378 | This command does not itself set highlight-changes mode." | 382 | This command does not itself set highlight-changes mode." |
| 379 | 383 | ||
diff --git a/lisp/hl-line.el b/lisp/hl-line.el index 846f5f95187..b535398f107 100644 --- a/lisp/hl-line.el +++ b/lisp/hl-line.el | |||
| @@ -124,10 +124,13 @@ This variable is expected to be made buffer-local by modes.") | |||
| 124 | 124 | ||
| 125 | ;;;###autoload | 125 | ;;;###autoload |
| 126 | (define-minor-mode hl-line-mode | 126 | (define-minor-mode hl-line-mode |
| 127 | "Buffer-local minor mode to highlight the line about point. | 127 | "Toggle highlighting of the current line (Hl-Line mode). |
| 128 | With ARG, turn Hl-Line mode on if ARG is positive, off otherwise. | 128 | With a prefix argument ARG, enable Hl-Line mode if ARG is |
| 129 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 130 | the mode if ARG is omitted or nil. | ||
| 129 | 131 | ||
| 130 | If `hl-line-sticky-flag' is non-nil, Hl-Line mode highlights the | 132 | Hl-Line mode is a buffer-local minor mode. If |
| 133 | `hl-line-sticky-flag' is non-nil, Hl-Line mode highlights the | ||
| 131 | line about the buffer's point in all windows. Caveat: the | 134 | line about the buffer's point in all windows. Caveat: the |
| 132 | buffer's point might be different from the point of a | 135 | buffer's point might be different from the point of a |
| 133 | non-selected window. Hl-Line mode uses the function | 136 | non-selected window. Hl-Line mode uses the function |
| @@ -171,8 +174,10 @@ addition to `hl-line-highlight' on `post-command-hook'." | |||
| 171 | 174 | ||
| 172 | ;;;###autoload | 175 | ;;;###autoload |
| 173 | (define-minor-mode global-hl-line-mode | 176 | (define-minor-mode global-hl-line-mode |
| 174 | "Global minor mode to highlight the line about point in the current window. | 177 | "Toggle line highlighting in all buffers (Global Hl-Line mode). |
| 175 | With ARG, turn Global-Hl-Line mode on if ARG is positive, off otherwise. | 178 | With a prefix argument ARG, enable Global Hl-Line mode if ARG is |
| 179 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 180 | the mode if ARG is omitted or nil. | ||
| 176 | 181 | ||
| 177 | If `global-hl-line-sticky-flag' is non-nil, Global Hl-Line mode | 182 | If `global-hl-line-sticky-flag' is non-nil, Global Hl-Line mode |
| 178 | highlights the line about the current buffer's point in all | 183 | highlights the line about the current buffer's point in all |
diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el index 073efaeee2a..6c8db872c0b 100644 --- a/lisp/ibuf-ext.el +++ b/lisp/ibuf-ext.el | |||
| @@ -217,8 +217,10 @@ Currently, this only applies to `ibuffer-saved-filters' and | |||
| 217 | 217 | ||
| 218 | ;;;###autoload | 218 | ;;;###autoload |
| 219 | (define-minor-mode ibuffer-auto-mode | 219 | (define-minor-mode ibuffer-auto-mode |
| 220 | "Toggle use of Ibuffer's auto-update facility. | 220 | "Toggle use of Ibuffer's auto-update facility (Ibuffer Auto mode). |
| 221 | With numeric ARG, enable auto-update if and only if ARG is positive." | 221 | With a prefix argument ARG, enable Ibuffer Auto mode if ARG is |
| 222 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 223 | the mode if ARG is omitted or nil." | ||
| 222 | nil nil nil | 224 | nil nil nil |
| 223 | (unless (derived-mode-p 'ibuffer-mode) | 225 | (unless (derived-mode-p 'ibuffer-mode) |
| 224 | (error "This buffer is not in Ibuffer mode")) | 226 | (error "This buffer is not in Ibuffer mode")) |
diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 5a86508e144..17ddddbd17a 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el | |||
| @@ -2648,12 +2648,14 @@ will be inserted before the group at point." | |||
| 2648 | ;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group | 2648 | ;;;;;; ibuffer-backward-filter-group ibuffer-forward-filter-group |
| 2649 | ;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group | 2649 | ;;;;;; ibuffer-toggle-filter-group ibuffer-mouse-toggle-filter-group |
| 2650 | ;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode | 2650 | ;;;;;; ibuffer-interactive-filter-by-mode ibuffer-mouse-filter-by-mode |
| 2651 | ;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" "617b36fc8479547d679cf0103f82e3ff") | 2651 | ;;;;;; ibuffer-auto-mode) "ibuf-ext" "ibuf-ext.el" "25e69a1e030791b3a3e7d91d4377173a") |
| 2652 | ;;; Generated autoloads from ibuf-ext.el | 2652 | ;;; Generated autoloads from ibuf-ext.el |
| 2653 | 2653 | ||
| 2654 | (autoload 'ibuffer-auto-mode "ibuf-ext" "\ | 2654 | (autoload 'ibuffer-auto-mode "ibuf-ext" "\ |
| 2655 | Toggle use of Ibuffer's auto-update facility. | 2655 | Toggle use of Ibuffer's auto-update facility (Ibuffer Auto mode). |
| 2656 | With numeric ARG, enable auto-update if and only if ARG is positive. | 2656 | With a prefix argument ARG, enable Ibuffer Auto mode if ARG is |
| 2657 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 2658 | the mode if ARG is omitted or nil. | ||
| 2657 | 2659 | ||
| 2658 | \(fn &optional ARG)" t nil) | 2660 | \(fn &optional ARG)" t nil) |
| 2659 | 2661 | ||
diff --git a/lisp/icomplete.el b/lisp/icomplete.el index bdd19194c22..53876f48a06 100644 --- a/lisp/icomplete.el +++ b/lisp/icomplete.el | |||
| @@ -172,9 +172,10 @@ except those on this list.") | |||
| 172 | ;;;_ > icomplete-mode (&optional prefix) | 172 | ;;;_ > icomplete-mode (&optional prefix) |
| 173 | ;;;###autoload | 173 | ;;;###autoload |
| 174 | (define-minor-mode icomplete-mode | 174 | (define-minor-mode icomplete-mode |
| 175 | "Toggle incremental minibuffer completion for this Emacs session. | 175 | "Toggle incremental minibuffer completion (Icomplete mode). |
| 176 | With a numeric argument, turn Icomplete mode on if ARG is positive, | 176 | With a prefix argument ARG, enable Icomplete mode if ARG is |
| 177 | otherwise turn it off." | 177 | positive, and disable it otherwise. If called from Lisp, enable |
| 178 | the mode if ARG is omitted or nil." | ||
| 178 | :global t :group 'icomplete | 179 | :global t :group 'icomplete |
| 179 | (if icomplete-mode | 180 | (if icomplete-mode |
| 180 | ;; The following is not really necessary after first time - | 181 | ;; The following is not really necessary after first time - |
diff --git a/lisp/ido.el b/lisp/ido.el index 0844c2c50c6..88599013ce6 100644 --- a/lisp/ido.el +++ b/lisp/ido.el | |||
| @@ -1469,8 +1469,10 @@ Removes badly formatted data and ignored directories." | |||
| 1469 | (add-hook 'choose-completion-string-functions 'ido-choose-completion-string)) | 1469 | (add-hook 'choose-completion-string-functions 'ido-choose-completion-string)) |
| 1470 | 1470 | ||
| 1471 | (define-minor-mode ido-everywhere | 1471 | (define-minor-mode ido-everywhere |
| 1472 | "Toggle using ido-mode everywhere file and directory names are read. | 1472 | "Toggle use of Ido for all buffer/file reading. |
| 1473 | With ARG, turn ido-mode on if arg is positive, off otherwise." | 1473 | With a prefix argument ARG, enable this feature if ARG is |
| 1474 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1475 | the mode if ARG is omitted or nil." | ||
| 1474 | :global t | 1476 | :global t |
| 1475 | :group 'ido | 1477 | :group 'ido |
| 1476 | (when (get 'ido-everywhere 'file) | 1478 | (when (get 'ido-everywhere 'file) |
diff --git a/lisp/image-file.el b/lisp/image-file.el index bd1c101d529..52012b12a56 100644 --- a/lisp/image-file.el +++ b/lisp/image-file.el | |||
| @@ -178,11 +178,12 @@ Optional argument ARGS are the arguments to call FUNCTION with." | |||
| 178 | 178 | ||
| 179 | ;;;###autoload | 179 | ;;;###autoload |
| 180 | (define-minor-mode auto-image-file-mode | 180 | (define-minor-mode auto-image-file-mode |
| 181 | "Toggle visiting of image files as images. | 181 | "Toggle visiting of image files as images (Auto Image File mode). |
| 182 | With prefix argument ARG, turn on if positive, otherwise off. | 182 | With a prefix argument ARG, enable Auto Image File mode if ARG is |
| 183 | Returns non-nil if the new state is enabled. | 183 | positive, and disable it otherwise. If called from Lisp, enable |
| 184 | the mode if ARG is omitted or nil. | ||
| 184 | 185 | ||
| 185 | Image files are those whose name has an extension in | 186 | An image file is one whose name has an extension in |
| 186 | `image-file-name-extensions', or matches a regexp in | 187 | `image-file-name-extensions', or matches a regexp in |
| 187 | `image-file-name-regexps'." | 188 | `image-file-name-regexps'." |
| 188 | :global t | 189 | :global t |
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index 0995048fce5..30223e69ae0 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el | |||
| @@ -396,11 +396,14 @@ to toggle between display as an image and display as text." | |||
| 396 | 396 | ||
| 397 | ;;;###autoload | 397 | ;;;###autoload |
| 398 | (define-minor-mode image-minor-mode | 398 | (define-minor-mode image-minor-mode |
| 399 | "Toggle Image minor mode. | 399 | "Toggle Image minor mode in this buffer. |
| 400 | With arg, turn Image minor mode on if arg is positive, off otherwise. | 400 | With a prefix argument ARG, enable Image minor mode if ARG is |
| 401 | It provides the key \\<image-mode-map>\\[image-toggle-display] \ | 401 | positive, and disable it otherwise. If called from Lisp, enable |
| 402 | to switch back to `image-mode' | 402 | the mode if ARG is omitted or nil. |
| 403 | to display an image file as the actual image." | 403 | |
| 404 | Image minor mode provides the key \\<image-mode-map>\\[image-toggle-display], | ||
| 405 | to switch back to `image-mode' and display an image file as the | ||
| 406 | actual image." | ||
| 404 | nil (:eval (if image-type (format " Image[%s]" image-type) " Image")) | 407 | nil (:eval (if image-type (format " Image[%s]" image-type) " Image")) |
| 405 | image-minor-mode-map | 408 | image-minor-mode-map |
| 406 | :group 'image | 409 | :group 'image |
diff --git a/lisp/info.el b/lisp/info.el index 4ccbeba2a47..b8deb3c9c7f 100644 --- a/lisp/info.el +++ b/lisp/info.el | |||
| @@ -2015,7 +2015,7 @@ Submatch 1 is the complete node name. | |||
| 2015 | Submatch 2 if non-nil is the parenthesized file name part of the node name. | 2015 | Submatch 2 if non-nil is the parenthesized file name part of the node name. |
| 2016 | Submatch 3 is the local part of the node name. | 2016 | Submatch 3 is the local part of the node name. |
| 2017 | End of submatch 0, 1, and 3 are the same, so you can safely concat." | 2017 | End of submatch 0, 1, and 3 are the same, so you can safely concat." |
| 2018 | (concat "[ \t]*" ;Skip leading space. | 2018 | (concat "[ \t\n]*" ;Skip leading space. |
| 2019 | "\\(\\(([^)]+)\\)?" ;Node name can start with a file name. | 2019 | "\\(\\(([^)]+)\\)?" ;Node name can start with a file name. |
| 2020 | "\\([" (or allowedchars "^,\t\n") "]*" ;Any number of allowed chars. | 2020 | "\\([" (or allowedchars "^,\t\n") "]*" ;Any number of allowed chars. |
| 2021 | "[" (or allowedchars "^,\t\n") " ]" ;The last char can't be a space. | 2021 | "[" (or allowedchars "^,\t\n") " ]" ;The last char can't be a space. |
diff --git a/lisp/isearch.el b/lisp/isearch.el index 6cfcce59672..6bb23916da3 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el | |||
| @@ -1452,7 +1452,7 @@ string. NLINES has the same meaning as in `occur'." | |||
| 1452 | ;; Set `search-upper-case' to nil to not call | 1452 | ;; Set `search-upper-case' to nil to not call |
| 1453 | ;; `isearch-no-upper-case-p' in `occur-1'. | 1453 | ;; `isearch-no-upper-case-p' in `occur-1'. |
| 1454 | (search-upper-case nil) | 1454 | (search-upper-case nil) |
| 1455 | (search-spaces-regexp search-whitespace-regexp)) | 1455 | (search-spaces-regexp (if isearch-regexp search-whitespace-regexp))) |
| 1456 | (occur regexp nlines))) | 1456 | (occur regexp nlines))) |
| 1457 | 1457 | ||
| 1458 | (declare-function hi-lock-read-face-name "hi-lock" ()) | 1458 | (declare-function hi-lock-read-face-name "hi-lock" ()) |
diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index 70dda5442d5..a7d3328526a 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el | |||
| @@ -1424,10 +1424,13 @@ See the variable `iswitchb-case' for details." | |||
| 1424 | 1424 | ||
| 1425 | ;;;###autoload | 1425 | ;;;###autoload |
| 1426 | (define-minor-mode iswitchb-mode | 1426 | (define-minor-mode iswitchb-mode |
| 1427 | "Toggle Iswitchb global minor mode. | 1427 | "Toggle Iswitchb mode. |
| 1428 | With arg, turn Iswitchb mode on if ARG is positive, otherwise turn it off. | 1428 | With a prefix argument ARG, enable Iswitchb mode if ARG is |
| 1429 | This mode enables switching between buffers using substrings. See | 1429 | positive, and disable it otherwise. If called from Lisp, enable |
| 1430 | `iswitchb' for details." | 1430 | the mode if ARG is omitted or nil. |
| 1431 | |||
| 1432 | Iswitchb mode is a global minor mode that enables switching | ||
| 1433 | between buffers using substrings. See `iswitchb' for details." | ||
| 1431 | nil nil iswitchb-global-map :global t :group 'iswitchb | 1434 | nil nil iswitchb-global-map :global t :group 'iswitchb |
| 1432 | (if iswitchb-mode | 1435 | (if iswitchb-mode |
| 1433 | (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup) | 1436 | (add-hook 'minibuffer-setup-hook 'iswitchb-minibuffer-setup) |
diff --git a/lisp/jka-cmpr-hook.el b/lisp/jka-cmpr-hook.el index d28fde0b214..bf312445f17 100644 --- a/lisp/jka-cmpr-hook.el +++ b/lisp/jka-cmpr-hook.el | |||
| @@ -333,9 +333,14 @@ variables. Setting this through Custom does that automatically." | |||
| 333 | :group 'jka-compr) | 333 | :group 'jka-compr) |
| 334 | 334 | ||
| 335 | (define-minor-mode auto-compression-mode | 335 | (define-minor-mode auto-compression-mode |
| 336 | "Toggle automatic file compression and uncompression. | 336 | "Toggle Auto Compression mode. |
| 337 | With prefix argument ARG, turn auto compression on if positive, else off. | 337 | With a prefix argument ARG, enable Auto Compression mode if ARG |
| 338 | Return the new status of auto compression (non-nil means on)." | 338 | is positive, and disable it otherwise. If called from Lisp, |
| 339 | enable the mode if ARG is omitted or nil. | ||
| 340 | |||
| 341 | Auto Compression mode is a global minor mode. When enabled, | ||
| 342 | compressed files are automatically uncompressed for reading, and | ||
| 343 | compressed when writing." | ||
| 339 | :global t :init-value t :group 'jka-compr :version "22.1" | 344 | :global t :init-value t :group 'jka-compr :version "22.1" |
| 340 | (let* ((installed (jka-compr-installed-p)) | 345 | (let* ((installed (jka-compr-installed-p)) |
| 341 | (flag auto-compression-mode)) | 346 | (flag auto-compression-mode)) |
diff --git a/lisp/linum.el b/lisp/linum.el index db6e4c49977..4e58a1b7118 100644 --- a/lisp/linum.el +++ b/lisp/linum.el | |||
| @@ -73,7 +73,12 @@ and you have to scroll or press \\[recenter-top-bottom] to update the numbers." | |||
| 73 | 73 | ||
| 74 | ;;;###autoload | 74 | ;;;###autoload |
| 75 | (define-minor-mode linum-mode | 75 | (define-minor-mode linum-mode |
| 76 | "Toggle display of line numbers in the left margin." | 76 | "Toggle display of line numbers in the left margin (Linum mode). |
| 77 | With a prefix argument ARG, enable Linum mode if ARG is positive, | ||
| 78 | and disable it otherwise. If called from Lisp, enable the mode | ||
| 79 | if ARG is omitted or nil. | ||
| 80 | |||
| 81 | Linum mode is a buffer-local minor mode." | ||
| 77 | :lighter "" ; for desktop.el | 82 | :lighter "" ; for desktop.el |
| 78 | (if linum-mode | 83 | (if linum-mode |
| 79 | (progn | 84 | (progn |
diff --git a/lisp/longlines.el b/lisp/longlines.el index f625d8fcac7..b4d15da78a7 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el | |||
| @@ -95,21 +95,22 @@ This is used when `longlines-show-hard-newlines' is on." | |||
| 95 | 95 | ||
| 96 | ;;;###autoload | 96 | ;;;###autoload |
| 97 | (define-minor-mode longlines-mode | 97 | (define-minor-mode longlines-mode |
| 98 | "Minor mode to wrap long lines. | 98 | "Toggle Long Lines mode in this buffer. |
| 99 | In Long Lines mode, long lines are wrapped if they extend beyond | 99 | With a prefix argument ARG, enable Long Lines mode if ARG is |
| 100 | `fill-column'. The soft newlines used for line wrapping will not | 100 | positive, and disable it otherwise. If called from Lisp, enable |
| 101 | show up when the text is yanked or saved to disk. | 101 | the mode if ARG is omitted or nil. |
| 102 | 102 | ||
| 103 | With no argument, this command toggles Long Lines mode. | 103 | When Long Lines mode is enabled, long lines are wrapped if they |
| 104 | With a prefix argument ARG, turn Long Lines minor mode on if ARG is positive, | 104 | extend beyond `fill-column'. The soft newlines used for line |
| 105 | otherwise turn it off. | 105 | wrapping will not show up when the text is yanked or saved to |
| 106 | 106 | disk. | |
| 107 | If the variable `longlines-auto-wrap' is non-nil, lines are automatically | 107 | |
| 108 | wrapped whenever the buffer is changed. You can always call | 108 | If the variable `longlines-auto-wrap' is non-nil, lines are |
| 109 | `fill-paragraph' to fill individual paragraphs. | 109 | automatically wrapped whenever the buffer is changed. You can |
| 110 | 110 | always call `fill-paragraph' to fill individual paragraphs. | |
| 111 | If the variable `longlines-show-hard-newlines' is non-nil, hard newlines | 111 | |
| 112 | are indicated with a symbol." | 112 | If the variable `longlines-show-hard-newlines' is non-nil, hard |
| 113 | newlines are indicated with a symbol." | ||
| 113 | :group 'longlines :lighter " ll" | 114 | :group 'longlines :lighter " ll" |
| 114 | (if longlines-mode | 115 | (if longlines-mode |
| 115 | ;; Turn on longlines mode | 116 | ;; Turn on longlines mode |
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index 8dac3be0e5f..0f1669562de 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el | |||
| @@ -788,9 +788,14 @@ being set it is automatically widened." | |||
| 788 | 788 | ||
| 789 | ;;;###autoload | 789 | ;;;###autoload |
| 790 | (define-minor-mode footnote-mode | 790 | (define-minor-mode footnote-mode |
| 791 | "Toggle footnote minor mode. | 791 | "Toggle Footnote mode. |
| 792 | This minor mode provides footnote support for `message-mode'. To get | 792 | With a prefix argument ARG, enable Footnote mode if ARG is |
| 793 | started, play around with the following keys: | 793 | positive, and disable it otherwise. If called from Lisp, enable |
| 794 | the mode if ARG is omitted or nil. | ||
| 795 | |||
| 796 | Footnode mode is a buffer-local minor mode. If enabled, it | ||
| 797 | provides footnote support for `message-mode'. To get started, | ||
| 798 | play around with the following keys: | ||
| 794 | \\{footnote-minor-mode-map}" | 799 | \\{footnote-minor-mode-map}" |
| 795 | :lighter footnote-mode-line-string | 800 | :lighter footnote-mode-line-string |
| 796 | :keymap footnote-minor-mode-map | 801 | :keymap footnote-minor-mode-map |
diff --git a/lisp/mail/mailabbrev.el b/lisp/mail/mailabbrev.el index 901eb002dc1..2472b8a1870 100644 --- a/lisp/mail/mailabbrev.el +++ b/lisp/mail/mailabbrev.el | |||
| @@ -133,7 +133,15 @@ | |||
| 133 | 133 | ||
| 134 | ;;;###autoload | 134 | ;;;###autoload |
| 135 | (define-minor-mode mail-abbrevs-mode | 135 | (define-minor-mode mail-abbrevs-mode |
| 136 | "Non-nil means expand mail aliases as abbrevs, in certain message headers." | 136 | "Toggle abbrev expansion of mail aliases (Mail Abbrevs mode). |
| 137 | With a prefix argument ARG, enable Mail Abbrevs mode if ARG is | ||
| 138 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 139 | the mode if ARG is omitted or nil. | ||
| 140 | |||
| 141 | Mail Abbrevs mode is a global minor mode. When enabled, | ||
| 142 | abbrev-like expansion is performed when editing certain mail | ||
| 143 | headers (those specified by `mail-abbrev-mode-regexp'), based on | ||
| 144 | the entries in your `mail-personal-alias-file'." | ||
| 137 | :global t | 145 | :global t |
| 138 | :group 'mail-abbrev | 146 | :group 'mail-abbrev |
| 139 | :version "20.3" | 147 | :version "20.3" |
diff --git a/lisp/master.el b/lisp/master.el index 1ea0a24ca94..c3e9004ca0b 100644 --- a/lisp/master.el +++ b/lisp/master.el | |||
| @@ -72,12 +72,12 @@ You can set this variable using `master-set-slave'.") | |||
| 72 | ;;;###autoload | 72 | ;;;###autoload |
| 73 | (define-minor-mode master-mode | 73 | (define-minor-mode master-mode |
| 74 | "Toggle Master mode. | 74 | "Toggle Master mode. |
| 75 | With no argument, this command toggles the mode. | 75 | With a prefix argument ARG, enable Master mode if ARG is |
| 76 | Non-null prefix argument turns on the mode. | 76 | positive, and disable it otherwise. If called from Lisp, enable |
| 77 | Null prefix argument turns off the mode. | 77 | the mode if ARG is omitted or nil. |
| 78 | 78 | ||
| 79 | When Master mode is enabled, you can scroll the slave buffer using the | 79 | When Master mode is enabled, you can scroll the slave buffer |
| 80 | following commands: | 80 | using the following commands: |
| 81 | 81 | ||
| 82 | \\{master-mode-map} | 82 | \\{master-mode-map} |
| 83 | 83 | ||
diff --git a/lisp/mb-depth.el b/lisp/mb-depth.el index 2ed692c1b84..22fd84a67aa 100644 --- a/lisp/mb-depth.el +++ b/lisp/mb-depth.el | |||
| @@ -56,12 +56,14 @@ The prompt should already have been inserted." | |||
| 56 | ;;;###autoload | 56 | ;;;###autoload |
| 57 | (define-minor-mode minibuffer-depth-indicate-mode | 57 | (define-minor-mode minibuffer-depth-indicate-mode |
| 58 | "Toggle Minibuffer Depth Indication mode. | 58 | "Toggle Minibuffer Depth Indication mode. |
| 59 | When active, any recursive use of the minibuffer will show | 59 | With a prefix argument ARG, enable Minibuffer Depth Indication |
| 60 | the recursion depth in the minibuffer prompt. This is only | 60 | mode if ARG is positive, and disable it otherwise. If called |
| 61 | useful if `enable-recursive-minibuffers' is non-nil. | 61 | from Lisp, enable the mode if ARG is omitted or nil. |
| 62 | 62 | ||
| 63 | With prefix argument ARG, turn on if positive, otherwise off. | 63 | Minibuffer Depth Indication mode is a global minor mode. When |
| 64 | Returns non-nil if the new state is enabled." | 64 | enabled, any recursive use of the minibuffer will show the |
| 65 | recursion depth in the minibuffer prompt. This is only useful if | ||
| 66 | `enable-recursive-minibuffers' is non-nil." | ||
| 65 | :global t | 67 | :global t |
| 66 | :group 'minibuffer | 68 | :group 'minibuffer |
| 67 | (if minibuffer-depth-indicate-mode | 69 | (if minibuffer-depth-indicate-mode |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index d75a768e2d4..75a2d70da5e 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -2169,11 +2169,13 @@ It must accept a buffer as its only required argument.") | |||
| 2169 | :help ,(purecopy "Put previous minibuffer history element in the minibuffer")))) | 2169 | :help ,(purecopy "Put previous minibuffer history element in the minibuffer")))) |
| 2170 | 2170 | ||
| 2171 | (define-minor-mode menu-bar-mode | 2171 | (define-minor-mode menu-bar-mode |
| 2172 | "Toggle display of a menu bar on each frame. | 2172 | "Toggle display of a menu bar on each frame (Menu Bar mode). |
| 2173 | With a prefix argument ARG, enable Menu Bar mode if ARG is | ||
| 2174 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 2175 | Menu Bar mode if ARG is omitted or nil. | ||
| 2176 | |||
| 2173 | This command applies to all frames that exist and frames to be | 2177 | This command applies to all frames that exist and frames to be |
| 2174 | created in the future. | 2178 | created in the future." |
| 2175 | With a numeric argument, if the argument is positive, | ||
| 2176 | turn on menu bars; otherwise, turn off menu bars." | ||
| 2177 | :init-value t | 2179 | :init-value t |
| 2178 | :global t | 2180 | :global t |
| 2179 | ;; It's defined in C/cus-start, this stops the d-m-m macro defining it again. | 2181 | ;; It's defined in C/cus-start, this stops the d-m-m macro defining it again. |
diff --git a/lisp/minibuf-eldef.el b/lisp/minibuf-eldef.el index e6ebe3c53f1..405721f97ee 100644 --- a/lisp/minibuf-eldef.el +++ b/lisp/minibuf-eldef.el | |||
| @@ -131,14 +131,16 @@ been set up by `minibuf-eldef-setup-minibuffer'." | |||
| 131 | ;;;###autoload | 131 | ;;;###autoload |
| 132 | (define-minor-mode minibuffer-electric-default-mode | 132 | (define-minor-mode minibuffer-electric-default-mode |
| 133 | "Toggle Minibuffer Electric Default mode. | 133 | "Toggle Minibuffer Electric Default mode. |
| 134 | When active, minibuffer prompts that show a default value only show the | 134 | With a prefix argument ARG, enable Minibuffer Electric Default |
| 135 | default when it's applicable -- that is, when hitting RET would yield | 135 | mode if ARG is positive, and disable it otherwise. If called |
| 136 | the default value. If the user modifies the input such that hitting RET | 136 | from Lisp, enable the mode if ARG is omitted or nil. |
| 137 | would enter a non-default value, the prompt is modified to remove the | 137 | |
| 138 | default indication. | 138 | Minibuffer Electric Default mode is a global minor mode. When |
| 139 | 139 | enabled, minibuffer prompts that show a default value only show | |
| 140 | With prefix argument ARG, turn on if positive, otherwise off. | 140 | the default when it's applicable -- that is, when hitting RET |
| 141 | Returns non-nil if the new state is enabled." | 141 | would yield the default value. If the user modifies the input |
| 142 | such that hitting RET would enter a non-default value, the prompt | ||
| 143 | is modified to remove the default indication." | ||
| 142 | :global t | 144 | :global t |
| 143 | :group 'minibuffer | 145 | :group 'minibuffer |
| 144 | (if minibuffer-electric-default-mode | 146 | (if minibuffer-electric-default-mode |
diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index 50d221b6fa0..bcf1749e13f 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el | |||
| @@ -199,11 +199,12 @@ If nil, point will always be placed at the beginning of the region." | |||
| 199 | ;;;###autoload | 199 | ;;;###autoload |
| 200 | (define-minor-mode mouse-sel-mode | 200 | (define-minor-mode mouse-sel-mode |
| 201 | "Toggle Mouse Sel mode. | 201 | "Toggle Mouse Sel mode. |
| 202 | With prefix ARG, turn Mouse Sel mode on if and only if ARG is positive. | 202 | With a prefix argument ARG, enable Mouse Sel mode if ARG is |
| 203 | Returns the new status of Mouse Sel mode (non-nil means on). | 203 | positive, and disable it otherwise. If called from Lisp, enable |
| 204 | the mode if ARG is omitted or nil. | ||
| 204 | 205 | ||
| 205 | When Mouse Sel mode is enabled, mouse selection is enhanced in | 206 | Mouse Sel mode is a global minor mode. When enabled, mouse |
| 206 | various ways: | 207 | selection is enhanced in various ways: |
| 207 | 208 | ||
| 208 | - Double-clicking on symbol constituents selects symbols. | 209 | - Double-clicking on symbol constituents selects symbols. |
| 209 | Double-clicking on quotes or parentheses selects sexps. | 210 | Double-clicking on quotes or parentheses selects sexps. |
diff --git a/lisp/mouse.el b/lisp/mouse.el index ff175288445..9b1cf48ccdc 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el | |||
| @@ -372,300 +372,167 @@ This command must be bound to a mouse click." | |||
| 372 | (split-window-horizontally | 372 | (split-window-horizontally |
| 373 | (min (max new-width first-col) last-col)))))) | 373 | (min (max new-width first-col) last-col)))))) |
| 374 | 374 | ||
| 375 | (defun mouse-drag-window-above (window) | 375 | ;; `mouse-drag-line' is now the common routine for handling all line |
| 376 | "Return the (or a) window directly above WINDOW. | 376 | ;; dragging events combining the earlier `mouse-drag-mode-line-1' and |
| 377 | That means one whose bottom edge is at the same height as WINDOW's top edge." | 377 | ;; `mouse-drag-vertical-line'. It should improve the behavior of line |
| 378 | (let ((start-top (nth 1 (window-edges window))) | 378 | ;; dragging wrt Emacs 23 as follows: |
| 379 | (start-left (nth 0 (window-edges window))) | 379 | |
| 380 | (start-right (nth 2 (window-edges window))) | 380 | ;; (1) Gratuitous error messages and restrictions have been (hopefully) |
| 381 | (start-window window) | 381 | ;; removed. (The help-echo that dragging the mode-line can resize a |
| 382 | above-window) | 382 | ;; one-window-frame's window will still show through via bindings.el.) |
| 383 | (setq window (previous-window window 0)) | 383 | |
| 384 | (while (and (not above-window) (not (eq window start-window))) | 384 | ;; (2) No gratuitous selection of other windows should happen. (This |
| 385 | (let ((left (nth 0 (window-edges window))) | 385 | ;; has not been completely fixed for mouse-autoselected windows yet.) |
| 386 | (right (nth 2 (window-edges window)))) | 386 | |
| 387 | (when (and (= (+ (window-height window) (nth 1 (window-edges window))) | 387 | ;; (3) Mouse clicks below a scroll-bar should pass through via unread |
| 388 | start-top) | 388 | ;; command events. |
| 389 | (or (and (<= left start-left) (<= start-right right)) | 389 | |
| 390 | (and (<= start-left left) (<= left start-right)) | 390 | ;; Note that `window-in-direction' replaces `mouse-drag-window-above' |
| 391 | (and (<= start-left right) (<= right start-right)))) | 391 | ;; and `mouse-drag-vertical-line-rightward-window' with Emacs 24.1. |
| 392 | (setq above-window window))) | 392 | (defun mouse-drag-line (start-event line) |
| 393 | (setq window (previous-window window))) | 393 | "Drag some line with the mouse. |
| 394 | above-window)) | 394 | START-EVENT is the starting mouse-event of the drag action. LINE |
| 395 | 395 | must be one of the symbols header, mode, or vertical." | |
| 396 | (defun mouse-drag-move-window-bottom (window growth) | ||
| 397 | "Move the bottom of WINDOW up or down by GROWTH lines. | ||
| 398 | Move it down if GROWTH is positive, or up if GROWTH is negative. | ||
| 399 | If this would make WINDOW too short, | ||
| 400 | shrink the window or windows above it to make room." | ||
| 401 | (condition-case nil | ||
| 402 | (adjust-window-trailing-edge window growth nil) | ||
| 403 | (error nil))) | ||
| 404 | |||
| 405 | (defsubst mouse-drag-move-window-top (window growth) | ||
| 406 | "Move the top of WINDOW up or down by GROWTH lines. | ||
| 407 | Move it down if GROWTH is positive, or up if GROWTH is negative. | ||
| 408 | If this would make WINDOW too short, shrink the window or windows | ||
| 409 | above it to make room." | ||
| 410 | ;; Moving the top of WINDOW is actually moving the bottom of the | ||
| 411 | ;; window above. | ||
| 412 | (let ((window-above (mouse-drag-window-above window))) | ||
| 413 | (and window-above | ||
| 414 | (mouse-drag-move-window-bottom window-above (- growth))))) | ||
| 415 | |||
| 416 | (defun mouse-drag-mode-line-1 (start-event mode-line-p) | ||
| 417 | "Change the height of a window by dragging on the mode or header line. | ||
| 418 | START-EVENT is the starting mouse-event of the drag action. | ||
| 419 | MODE-LINE-P non-nil means dragging a mode line; nil means a header line." | ||
| 420 | ;; Give temporary modes such as isearch a chance to turn off. | 396 | ;; Give temporary modes such as isearch a chance to turn off. |
| 421 | (run-hooks 'mouse-leave-buffer-hook) | 397 | (run-hooks 'mouse-leave-buffer-hook) |
| 422 | (let* ((done nil) | 398 | (let* ((echo-keystrokes 0) |
| 423 | (echo-keystrokes 0) | ||
| 424 | (start (event-start start-event)) | 399 | (start (event-start start-event)) |
| 425 | (start-event-window (posn-window start)) | 400 | (window (posn-window start)) |
| 426 | (start-event-frame (window-frame start-event-window)) | 401 | (frame (window-frame window)) |
| 427 | (start-nwindows (count-windows t)) | 402 | (minibuffer-window (minibuffer-window frame)) |
| 428 | (on-link (and mouse-1-click-follows-link | 403 | (on-link (and mouse-1-click-follows-link |
| 429 | (or mouse-1-click-in-non-selected-windows | 404 | (or mouse-1-click-in-non-selected-windows |
| 430 | (eq (posn-window start) (selected-window))) | 405 | (eq window (selected-window))) |
| 431 | (mouse-on-link-p start))) | 406 | (mouse-on-link-p start))) |
| 432 | (minibuffer (frame-parameter nil 'minibuffer)) | 407 | (enlarge-minibuffer |
| 433 | should-enlarge-minibuffer event mouse y top bot edges wconfig growth) | 408 | (and (eq line 'mode) |
| 409 | (not resize-mini-windows) | ||
| 410 | (eq (window-frame minibuffer-window) frame) | ||
| 411 | (not (one-window-p t frame)) | ||
| 412 | (= (nth 1 (window-edges minibuffer-window)) | ||
| 413 | (nth 3 (window-edges window))))) | ||
| 414 | (which-side | ||
| 415 | (and (eq line 'vertical) | ||
| 416 | (or (cdr (assq 'vertical-scroll-bars (frame-parameters frame))) | ||
| 417 | 'right))) | ||
| 418 | done event mouse growth dragged) | ||
| 419 | (cond | ||
| 420 | ((eq line 'header) | ||
| 421 | ;; Check whether header-line can be dragged at all. | ||
| 422 | (if (window-at-side-p window 'top) | ||
| 423 | (setq done t) | ||
| 424 | (setq window (window-in-direction 'above window t)))) | ||
| 425 | ((eq line 'mode) | ||
| 426 | ;; Check whether mode-line can be dragged at all. | ||
| 427 | (when (and (window-at-side-p window 'bottom) | ||
| 428 | (not enlarge-minibuffer)) | ||
| 429 | (setq done t))) | ||
| 430 | ((eq line 'vertical) | ||
| 431 | ;; Get the window to adjust for the vertical case. | ||
| 432 | (setq window | ||
| 433 | (if (eq which-side 'right) | ||
| 434 | ;; If the scroll bar is on the window's right or there's | ||
| 435 | ;; no scroll bar at all, adjust the window where the | ||
| 436 | ;; start-event occurred. | ||
| 437 | window | ||
| 438 | ;; If the scroll bar is on the start-event window's left, | ||
| 439 | ;; adjust the window on the left of it. | ||
| 440 | (window-in-direction 'left window t))))) | ||
| 441 | |||
| 442 | ;; Start tracking. | ||
| 434 | (track-mouse | 443 | (track-mouse |
| 435 | (progn | 444 | ;; Loop reading events and sampling the position of the mouse. |
| 436 | ;; if this is the bottommost ordinary window, then to | 445 | (while (not done) |
| 437 | ;; move its modeline the minibuffer must be enlarged. | 446 | (setq event (read-event)) |
| 438 | (setq should-enlarge-minibuffer | 447 | (setq mouse (mouse-position)) |
| 439 | (and minibuffer | 448 | ;; Do nothing if |
| 440 | mode-line-p | 449 | ;; - there is a switch-frame event. |
| 441 | (not (one-window-p t)) | 450 | ;; - the mouse isn't in the frame that we started in |
| 442 | (= (nth 1 (window-edges minibuffer)) | 451 | ;; - the mouse isn't in any Emacs frame |
| 443 | (nth 3 (window-edges start-event-window))))) | 452 | ;; Drag if |
| 444 | 453 | ;; - there is a mouse-movement event | |
| 445 | ;; loop reading events and sampling the position of | 454 | ;; - there is a scroll-bar-movement event (??) |
| 446 | ;; the mouse. | 455 | ;; (same as mouse movement for our purposes) |
| 447 | (while (not done) | 456 | ;; Quit if |
| 448 | (setq event (read-event) | 457 | ;; - there is a keyboard event or some other unknown event. |
| 449 | mouse (mouse-position)) | 458 | (cond |
| 450 | 459 | ((not (consp event)) | |
| 451 | ;; do nothing if | 460 | (setq done t)) |
| 452 | ;; - there is a switch-frame event. | 461 | ((memq (car event) '(switch-frame select-window)) |
| 453 | ;; - the mouse isn't in the frame that we started in | 462 | nil) |
| 454 | ;; - the mouse isn't in any Emacs frame | 463 | ((not (memq (car event) '(mouse-movement scroll-bar-movement))) |
| 455 | ;; drag if | 464 | (when (consp event) |
| 456 | ;; - there is a mouse-movement event | 465 | ;; Do not unread a drag-mouse-1 event to avoid selecting |
| 457 | ;; - there is a scroll-bar-movement event | 466 | ;; some other window. For vertical line dragging do not |
| 458 | ;; (same as mouse movement for our purposes) | 467 | ;; unread mouse-1 events either (but only if we dragged at |
| 459 | ;; quit if | 468 | ;; least once to allow mouse-1 clicks get through. |
| 460 | ;; - there is a keyboard event or some other unknown event. | 469 | (unless (and dragged |
| 461 | (cond ((not (consp event)) | 470 | (if (eq line 'vertical) |
| 462 | (setq done t)) | 471 | (memq (car event) '(drag-mouse-1 mouse-1)) |
| 463 | 472 | (eq (car event) 'drag-mouse-1))) | |
| 464 | ((memq (car event) '(switch-frame select-window)) | 473 | (push event unread-command-events))) |
| 465 | nil) | 474 | (setq done t)) |
| 466 | 475 | ((or (not (eq (car mouse) frame)) (null (car (cdr mouse)))) | |
| 467 | ((not (memq (car event) '(mouse-movement scroll-bar-movement))) | 476 | nil) |
| 468 | (when (consp event) | 477 | ((eq line 'vertical) |
| 469 | ;; Do not unread a drag-mouse-1 event since it will cause the | 478 | ;; Drag vertical divider (the calculations below are those |
| 470 | ;; selection of the window above when dragging the modeline | 479 | ;; from Emacs 23). |
| 471 | ;; above the selected window. | 480 | (setq growth |
| 472 | (unless (eq (car event) 'drag-mouse-1) | 481 | (- (- (cadr mouse) |
| 473 | (push event unread-command-events))) | 482 | (if (eq which-side 'right) 0 2)) |
| 474 | (setq done t)) | 483 | (nth 2 (window-edges window)) |
| 475 | 484 | -1)) | |
| 476 | ((not (eq (car mouse) start-event-frame)) | 485 | (unless (zerop growth) |
| 477 | nil) | 486 | ;; Remember that we dragged. |
| 478 | 487 | (setq dragged t)) | |
| 479 | ((null (car (cdr mouse))) | 488 | (adjust-window-trailing-edge window growth t)) |
| 480 | nil) | 489 | (t |
| 481 | 490 | ;; Drag horizontal divider (the calculations below are those | |
| 482 | (t | 491 | ;; from Emacs 23). |
| 483 | (setq y (cdr (cdr mouse)) | 492 | (setq growth |
| 484 | edges (window-edges start-event-window) | 493 | (if (eq line 'mode) |
| 485 | top (nth 1 edges) | 494 | (- (cddr mouse) (nth 3 (window-edges window)) -1) |
| 486 | bot (nth 3 edges)) | 495 | ;; The window's top includes the header line! |
| 487 | 496 | (- (nth 3 (window-edges window)) (cddr mouse)))) | |
| 488 | ;; compute size change needed | 497 | |
| 489 | (cond (mode-line-p | 498 | (unless (zerop growth) |
| 490 | (setq growth (- y bot -1))) | 499 | ;; Remember that we dragged. |
| 491 | (t ; header line | 500 | (setq dragged t)) |
| 492 | (when (< (- bot y) window-min-height) | 501 | |
| 493 | (setq y (- bot window-min-height))) | 502 | (cond |
| 494 | ;; The window's top includes the header line! | 503 | (enlarge-minibuffer |
| 495 | (setq growth (- top y)))) | 504 | (adjust-window-trailing-edge window growth)) |
| 496 | (setq wconfig (current-window-configuration)) | 505 | ((eq line 'mode) |
| 497 | 506 | (adjust-window-trailing-edge window growth)) | |
| 498 | ;; Check for an error case. | 507 | (t |
| 499 | (when (and (/= growth 0) | 508 | (adjust-window-trailing-edge window (- growth))))))) |
| 500 | (not minibuffer) | 509 | |
| 501 | (one-window-p t)) | 510 | ;; Presumably, if this was just a click, the last event should be |
| 502 | (error "Attempt to resize sole window")) | 511 | ;; `mouse-1', whereas if this did move the mouse, it should be a |
| 503 | 512 | ;; `drag-mouse-1'. `dragged' nil tells us that we never dragged | |
| 504 | ;; If we ever move, make sure we don't mistakenly treat | 513 | ;; and `on-link' tells us that there is a link to follow. |
| 505 | ;; some unexpected `mouse-1' final event as a sign that | 514 | (when (and on-link (not dragged) |
| 506 | ;; this whole drag was nothing more than a click. | 515 | (eq 'mouse-1 (car-safe (car unread-command-events)))) |
| 507 | (if (/= growth 0) (setq on-link nil)) | 516 | ;; If mouse-2 has never been done by the user, it doesn't |
| 508 | 517 | ;; have the necessary property to be interpreted correctly. | |
| 509 | ;; grow/shrink minibuffer? | 518 | (put 'mouse-2 'event-kind 'mouse-click) |
| 510 | (if should-enlarge-minibuffer | 519 | (setcar unread-command-events |
| 511 | (unless resize-mini-windows | 520 | (cons 'mouse-2 (cdar unread-command-events))))))) |
| 512 | (mouse-drag-move-window-bottom start-event-window growth)) | ||
| 513 | ;; no. grow/shrink the selected window | ||
| 514 | ;(message "growth = %d" growth) | ||
| 515 | (if mode-line-p | ||
| 516 | (mouse-drag-move-window-bottom start-event-window growth) | ||
| 517 | (mouse-drag-move-window-top start-event-window growth))) | ||
| 518 | |||
| 519 | ;; if this window's growth caused another | ||
| 520 | ;; window to be deleted because it was too | ||
| 521 | ;; short, rescind the change. | ||
| 522 | ;; | ||
| 523 | ;; if size change caused space to be stolen | ||
| 524 | ;; from a window above this one, rescind the | ||
| 525 | ;; change, but only if we didn't grow/shrink | ||
| 526 | ;; the minibuffer. minibuffer size changes | ||
| 527 | ;; can cause all windows to shrink... no way | ||
| 528 | ;; around it. | ||
| 529 | (when (or (/= start-nwindows (count-windows t)) | ||
| 530 | (and (not should-enlarge-minibuffer) | ||
| 531 | (> growth 0) | ||
| 532 | mode-line-p | ||
| 533 | (/= top | ||
| 534 | (nth 1 (window-edges | ||
| 535 | ;; Choose right window. | ||
| 536 | start-event-window))))) | ||
| 537 | (set-window-configuration wconfig))))) | ||
| 538 | |||
| 539 | ;; Presumably if this was just a click, the last event should | ||
| 540 | ;; be `mouse-1', whereas if this did move the mouse, it should be | ||
| 541 | ;; a `drag-mouse-1'. In any case `on-link' would have been nulled | ||
| 542 | ;; above if there had been any significant mouse movement. | ||
| 543 | (when (and on-link | ||
| 544 | (eq 'mouse-1 (car-safe (car unread-command-events)))) | ||
| 545 | ;; If mouse-2 has never been done by the user, it doesn't | ||
| 546 | ;; have the necessary property to be interpreted correctly. | ||
| 547 | (put 'mouse-2 'event-kind 'mouse-click) | ||
| 548 | (setcar unread-command-events | ||
| 549 | (cons 'mouse-2 (cdar unread-command-events)))))))) | ||
| 550 | 521 | ||
| 551 | (defun mouse-drag-mode-line (start-event) | 522 | (defun mouse-drag-mode-line (start-event) |
| 552 | "Change the height of a window by dragging on the mode line." | 523 | "Change the height of a window by dragging on the mode line." |
| 553 | (interactive "e") | 524 | (interactive "e") |
| 554 | (mouse-drag-mode-line-1 start-event t)) | 525 | (mouse-drag-line start-event 'mode)) |
| 555 | 526 | ||
| 556 | (defun mouse-drag-header-line (start-event) | 527 | (defun mouse-drag-header-line (start-event) |
| 557 | "Change the height of a window by dragging on the header line. | 528 | "Change the height of a window by dragging on the header line." |
| 558 | Windows whose header-lines are at the top of the frame cannot be | ||
| 559 | resized by dragging their header-line." | ||
| 560 | (interactive "e") | 529 | (interactive "e") |
| 561 | ;; Changing the window's size by dragging its header-line when the | 530 | (mouse-drag-line start-event 'header)) |
| 562 | ;; header-line is at the top of the frame is somewhat strange, | ||
| 563 | ;; because the header-line doesn't move, so don't do it. | ||
| 564 | (let* ((start (event-start start-event)) | ||
| 565 | (window (posn-window start)) | ||
| 566 | (frame (window-frame window)) | ||
| 567 | (first-window (frame-first-window frame))) | ||
| 568 | (unless (or (eq window first-window) | ||
| 569 | (= (nth 1 (window-edges window)) | ||
| 570 | (nth 1 (window-edges first-window)))) | ||
| 571 | (mouse-drag-mode-line-1 start-event nil)))) | ||
| 572 | |||
| 573 | |||
| 574 | (defun mouse-drag-vertical-line-rightward-window (window) | ||
| 575 | "Return a window that is immediately to the right of WINDOW, or nil." | ||
| 576 | (let ((bottom (nth 3 (window-inside-edges window))) | ||
| 577 | (left (nth 0 (window-inside-edges window))) | ||
| 578 | best best-right | ||
| 579 | (try (previous-window window))) | ||
| 580 | (while (not (eq try window)) | ||
| 581 | (let ((try-top (nth 1 (window-inside-edges try))) | ||
| 582 | (try-bottom (nth 3 (window-inside-edges try))) | ||
| 583 | (try-right (nth 2 (window-inside-edges try)))) | ||
| 584 | (if (and (< try-top bottom) | ||
| 585 | (>= try-bottom bottom) | ||
| 586 | (< try-right left) | ||
| 587 | (or (null best-right) (> try-right best-right))) | ||
| 588 | (setq best-right try-right best try))) | ||
| 589 | (setq try (previous-window try))) | ||
| 590 | best)) | ||
| 591 | 531 | ||
| 592 | (defun mouse-drag-vertical-line (start-event) | 532 | (defun mouse-drag-vertical-line (start-event) |
| 593 | "Change the width of a window by dragging on the vertical line." | 533 | "Change the width of a window by dragging on the vertical line." |
| 594 | (interactive "e") | 534 | (interactive "e") |
| 595 | ;; Give temporary modes such as isearch a chance to turn off. | 535 | (mouse-drag-line start-event 'vertical)) |
| 596 | (run-hooks 'mouse-leave-buffer-hook) | ||
| 597 | (let* ((done nil) | ||
| 598 | (echo-keystrokes 0) | ||
| 599 | (start-event-frame (window-frame (car (car (cdr start-event))))) | ||
| 600 | (start-event-window (car (car (cdr start-event)))) | ||
| 601 | event mouse x left right edges growth | ||
| 602 | (which-side | ||
| 603 | (or (cdr (assq 'vertical-scroll-bars (frame-parameters start-event-frame))) | ||
| 604 | 'right))) | ||
| 605 | (cond | ||
| 606 | ((one-window-p t) | ||
| 607 | (error "Attempt to resize sole ordinary window")) | ||
| 608 | ((and (eq which-side 'right) | ||
| 609 | (>= (nth 2 (window-inside-edges start-event-window)) | ||
| 610 | (frame-width start-event-frame))) | ||
| 611 | (error "Attempt to drag rightmost scrollbar")) | ||
| 612 | ((and (eq which-side 'left) | ||
| 613 | (= (nth 0 (window-inside-edges start-event-window)) 0)) | ||
| 614 | (error "Attempt to drag leftmost scrollbar"))) | ||
| 615 | (track-mouse | ||
| 616 | (progn | ||
| 617 | ;; loop reading events and sampling the position of | ||
| 618 | ;; the mouse. | ||
| 619 | (while (not done) | ||
| 620 | (setq event (read-event) | ||
| 621 | mouse (mouse-position)) | ||
| 622 | ;; do nothing if | ||
| 623 | ;; - there is a switch-frame event. | ||
| 624 | ;; - the mouse isn't in the frame that we started in | ||
| 625 | ;; - the mouse isn't in any Emacs frame | ||
| 626 | ;; drag if | ||
| 627 | ;; - there is a mouse-movement event | ||
| 628 | ;; - there is a scroll-bar-movement event | ||
| 629 | ;; (same as mouse movement for our purposes) | ||
| 630 | ;; quit if | ||
| 631 | ;; - there is a keyboard event or some other unknown event | ||
| 632 | ;; unknown event. | ||
| 633 | (cond ((integerp event) | ||
| 634 | (setq done t)) | ||
| 635 | ((memq (car event) '(switch-frame select-window)) | ||
| 636 | nil) | ||
| 637 | ((not (memq (car event) | ||
| 638 | '(mouse-movement scroll-bar-movement))) | ||
| 639 | (if (consp event) | ||
| 640 | (setq unread-command-events | ||
| 641 | (cons event unread-command-events))) | ||
| 642 | (setq done t)) | ||
| 643 | ((not (eq (car mouse) start-event-frame)) | ||
| 644 | nil) | ||
| 645 | ((null (car (cdr mouse))) | ||
| 646 | nil) | ||
| 647 | (t | ||
| 648 | (let ((window | ||
| 649 | ;; If the scroll bar is on the window's left, | ||
| 650 | ;; adjust the window on the left. | ||
| 651 | (if (eq which-side 'right) | ||
| 652 | start-event-window | ||
| 653 | (mouse-drag-vertical-line-rightward-window | ||
| 654 | start-event-window)))) | ||
| 655 | (setq x (- (car (cdr mouse)) | ||
| 656 | (if (eq which-side 'right) 0 2)) | ||
| 657 | edges (window-edges window) | ||
| 658 | left (nth 0 edges) | ||
| 659 | right (nth 2 edges)) | ||
| 660 | ;; scale back a move that would make the | ||
| 661 | ;; window too thin. | ||
| 662 | (if (< (- x left -1) window-min-width) | ||
| 663 | (setq x (+ left window-min-width -1))) | ||
| 664 | ;; compute size change needed | ||
| 665 | (setq growth (- x right -1)) | ||
| 666 | (condition-case nil | ||
| 667 | (adjust-window-trailing-edge window growth t) | ||
| 668 | (error nil)))))))))) | ||
| 669 | 536 | ||
| 670 | (defun mouse-set-point (event) | 537 | (defun mouse-set-point (event) |
| 671 | "Move point to the position clicked on with the mouse. | 538 | "Move point to the position clicked on with the mouse. |
diff --git a/lisp/msb.el b/lisp/msb.el index 12e5a0192fe..74ceff1a9cd 100644 --- a/lisp/msb.el +++ b/lisp/msb.el | |||
| @@ -1133,7 +1133,10 @@ variable `msb-menu-cond'." | |||
| 1133 | ;;;###autoload | 1133 | ;;;###autoload |
| 1134 | (define-minor-mode msb-mode | 1134 | (define-minor-mode msb-mode |
| 1135 | "Toggle Msb mode. | 1135 | "Toggle Msb mode. |
| 1136 | With arg, turn Msb mode on if and only if arg is positive. | 1136 | With a prefix argument ARG, enable Msb mode if ARG is positive, |
| 1137 | and disable it otherwise. If called from Lisp, enable the mode | ||
| 1138 | if ARG is omitted or nil. | ||
| 1139 | |||
| 1137 | This mode overrides the binding(s) of `mouse-buffer-menu' to provide a | 1140 | This mode overrides the binding(s) of `mouse-buffer-menu' to provide a |
| 1138 | different buffer menu using the function `msb'." | 1141 | different buffer menu using the function `msb'." |
| 1139 | :global t :group 'msb | 1142 | :global t :group 'msb |
diff --git a/lisp/mwheel.el b/lisp/mwheel.el index 4ead168b188..05aeb12acf4 100644 --- a/lisp/mwheel.el +++ b/lisp/mwheel.el | |||
| @@ -250,11 +250,11 @@ This should only be bound to mouse buttons 4 and 5." | |||
| 250 | 250 | ||
| 251 | (defvar mwheel-installed-bindings nil) | 251 | (defvar mwheel-installed-bindings nil) |
| 252 | 252 | ||
| 253 | ;; preloaded ;;;###autoload | ||
| 254 | (define-minor-mode mouse-wheel-mode | 253 | (define-minor-mode mouse-wheel-mode |
| 255 | "Toggle mouse wheel support. | 254 | "Toggle mouse wheel support (Mouse Wheel mode). |
| 256 | With prefix argument ARG, turn on if positive, otherwise off. | 255 | With a prefix argument ARG, enable Mouse Wheel mode if ARG is |
| 257 | Return non-nil if the new state is enabled." | 256 | positive, and disable it otherwise. If called from Lisp, enable |
| 257 | the mode if ARG is omitted or nil." | ||
| 258 | :init-value t | 258 | :init-value t |
| 259 | ;; We'd like to use custom-initialize-set here so the setup is done | 259 | ;; We'd like to use custom-initialize-set here so the setup is done |
| 260 | ;; before dumping, but at the point where the defcustom is evaluated, | 260 | ;; before dumping, but at the point where the defcustom is evaluated, |
diff --git a/lisp/net/browse-url.el b/lisp/net/browse-url.el index 0130ac3a6be..39a48bde645 100644 --- a/lisp/net/browse-url.el +++ b/lisp/net/browse-url.el | |||
| @@ -36,6 +36,7 @@ | |||
| 36 | ;; Function Browser Earliest version | 36 | ;; Function Browser Earliest version |
| 37 | ;; browse-url-mozilla Mozilla Don't know | 37 | ;; browse-url-mozilla Mozilla Don't know |
| 38 | ;; browse-url-firefox Firefox Don't know (tried with 1.0.1) | 38 | ;; browse-url-firefox Firefox Don't know (tried with 1.0.1) |
| 39 | ;; browse-url-chromium Chromium 3.0 | ||
| 39 | ;; browse-url-galeon Galeon Don't know | 40 | ;; browse-url-galeon Galeon Don't know |
| 40 | ;; browse-url-epiphany Epiphany Don't know | 41 | ;; browse-url-epiphany Epiphany Don't know |
| 41 | ;; browse-url-netscape Netscape 1.1b1 | 42 | ;; browse-url-netscape Netscape 1.1b1 |
| @@ -47,6 +48,7 @@ | |||
| 47 | ;; browse-url-generic arbitrary | 48 | ;; browse-url-generic arbitrary |
| 48 | ;; browse-url-default-windows-browser MS-Windows browser | 49 | ;; browse-url-default-windows-browser MS-Windows browser |
| 49 | ;; browse-url-default-macosx-browser Mac OS X browser | 50 | ;; browse-url-default-macosx-browser Mac OS X browser |
| 51 | ;; browse-url-xdg-open Free Desktop xdg-open on Gnome, KDE, Xfce4, LXDE | ||
| 50 | ;; browse-url-gnome-moz GNOME interface to Mozilla | 52 | ;; browse-url-gnome-moz GNOME interface to Mozilla |
| 51 | ;; browse-url-kde KDE konqueror (kfm) | 53 | ;; browse-url-kde KDE konqueror (kfm) |
| 52 | ;; browse-url-elinks Elinks Don't know (tried with 0.12.GIT) | 54 | ;; browse-url-elinks Elinks Don't know (tried with 0.12.GIT) |
| @@ -230,6 +232,7 @@ regexp should probably be \".\" to specify a default browser." | |||
| 230 | :value browse-url-w3-gnudoit) | 232 | :value browse-url-w3-gnudoit) |
| 231 | (function-item :tag "Mozilla" :value browse-url-mozilla) | 233 | (function-item :tag "Mozilla" :value browse-url-mozilla) |
| 232 | (function-item :tag "Firefox" :value browse-url-firefox) | 234 | (function-item :tag "Firefox" :value browse-url-firefox) |
| 235 | (function-item :tag "Chromium" :value browse-url-chromium) | ||
| 233 | (function-item :tag "Galeon" :value browse-url-galeon) | 236 | (function-item :tag "Galeon" :value browse-url-galeon) |
| 234 | (function-item :tag "Epiphany" :value browse-url-epiphany) | 237 | (function-item :tag "Epiphany" :value browse-url-epiphany) |
| 235 | (function-item :tag "Netscape" :value browse-url-netscape) | 238 | (function-item :tag "Netscape" :value browse-url-netscape) |
| @@ -336,6 +339,22 @@ Defaults to the value of `browse-url-firefox-arguments' at the time | |||
| 336 | :type '(repeat (string :tag "Argument")) | 339 | :type '(repeat (string :tag "Argument")) |
| 337 | :group 'browse-url) | 340 | :group 'browse-url) |
| 338 | 341 | ||
| 342 | (defcustom browse-url-chromium-program | ||
| 343 | (let ((candidates '("chromium" "chromium-browser"))) | ||
| 344 | (while (and candidates (not (executable-find (car candidates)))) | ||
| 345 | (setq candidates (cdr candidates))) | ||
| 346 | (or (car candidates) "chromium")) | ||
| 347 | "The name by which to invoke Chromium." | ||
| 348 | :type 'string | ||
| 349 | :version "24.1" | ||
| 350 | :group 'browse-url) | ||
| 351 | |||
| 352 | (defcustom browse-url-chromium-arguments nil | ||
| 353 | "A list of strings to pass to Chromium as arguments." | ||
| 354 | :type '(repeat (string :tag "Argument")) | ||
| 355 | :version "24.1" | ||
| 356 | :group 'browse-url) | ||
| 357 | |||
| 339 | (defcustom browse-url-galeon-program "galeon" | 358 | (defcustom browse-url-galeon-program "galeon" |
| 340 | "The name by which to invoke Galeon." | 359 | "The name by which to invoke Galeon." |
| 341 | :type 'string | 360 | :type 'string |
| @@ -921,6 +940,7 @@ used instead of `browse-url-new-window-flag'." | |||
| 921 | ((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz) | 940 | ((executable-find browse-url-gnome-moz-program) 'browse-url-gnome-moz) |
| 922 | ((executable-find browse-url-mozilla-program) 'browse-url-mozilla) | 941 | ((executable-find browse-url-mozilla-program) 'browse-url-mozilla) |
| 923 | ((executable-find browse-url-firefox-program) 'browse-url-firefox) | 942 | ((executable-find browse-url-firefox-program) 'browse-url-firefox) |
| 943 | ((executable-find browse-url-chromium-program) 'browse-url-chromium) | ||
| 924 | ((executable-find browse-url-galeon-program) 'browse-url-galeon) | 944 | ((executable-find browse-url-galeon-program) 'browse-url-galeon) |
| 925 | ((executable-find browse-url-kde-program) 'browse-url-kde) | 945 | ((executable-find browse-url-kde-program) 'browse-url-kde) |
| 926 | ((executable-find browse-url-netscape-program) 'browse-url-netscape) | 946 | ((executable-find browse-url-netscape-program) 'browse-url-netscape) |
| @@ -932,12 +952,13 @@ used instead of `browse-url-new-window-flag'." | |||
| 932 | url args)) | 952 | url args)) |
| 933 | 953 | ||
| 934 | (defun browse-url-can-use-xdg-open () | 954 | (defun browse-url-can-use-xdg-open () |
| 935 | "Check if xdg-open can be used, i.e. we are on Gnome, KDE or xfce4." | 955 | "Check if xdg-open can be used, i.e. we are on Gnome, KDE, Xfce4 or LXDE." |
| 936 | (and (getenv "DISPLAY") | 956 | (and (getenv "DISPLAY") |
| 937 | (executable-find "xdg-open") | 957 | (executable-find "xdg-open") |
| 938 | ;; xdg-open may call gnome-open and that does not wait for its child | 958 | ;; xdg-open may call gnome-open and that does not wait for its child |
| 939 | ;; to finish. This child may then be killed when the parent dies. | 959 | ;; to finish. This child may then be killed when the parent dies. |
| 940 | ;; Use nohup to work around. | 960 | ;; Use nohup to work around. See bug#7166, bug#8917, bug#9779 and |
| 961 | ;; http://lists.gnu.org/archive/html/emacs-devel/2009-07/msg00279.html | ||
| 941 | (executable-find "nohup") | 962 | (executable-find "nohup") |
| 942 | (or (getenv "GNOME_DESKTOP_SESSION_ID") | 963 | (or (getenv "GNOME_DESKTOP_SESSION_ID") |
| 943 | ;; GNOME_DESKTOP_SESSION_ID is deprecated, check on Dbus also. | 964 | ;; GNOME_DESKTOP_SESSION_ID is deprecated, check on Dbus also. |
| @@ -955,7 +976,9 @@ used instead of `browse-url-new-window-flag'." | |||
| 955 | "/bin/sh" nil nil nil | 976 | "/bin/sh" nil nil nil |
| 956 | "-c" | 977 | "-c" |
| 957 | "xprop -root _DT_SAVE_MODE|grep xfce4")) | 978 | "xprop -root _DT_SAVE_MODE|grep xfce4")) |
| 958 | (error nil))))) | 979 | (error nil)) |
| 980 | (member (getenv "DESKTOP_SESSION") '("LXDE" "Lubuntu")) | ||
| 981 | (equal (getenv "XDG_CURRENT_DESKTOP") "LXDE")))) | ||
| 959 | 982 | ||
| 960 | 983 | ||
| 961 | ;;;###autoload | 984 | ;;;###autoload |
| @@ -1149,6 +1172,22 @@ URL in a new window." | |||
| 1149 | (append browse-url-firefox-startup-arguments (list url)))))) | 1172 | (append browse-url-firefox-startup-arguments (list url)))))) |
| 1150 | 1173 | ||
| 1151 | ;;;###autoload | 1174 | ;;;###autoload |
| 1175 | (defun browse-url-chromium (url &optional new-window) | ||
| 1176 | "Ask the Chromium WWW browser to load URL. | ||
| 1177 | Default to the URL around or before point. The strings in | ||
| 1178 | variable `browse-url-chromium-arguments' are also passed to | ||
| 1179 | Chromium." | ||
| 1180 | (interactive (browse-url-interactive-arg "URL: ")) | ||
| 1181 | (setq url (browse-url-encode-url url)) | ||
| 1182 | (let* ((process-environment (browse-url-process-environment))) | ||
| 1183 | (apply 'start-process | ||
| 1184 | (concat "chromium " url) nil | ||
| 1185 | browse-url-chromium-program | ||
| 1186 | (append | ||
| 1187 | browse-url-chromium-arguments | ||
| 1188 | (list url))))) | ||
| 1189 | |||
| 1190 | ;;;###autoload | ||
| 1152 | (defun browse-url-galeon (url &optional new-window) | 1191 | (defun browse-url-galeon (url &optional new-window) |
| 1153 | "Ask the Galeon WWW browser to load URL. | 1192 | "Ask the Galeon WWW browser to load URL. |
| 1154 | Default to the URL around or before point. The strings in variable | 1193 | Default to the URL around or before point. The strings in variable |
diff --git a/lisp/net/goto-addr.el b/lisp/net/goto-addr.el index 4e78a7d42c0..1432c1e516b 100644 --- a/lisp/net/goto-addr.el +++ b/lisp/net/goto-addr.el | |||
| @@ -288,7 +288,7 @@ Also fontifies the buffer appropriately (see `goto-address-fontify-p' and | |||
| 288 | 288 | ||
| 289 | ;;;###autoload | 289 | ;;;###autoload |
| 290 | (define-minor-mode goto-address-prog-mode | 290 | (define-minor-mode goto-address-prog-mode |
| 291 | "Turn on `goto-address-mode', but only in comments and strings." | 291 | "Like `goto-address-mode', but only for comments and strings." |
| 292 | nil | 292 | nil |
| 293 | "" | 293 | "" |
| 294 | nil | 294 | nil |
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el index 9397025cb60..b35ca3bbd18 100644 --- a/lisp/net/tramp-cache.el +++ b/lisp/net/tramp-cache.el | |||
| @@ -383,7 +383,8 @@ for all methods. Resulting data are derived from connection history." | |||
| 383 | ;; When "emacs -Q" has been called, both variables are nil. | 383 | ;; When "emacs -Q" has been called, both variables are nil. |
| 384 | ;; We do not load the persistency file then, in order to | 384 | ;; We do not load the persistency file then, in order to |
| 385 | ;; have a clean test environment. | 385 | ;; have a clean test environment. |
| 386 | (or init-file-user site-run-file)) | 386 | (or (and (boundp 'init-file-user) (symbol-value 'init-file-user)) |
| 387 | (and (boundp 'site-run-file) (symbol-value 'site-run-file)))) | ||
| 387 | (condition-case err | 388 | (condition-case err |
| 388 | (with-temp-buffer | 389 | (with-temp-buffer |
| 389 | (insert-file-contents tramp-persistency-file-name) | 390 | (insert-file-contents tramp-persistency-file-name) |
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index cc4fda32dff..5fca1018095 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -2103,8 +2103,9 @@ This is true, if either the remote host is already connected, or if we are | |||
| 2103 | not in completion mode." | 2103 | not in completion mode." |
| 2104 | (and (tramp-tramp-file-p filename) | 2104 | (and (tramp-tramp-file-p filename) |
| 2105 | (with-parsed-tramp-file-name filename nil | 2105 | (with-parsed-tramp-file-name filename nil |
| 2106 | (or (get-buffer (tramp-buffer-name v)) | 2106 | (or (not (tramp-completion-mode-p)) |
| 2107 | (not (tramp-completion-mode-p)))))) | 2107 | (let ((p (tramp-get-connection-process v))) |
| 2108 | (and p (processp p) (memq (process-status p) '(run open)))))))) | ||
| 2108 | 2109 | ||
| 2109 | ;; Method, host name and user name completion. | 2110 | ;; Method, host name and user name completion. |
| 2110 | ;; `tramp-completion-dissect-file-name' returns a list of | 2111 | ;; `tramp-completion-dissect-file-name' returns a list of |
diff --git a/lisp/net/trampver.el b/lisp/net/trampver.el index 5492441ac77..fc0c936c407 100644 --- a/lisp/net/trampver.el +++ b/lisp/net/trampver.el | |||
| @@ -31,7 +31,7 @@ | |||
| 31 | ;; should be changed only there. | 31 | ;; should be changed only there. |
| 32 | 32 | ||
| 33 | ;;;###tramp-autoload | 33 | ;;;###tramp-autoload |
| 34 | (defconst tramp-version "2.2.3-pre" | 34 | (defconst tramp-version "2.2.3-24.1" |
| 35 | "This version of Tramp.") | 35 | "This version of Tramp.") |
| 36 | 36 | ||
| 37 | ;;;###tramp-autoload | 37 | ;;;###tramp-autoload |
| @@ -44,7 +44,7 @@ | |||
| 44 | (= emacs-major-version 21) | 44 | (= emacs-major-version 21) |
| 45 | (>= emacs-minor-version 4))) | 45 | (>= emacs-minor-version 4))) |
| 46 | "ok" | 46 | "ok" |
| 47 | (format "Tramp 2.2.3-pre is not fit for %s" | 47 | (format "Tramp 2.2.3-24.1 is not fit for %s" |
| 48 | (when (string-match "^.*$" (emacs-version)) | 48 | (when (string-match "^.*$" (emacs-version)) |
| 49 | (match-string 0 (emacs-version))))))) | 49 | (match-string 0 (emacs-version))))))) |
| 50 | (unless (string-match "\\`ok\\'" x) (error "%s" x))) | 50 | (unless (string-match "\\`ok\\'" x) (error "%s" x))) |
diff --git a/lisp/net/xesam.el b/lisp/net/xesam.el index 64c26cfb2c9..56e9cb68c61 100644 --- a/lisp/net/xesam.el +++ b/lisp/net/xesam.el | |||
| @@ -516,9 +516,9 @@ engine specific, widget :notify function to visualize xesam:url." | |||
| 516 | 516 | ||
| 517 | (define-minor-mode xesam-minor-mode | 517 | (define-minor-mode xesam-minor-mode |
| 518 | "Toggle Xesam minor mode. | 518 | "Toggle Xesam minor mode. |
| 519 | With no argument, this command toggles the mode. | 519 | With a prefix argument ARG, enable Xesam minor mode if ARG is |
| 520 | Non-null prefix argument turns on the mode. | 520 | positive, and disable it otherwise. If called from Lisp, enable |
| 521 | Null prefix argument turns off the mode. | 521 | the mode if ARG is omitted or nil. |
| 522 | 522 | ||
| 523 | When Xesam minor mode is enabled, all text which matches a | 523 | When Xesam minor mode is enabled, all text which matches a |
| 524 | previous Xesam query in this buffer is highlighted." | 524 | previous Xesam query in this buffer is highlighted." |
diff --git a/lisp/outline.el b/lisp/outline.el index f864058c6fc..34d30fc4591 100644 --- a/lisp/outline.el +++ b/lisp/outline.el | |||
| @@ -356,7 +356,10 @@ After that, changing the prefix key requires manipulating keymaps." | |||
| 356 | ;;;###autoload | 356 | ;;;###autoload |
| 357 | (define-minor-mode outline-minor-mode | 357 | (define-minor-mode outline-minor-mode |
| 358 | "Toggle Outline minor mode. | 358 | "Toggle Outline minor mode. |
| 359 | With arg, turn Outline minor mode on if arg is positive, off otherwise. | 359 | With a prefix argument ARG, enable Outline minor mode if ARG is |
| 360 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 361 | the mode if ARG is omitted or nil. | ||
| 362 | |||
| 360 | See the command `outline-mode' for more information on this mode." | 363 | See the command `outline-mode' for more information on this mode." |
| 361 | nil " Outl" (list (cons [menu-bar] outline-minor-mode-menu-bar-map) | 364 | nil " Outl" (list (cons [menu-bar] outline-minor-mode-menu-bar-map) |
| 362 | (cons outline-minor-mode-prefix outline-mode-prefix-map)) | 365 | (cons outline-minor-mode-prefix outline-mode-prefix-map)) |
diff --git a/lisp/paren.el b/lisp/paren.el index fb5c0bf36e9..ee550228d48 100644 --- a/lisp/paren.el +++ b/lisp/paren.el | |||
| @@ -102,12 +102,14 @@ otherwise)." | |||
| 102 | 102 | ||
| 103 | ;;;###autoload | 103 | ;;;###autoload |
| 104 | (define-minor-mode show-paren-mode | 104 | (define-minor-mode show-paren-mode |
| 105 | "Toggle Show Paren mode. | 105 | "Toggle visualization of matching parens (Show Paren mode). |
| 106 | With prefix ARG, turn Show Paren mode on if and only if ARG is positive. | 106 | With a prefix argument ARG, enable Show Paren mode if ARG is |
| 107 | Returns the new status of Show Paren mode (non-nil means on). | 107 | positive, and disable it otherwise. If called from Lisp, enable |
| 108 | the mode if ARG is omitted or nil. | ||
| 108 | 109 | ||
| 109 | When Show Paren mode is enabled, any matching parenthesis is highlighted | 110 | Show Paren mode is a global minor mode. When enabled, any |
| 110 | in `show-paren-style' after `show-paren-delay' seconds of Emacs idle time." | 111 | matching parenthesis is highlighted in `show-paren-style' after |
| 112 | `show-paren-delay' seconds of Emacs idle time." | ||
| 111 | :global t :group 'paren-showing | 113 | :global t :group 'paren-showing |
| 112 | ;; Enable or disable the mechanism. | 114 | ;; Enable or disable the mechanism. |
| 113 | ;; First get rid of the old idle timer. | 115 | ;; First get rid of the old idle timer. |
diff --git a/lisp/progmodes/bug-reference.el b/lisp/progmodes/bug-reference.el index 8ec379afab2..12eddfef1aa 100644 --- a/lisp/progmodes/bug-reference.el +++ b/lisp/progmodes/bug-reference.el | |||
| @@ -127,7 +127,10 @@ so that it is considered safe, see `enable-local-variables'.") | |||
| 127 | 127 | ||
| 128 | ;;;###autoload | 128 | ;;;###autoload |
| 129 | (define-minor-mode bug-reference-mode | 129 | (define-minor-mode bug-reference-mode |
| 130 | "Minor mode to buttonize bugzilla references in the current buffer." | 130 | "Toggle hyperlinking bug references in the buffer (Bug Reference mode). |
| 131 | With a prefix argument ARG, enable Bug Reference mode if ARG is | ||
| 132 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 133 | the mode if ARG is omitted or nil." | ||
| 131 | nil | 134 | nil |
| 132 | "" | 135 | "" |
| 133 | nil | 136 | nil |
diff --git a/lisp/progmodes/cap-words.el b/lisp/progmodes/cap-words.el index 0ce84ae33a7..d7b7dfef1ec 100644 --- a/lisp/progmodes/cap-words.el +++ b/lisp/progmodes/cap-words.el | |||
| @@ -60,9 +60,13 @@ Looks for word boundaries before capitals." | |||
| 60 | ;;;###autoload | 60 | ;;;###autoload |
| 61 | (define-minor-mode capitalized-words-mode | 61 | (define-minor-mode capitalized-words-mode |
| 62 | "Toggle Capitalized Words mode. | 62 | "Toggle Capitalized Words mode. |
| 63 | With a prefix argument ARG, enable Capitalized Words mode if ARG | ||
| 64 | is positive, and disable it otherwise. If called from Lisp, | ||
| 65 | enable the mode if ARG is omitted or nil. | ||
| 63 | 66 | ||
| 64 | In this minor mode, a word boundary occurs immediately before an | 67 | Capitalized Words mode is a buffer-local minor mode. When |
| 65 | uppercase letter in a symbol. This is in addition to all the normal | 68 | enabled, a word boundary occurs immediately before an uppercase |
| 69 | letter in a symbol. This is in addition to all the normal | ||
| 66 | boundaries given by the syntax and category tables. There is no | 70 | boundaries given by the syntax and category tables. There is no |
| 67 | restriction to ASCII. | 71 | restriction to ASCII. |
| 68 | 72 | ||
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index a1cbdc16560..b2c548847c3 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el | |||
| @@ -2456,7 +2456,7 @@ comment at the start of cc-engine.el for more info." | |||
| 2456 | (<= from (cdr c-state-brace-pair-desert))) | 2456 | (<= from (cdr c-state-brace-pair-desert))) |
| 2457 | ;; Only search what we absolutely need to: | 2457 | ;; Only search what we absolutely need to: |
| 2458 | (if (and c-state-brace-pair-desert | 2458 | (if (and c-state-brace-pair-desert |
| 2459 | (> from (cdr c-state-brace-pair-desert))) | 2459 | (eq cache-pos (car c-state-brace-pair-desert))) |
| 2460 | (narrow-to-region (cdr c-state-brace-pair-desert) (point-max))) | 2460 | (narrow-to-region (cdr c-state-brace-pair-desert) (point-max))) |
| 2461 | 2461 | ||
| 2462 | ;; In the next pair of nested loops, the inner one moves back past a | 2462 | ;; In the next pair of nested loops, the inner one moves back past a |
| @@ -3127,6 +3127,33 @@ comment at the start of cc-engine.el for more info." | |||
| 3127 | (unless (fboundp 'c-real-parse-state) | 3127 | (unless (fboundp 'c-real-parse-state) |
| 3128 | (fset 'c-real-parse-state (symbol-function 'c-parse-state))) | 3128 | (fset 'c-real-parse-state (symbol-function 'c-parse-state))) |
| 3129 | (cc-bytecomp-defun c-real-parse-state) | 3129 | (cc-bytecomp-defun c-real-parse-state) |
| 3130 | |||
| 3131 | (defvar c-parse-state-state nil) | ||
| 3132 | (defun c-record-parse-state-state () | ||
| 3133 | (setq c-parse-state-state | ||
| 3134 | (mapcar | ||
| 3135 | (lambda (arg) | ||
| 3136 | (cons arg (symbol-value arg))) | ||
| 3137 | '(c-state-cache | ||
| 3138 | c-state-cache-good-pos | ||
| 3139 | c-state-nonlit-pos-cache | ||
| 3140 | c-state-nonlit-pos-cache-limit | ||
| 3141 | c-state-brace-pair-desert | ||
| 3142 | c-state-point-min | ||
| 3143 | c-state-point-min-lit-type | ||
| 3144 | c-state-point-min-lit-start | ||
| 3145 | c-state-min-scan-pos | ||
| 3146 | c-state-old-cpp-beg | ||
| 3147 | c-state-old-cpp-end)))) | ||
| 3148 | (defun c-replay-parse-state-state () | ||
| 3149 | (message | ||
| 3150 | (concat "(setq " | ||
| 3151 | (mapconcat | ||
| 3152 | (lambda (arg) | ||
| 3153 | (format "%s %s%s" (car arg) (if (atom (cdr arg)) "" "'") (cdr arg))) | ||
| 3154 | c-parse-state-state " ") | ||
| 3155 | ")"))) | ||
| 3156 | |||
| 3130 | (defun c-debug-parse-state () | 3157 | (defun c-debug-parse-state () |
| 3131 | (let ((here (point)) (res1 (c-real-parse-state)) res2) | 3158 | (let ((here (point)) (res1 (c-real-parse-state)) res2) |
| 3132 | (let ((c-state-cache nil) | 3159 | (let ((c-state-cache nil) |
| @@ -3145,15 +3172,21 @@ comment at the start of cc-engine.el for more info." | |||
| 3145 | ;; The cache can actually go further back due to the ad-hoc way | 3172 | ;; The cache can actually go further back due to the ad-hoc way |
| 3146 | ;; the first paren is found, so try to whack off a bit of its | 3173 | ;; the first paren is found, so try to whack off a bit of its |
| 3147 | ;; start before complaining. | 3174 | ;; start before complaining. |
| 3148 | (save-excursion | 3175 | ;; (save-excursion |
| 3149 | (goto-char (or (c-least-enclosing-brace res2) (point))) | 3176 | ;; (goto-char (or (c-least-enclosing-brace res2) (point))) |
| 3150 | (c-beginning-of-defun-1) | 3177 | ;; (c-beginning-of-defun-1) |
| 3151 | (while (not (or (bobp) (eq (char-after) ?{))) | 3178 | ;; (while (not (or (bobp) (eq (char-after) ?{))) |
| 3152 | (c-beginning-of-defun-1)) | 3179 | ;; (c-beginning-of-defun-1)) |
| 3153 | (unless (equal (c-whack-state-before (point) res1) res2) | 3180 | ;; (unless (equal (c-whack-state-before (point) res1) res2) |
| 3154 | (message (concat "c-parse-state inconsistency at %s: " | 3181 | ;; (message (concat "c-parse-state inconsistency at %s: " |
| 3155 | "using cache: %s, from scratch: %s") | 3182 | ;; "using cache: %s, from scratch: %s") |
| 3156 | here res1 res2)))) | 3183 | ;; here res1 res2))) |
| 3184 | (message (concat "c-parse-state inconsistency at %s: " | ||
| 3185 | "using cache: %s, from scratch: %s") | ||
| 3186 | here res1 res2) | ||
| 3187 | (message "Old state:") | ||
| 3188 | (c-replay-parse-state-state)) | ||
| 3189 | (c-record-parse-state-state) | ||
| 3157 | res1)) | 3190 | res1)) |
| 3158 | 3191 | ||
| 3159 | (defun c-toggle-parse-state-debug (&optional arg) | 3192 | (defun c-toggle-parse-state-debug (&optional arg) |
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 619c423902c..156c90159cd 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -1968,12 +1968,15 @@ Optional argument MINOR indicates this is called from | |||
| 1968 | 1968 | ||
| 1969 | ;;;###autoload | 1969 | ;;;###autoload |
| 1970 | (define-minor-mode compilation-shell-minor-mode | 1970 | (define-minor-mode compilation-shell-minor-mode |
| 1971 | "Toggle compilation shell minor mode. | 1971 | "Toggle Compilation Shell minor mode. |
| 1972 | With arg, turn compilation mode on if and only if arg is positive. | 1972 | With a prefix argument ARG, enable Compilation Shell minor mode |
| 1973 | In this minor mode, all the error-parsing commands of the | 1973 | if ARG is positive, and disable it otherwise. If called from |
| 1974 | Compilation major mode are available but bound to keys that don't | 1974 | Lisp, enable the mode if ARG is omitted or nil. |
| 1975 | collide with Shell mode. See `compilation-mode'. | 1975 | |
| 1976 | Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'." | 1976 | When Compilation Shell minor mode is enabled, all the |
| 1977 | error-parsing commands of the Compilation major mode are | ||
| 1978 | available but bound to keys that don't collide with Shell mode. | ||
| 1979 | See `compilation-mode'." | ||
| 1977 | nil " Shell-Compile" | 1980 | nil " Shell-Compile" |
| 1978 | :group 'compilation | 1981 | :group 'compilation |
| 1979 | (if compilation-shell-minor-mode | 1982 | (if compilation-shell-minor-mode |
| @@ -1982,11 +1985,14 @@ Turning the mode on runs the normal hook `compilation-shell-minor-mode-hook'." | |||
| 1982 | 1985 | ||
| 1983 | ;;;###autoload | 1986 | ;;;###autoload |
| 1984 | (define-minor-mode compilation-minor-mode | 1987 | (define-minor-mode compilation-minor-mode |
| 1985 | "Toggle compilation minor mode. | 1988 | "Toggle Compilation minor mode. |
| 1986 | With arg, turn compilation mode on if and only if arg is positive. | 1989 | With a prefix argument ARG, enable Compilation minor mode if ARG |
| 1987 | In this minor mode, all the error-parsing commands of the | 1990 | is positive, and disable it otherwise. If called from Lisp, |
| 1988 | Compilation major mode are available. See `compilation-mode'. | 1991 | enable the mode if ARG is omitted or nil. |
| 1989 | Turning the mode on runs the normal hook `compilation-minor-mode-hook'." | 1992 | |
| 1993 | When Compilation minor mode is enabled, all the error-parsing | ||
| 1994 | commands of Compilation major mode are available. See | ||
| 1995 | `compilation-mode'." | ||
| 1990 | nil " Compilation" | 1996 | nil " Compilation" |
| 1991 | :group 'compilation | 1997 | :group 'compilation |
| 1992 | (if compilation-minor-mode | 1998 | (if compilation-minor-mode |
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 25a23fed293..7b3a2893610 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el | |||
| @@ -3255,7 +3255,10 @@ Treats actions as defuns." | |||
| 3255 | 3255 | ||
| 3256 | ;;;###autoload | 3256 | ;;;###autoload |
| 3257 | (define-minor-mode gud-tooltip-mode | 3257 | (define-minor-mode gud-tooltip-mode |
| 3258 | "Toggle the display of GUD tooltips." | 3258 | "Toggle the display of GUD tooltips. |
| 3259 | With a prefix argument ARG, enable the feature if ARG is | ||
| 3260 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 3261 | it if ARG is omitted or nil." | ||
| 3259 | :global t | 3262 | :global t |
| 3260 | :group 'gud | 3263 | :group 'gud |
| 3261 | :group 'tooltip | 3264 | :group 'tooltip |
diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index 48d1ac4b85e..374a45acec6 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el | |||
| @@ -214,11 +214,15 @@ | |||
| 214 | 214 | ||
| 215 | ;;;###autoload | 215 | ;;;###autoload |
| 216 | (define-minor-mode hide-ifdef-mode | 216 | (define-minor-mode hide-ifdef-mode |
| 217 | "Toggle Hide-Ifdef mode. This is a minor mode, albeit a large one. | 217 | "Toggle features to hide/show #ifdef blocks (Hide-Ifdef mode). |
| 218 | With ARG, turn Hide-Ifdef mode on if arg is positive, off otherwise. | 218 | With a prefix argument ARG, enable Hide-Ifdef mode if ARG is |
| 219 | In Hide-Ifdef mode, code within #ifdef constructs that the C preprocessor | 219 | positive, and disable it otherwise. If called from Lisp, enable |
| 220 | would eliminate may be hidden from view. Several variables affect | 220 | the mode if ARG is omitted or nil. |
| 221 | how the hiding is done: | 221 | |
| 222 | Hide-Ifdef mode is a buffer-local minor mode for use with C and | ||
| 223 | C-like major modes. When enabled, code within #ifdef constructs | ||
| 224 | that the C preprocessor would eliminate may be hidden from view. | ||
| 225 | Several variables affect how the hiding is done: | ||
| 222 | 226 | ||
| 223 | `hide-ifdef-env' | 227 | `hide-ifdef-env' |
| 224 | An association list of defined and undefined symbols for the | 228 | An association list of defined and undefined symbols for the |
diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index b2cd24f0f98..18f47d14a3f 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el | |||
| @@ -4277,16 +4277,14 @@ Otherwise, just expand the file name." | |||
| 4277 | (defvar idlwave-shell-electric-debug-buffers nil) | 4277 | (defvar idlwave-shell-electric-debug-buffers nil) |
| 4278 | 4278 | ||
| 4279 | (define-minor-mode idlwave-shell-electric-debug-mode | 4279 | (define-minor-mode idlwave-shell-electric-debug-mode |
| 4280 | "Toggle Electric Debug mode. | 4280 | "Toggle Idlwave Shell Electric Debug mode. |
| 4281 | With no argument, this command toggles the mode. | 4281 | With a prefix argument ARG, enable the mode if ARG is positive, |
| 4282 | Non-null prefix argument turns on the mode. | 4282 | and disable it otherwise. If called from Lisp, enable the mode |
| 4283 | Null prefix argument turns off the mode. | 4283 | if ARG is omitted or nil. |
| 4284 | 4284 | ||
| 4285 | When Electric Debug mode is enabled, the many debugging commands are | 4285 | When Idlwave Shell Electric Debug mode is enabled, the Idlwave |
| 4286 | available as single key sequences." | 4286 | Shell debugging commands are available as single key sequences." |
| 4287 | nil | 4287 | nil " *Debugging*" idlwave-shell-electric-debug-mode-map) |
| 4288 | " *Debugging*" | ||
| 4289 | idlwave-shell-electric-debug-mode-map) | ||
| 4290 | 4288 | ||
| 4291 | (add-hook | 4289 | (add-hook |
| 4292 | 'idlwave-shell-electric-debug-mode-on-hook | 4290 | 'idlwave-shell-electric-debug-mode-on-hook |
diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 8066e1c3a7f..c77ee4b76a9 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el | |||
| @@ -1907,7 +1907,6 @@ The main features of this mode are | |||
| 1907 | (set (make-local-variable 'comment-start-skip) ";+[ \t]*") | 1907 | (set (make-local-variable 'comment-start-skip) ";+[ \t]*") |
| 1908 | (set (make-local-variable 'comment-start) ";") | 1908 | (set (make-local-variable 'comment-start) ";") |
| 1909 | (set (make-local-variable 'comment-add) 1) ; ";;" for new and regions | 1909 | (set (make-local-variable 'comment-add) 1) ; ";;" for new and regions |
| 1910 | (set (make-local-variable 'require-final-newline) t) | ||
| 1911 | (set (make-local-variable 'abbrev-all-caps) t) | 1910 | (set (make-local-variable 'abbrev-all-caps) t) |
| 1912 | (set (make-local-variable 'indent-tabs-mode) nil) | 1911 | (set (make-local-variable 'indent-tabs-mode) nil) |
| 1913 | (set (make-local-variable 'completion-ignore-case) t) | 1912 | (set (make-local-variable 'completion-ignore-case) t) |
diff --git a/lisp/progmodes/octave-inf.el b/lisp/progmodes/octave-inf.el index cb64b2436c6..e9d890c3f26 100644 --- a/lisp/progmodes/octave-inf.el +++ b/lisp/progmodes/octave-inf.el | |||
| @@ -68,7 +68,7 @@ mode, set this to (\"-q\" \"--traditional\")." | |||
| 68 | (define-key map "\C-c\C-l" 'inferior-octave-dynamic-list-input-ring) | 68 | (define-key map "\C-c\C-l" 'inferior-octave-dynamic-list-input-ring) |
| 69 | (define-key map [menu-bar inout list-history] | 69 | (define-key map [menu-bar inout list-history] |
| 70 | '("List Input History" . inferior-octave-dynamic-list-input-ring)) | 70 | '("List Input History" . inferior-octave-dynamic-list-input-ring)) |
| 71 | (define-key map "\C-c\C-h" 'octave-help) | 71 | (define-key map "\C-c\C-h" 'info-lookup-symbol) |
| 72 | map) | 72 | map) |
| 73 | "Keymap used in Inferior Octave mode.") | 73 | "Keymap used in Inferior Octave mode.") |
| 74 | 74 | ||
diff --git a/lisp/progmodes/octave-mod.el b/lisp/progmodes/octave-mod.el index 183347cdeca..5e13b8533e7 100644 --- a/lisp/progmodes/octave-mod.el +++ b/lisp/progmodes/octave-mod.el | |||
| @@ -655,14 +655,6 @@ including a reproducible test case and send the message." | |||
| 655 | 655 | ||
| 656 | (easy-menu-add octave-mode-menu) | 656 | (easy-menu-add octave-mode-menu) |
| 657 | (octave-initialize-completions)) | 657 | (octave-initialize-completions)) |
| 658 | |||
| 659 | (defvar info-lookup-mode) | ||
| 660 | |||
| 661 | (defun octave-help () | ||
| 662 | "Get help on Octave symbols from the Octave info files. | ||
| 663 | Look up symbol in the function, operator and variable indices of the info files." | ||
| 664 | (let ((info-lookup-mode 'octave-mode)) | ||
| 665 | (call-interactively 'info-lookup-symbol))) | ||
| 666 | 658 | ||
| 667 | ;;; Miscellaneous useful functions | 659 | ;;; Miscellaneous useful functions |
| 668 | 660 | ||
diff --git a/lisp/progmodes/subword.el b/lisp/progmodes/subword.el index 1a403f50b1b..9c61da89008 100644 --- a/lisp/progmodes/subword.el +++ b/lisp/progmodes/subword.el | |||
| @@ -94,13 +94,19 @@ | |||
| 94 | 94 | ||
| 95 | ;;;###autoload | 95 | ;;;###autoload |
| 96 | (define-minor-mode subword-mode | 96 | (define-minor-mode subword-mode |
| 97 | "Mode enabling subword movement and editing keys. | 97 | "Toggle subword movement and editing (Subword mode). |
| 98 | In spite of GNU Coding Standards, it is popular to name a symbol by | 98 | With a prefix argument ARG, enable Subword mode if ARG is |
| 99 | mixing uppercase and lowercase letters, e.g. \"GtkWidget\", | 99 | positive, and disable it otherwise. If called from Lisp, enable |
| 100 | \"EmacsFrameClass\", \"NSGraphicsContext\", etc. Here we call these | 100 | the mode if ARG is omitted or nil. |
| 101 | mixed case symbols `nomenclatures'. Also, each capitalized (or | 101 | |
| 102 | completely uppercase) part of a nomenclature is called a `subword'. | 102 | Subword mode is a buffer-local minor mode. Enabling it remaps |
| 103 | Here are some examples: | 103 | word-based editing commands to subword-based commands that handle |
| 104 | symbols with mixed uppercase and lowercase letters, | ||
| 105 | e.g. \"GtkWidget\", \"EmacsFrameClass\", \"NSGraphicsContext\". | ||
| 106 | |||
| 107 | Here we call these mixed case symbols `nomenclatures'. Each | ||
| 108 | capitalized (or completely uppercase) part of a nomenclature is | ||
| 109 | called a `subword'. Here are some examples: | ||
| 104 | 110 | ||
| 105 | Nomenclature Subwords | 111 | Nomenclature Subwords |
| 106 | =========================================================== | 112 | =========================================================== |
diff --git a/lisp/progmodes/vera-mode.el b/lisp/progmodes/vera-mode.el index 1f33f5f3aaf..b02324871ff 100644 --- a/lisp/progmodes/vera-mode.el +++ b/lisp/progmodes/vera-mode.el | |||
| @@ -310,7 +310,6 @@ Key bindings: | |||
| 310 | (set (make-local-variable 'comment-indent-function) 'c-comment-indent) | 310 | (set (make-local-variable 'comment-indent-function) 'c-comment-indent) |
| 311 | (set (make-local-variable 'paragraph-start) "^$") | 311 | (set (make-local-variable 'paragraph-start) "^$") |
| 312 | (set (make-local-variable 'paragraph-separate) paragraph-start) | 312 | (set (make-local-variable 'paragraph-separate) paragraph-start) |
| 313 | (set (make-local-variable 'require-final-newline) t) | ||
| 314 | (set (make-local-variable 'indent-tabs-mode) nil) | 313 | (set (make-local-variable 'indent-tabs-mode) nil) |
| 315 | (set (make-local-variable 'indent-line-function) 'vera-indent-line) | 314 | (set (make-local-variable 'indent-line-function) 'vera-indent-line) |
| 316 | (set (make-local-variable 'parse-sexp-ignore-comments) t) | 315 | (set (make-local-variable 'parse-sexp-ignore-comments) t) |
diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index 9aaf3059b78..d7aa82aee1b 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el | |||
| @@ -8029,12 +8029,16 @@ project is defined." | |||
| 8029 | 8029 | ||
| 8030 | (define-minor-mode vhdl-electric-mode | 8030 | (define-minor-mode vhdl-electric-mode |
| 8031 | "Toggle VHDL electric mode. | 8031 | "Toggle VHDL electric mode. |
| 8032 | Turn on if ARG positive, turn off if ARG negative, toggle if ARG zero or nil." | 8032 | With a prefix argument ARG, enable the mode if ARG is positive, |
| 8033 | and disable it otherwise. If called from Lisp, enable it if ARG | ||
| 8034 | is omitted or nil." | ||
| 8033 | :global t) | 8035 | :global t) |
| 8034 | 8036 | ||
| 8035 | (define-minor-mode vhdl-stutter-mode | 8037 | (define-minor-mode vhdl-stutter-mode |
| 8036 | "Toggle VHDL stuttering mode. | 8038 | "Toggle VHDL stuttering mode. |
| 8037 | Turn on if ARG positive, turn off if ARG negative, toggle if ARG zero or nil." | 8039 | With a prefix argument ARG, enable the mode if ARG is positive, |
| 8040 | and disable it otherwise. If called from Lisp, enable it if ARG | ||
| 8041 | is omitted or nil." | ||
| 8038 | :global t) | 8042 | :global t) |
| 8039 | 8043 | ||
| 8040 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | 8044 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el index 97e188139e9..e27d07854c8 100644 --- a/lisp/progmodes/which-func.el +++ b/lisp/progmodes/which-func.el | |||
| @@ -236,12 +236,14 @@ It creates the Imenu index for the buffer, if necessary." | |||
| 236 | ;; This is the name people would normally expect. | 236 | ;; This is the name people would normally expect. |
| 237 | ;;;###autoload | 237 | ;;;###autoload |
| 238 | (define-minor-mode which-function-mode | 238 | (define-minor-mode which-function-mode |
| 239 | "Toggle Which Function mode, globally. | 239 | "Toggle mode line display of current function (Which Function mode). |
| 240 | When Which Function mode is enabled, the current function name is | 240 | With a prefix argument ARG, enable Which Function mode if ARG is |
| 241 | continuously displayed in the mode line, in certain major modes. | 241 | positive, and disable it otherwise. If called from Lisp, enable |
| 242 | 242 | the mode if ARG is omitted or nil. | |
| 243 | With prefix ARG, turn Which Function mode on if arg is positive, | 243 | |
| 244 | and off otherwise." | 244 | Which Function mode is a global minor mode. When enabled, the |
| 245 | current function name is continuously displayed in the mode line, | ||
| 246 | in certain major modes." | ||
| 245 | :global t :group 'which-func | 247 | :global t :group 'which-func |
| 246 | (when (timerp which-func-update-timer) | 248 | (when (timerp which-func-update-timer) |
| 247 | (cancel-timer which-func-update-timer)) | 249 | (cancel-timer which-func-update-timer)) |
diff --git a/lisp/recentf.el b/lisp/recentf.el index fc9b7881733..79f4eb437d9 100644 --- a/lisp/recentf.el +++ b/lisp/recentf.el | |||
| @@ -1336,12 +1336,14 @@ That is, remove duplicates, non-kept, and excluded files." | |||
| 1336 | 1336 | ||
| 1337 | ;;;###autoload | 1337 | ;;;###autoload |
| 1338 | (define-minor-mode recentf-mode | 1338 | (define-minor-mode recentf-mode |
| 1339 | "Toggle recentf mode. | 1339 | "Toggle \"Open Recent\" menu (Recentf mode). |
| 1340 | With prefix argument ARG, turn on if positive, otherwise off. | 1340 | With a prefix argument ARG, enable Recentf mode if ARG is |
| 1341 | Returns non-nil if the new state is enabled. | 1341 | positive, and disable it otherwise. If called from Lisp, enable |
| 1342 | 1342 | Recentf mode if ARG is omitted or nil. | |
| 1343 | When recentf mode is enabled, it maintains a menu for visiting files | 1343 | |
| 1344 | that were operated on recently." | 1344 | When Recentf mode is enabled, a \"Open Recent\" submenu is |
| 1345 | displayed in the \"File\" menu, containing a list of files that | ||
| 1346 | were operated on recently." | ||
| 1345 | :global t | 1347 | :global t |
| 1346 | :group 'recentf | 1348 | :group 'recentf |
| 1347 | :keymap recentf-mode-map | 1349 | :keymap recentf-mode-map |
diff --git a/lisp/reveal.el b/lisp/reveal.el index bf18602379c..ea46cfd1dd3 100644 --- a/lisp/reveal.el +++ b/lisp/reveal.el | |||
| @@ -189,12 +189,13 @@ Each element has the form (WINDOW . OVERLAY).") | |||
| 189 | 189 | ||
| 190 | ;;;###autoload | 190 | ;;;###autoload |
| 191 | (define-minor-mode reveal-mode | 191 | (define-minor-mode reveal-mode |
| 192 | "Toggle Reveal mode on or off. | 192 | "Toggle decloaking of invisible text near point (Reveal mode). |
| 193 | Reveal mode renders invisible text around point visible again. | 193 | With a prefix argument ARG, enable Reveal mode if ARG is |
| 194 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 195 | Reveal mode if ARG is omitted or nil. | ||
| 194 | 196 | ||
| 195 | Interactively, with no prefix argument, toggle the mode. | 197 | Reveral mode is a buffer-local minor mode. When enabled, it |
| 196 | With universal prefix ARG (or if ARG is nil) turn mode on. | 198 | reveals invisible text around point." |
| 197 | With zero or negative ARG turn mode off." | ||
| 198 | :group 'reveal | 199 | :group 'reveal |
| 199 | :lighter (global-reveal-mode nil " Reveal") | 200 | :lighter (global-reveal-mode nil " Reveal") |
| 200 | :keymap reveal-mode-map | 201 | :keymap reveal-mode-map |
| @@ -207,12 +208,12 @@ With zero or negative ARG turn mode off." | |||
| 207 | 208 | ||
| 208 | ;;;###autoload | 209 | ;;;###autoload |
| 209 | (define-minor-mode global-reveal-mode | 210 | (define-minor-mode global-reveal-mode |
| 210 | "Toggle Reveal mode in all buffers on or off. | 211 | "Toggle Reveal mode in all buffers (Global Reveal mode). |
| 211 | Reveal mode renders invisible text around point visible again. | 212 | Reveal mode renders invisible text around point visible again. |
| 212 | 213 | ||
| 213 | Interactively, with no prefix argument, toggle the mode. | 214 | With a prefix argument ARG, enable Global Reveal mode if ARG is |
| 214 | With universal prefix ARG (or if ARG is nil) turn mode on. | 215 | positive, and disable it otherwise. If called from Lisp, enable |
| 215 | With zero or negative ARG turn mode off." | 216 | the mode if ARG is omitted or nil." |
| 216 | :global t :group 'reveal | 217 | :global t :group 'reveal |
| 217 | (setq-default reveal-mode global-reveal-mode) | 218 | (setq-default reveal-mode global-reveal-mode) |
| 218 | (if global-reveal-mode | 219 | (if global-reveal-mode |
diff --git a/lisp/rfn-eshadow.el b/lisp/rfn-eshadow.el index 9eb2d2abdee..2d8c6e0964d 100644 --- a/lisp/rfn-eshadow.el +++ b/lisp/rfn-eshadow.el | |||
| @@ -207,15 +207,17 @@ been set up by `rfn-eshadow-setup-minibuffer'." | |||
| 207 | (error nil))) | 207 | (error nil))) |
| 208 | 208 | ||
| 209 | (define-minor-mode file-name-shadow-mode | 209 | (define-minor-mode file-name-shadow-mode |
| 210 | "Toggle File-Name Shadow mode. | 210 | "Toggle file-name shadowing in minibuffers (File-Name Shadow mode). |
| 211 | When active, any part of a filename being read in the minibuffer | 211 | With a prefix argument ARG, enable File-Name Shadow mode if ARG |
| 212 | that would be ignored (because the result is passed through | 212 | is positive, and disable it otherwise. If called from Lisp, |
| 213 | enable the mode if ARG is omitted or nil. | ||
| 214 | |||
| 215 | File-Name Shadow mode is a global minor mode. When enabled, any | ||
| 216 | part of a filename being read in the minibuffer that would be | ||
| 217 | ignored (because the result is passed through | ||
| 213 | `substitute-in-file-name') is given the properties in | 218 | `substitute-in-file-name') is given the properties in |
| 214 | `file-name-shadow-properties', which can be used to make | 219 | `file-name-shadow-properties', which can be used to make that |
| 215 | that portion dim, invisible, or otherwise less visually noticeable. | 220 | portion dim, invisible, or otherwise less visually noticeable." |
| 216 | |||
| 217 | With prefix argument ARG, turn on if positive, otherwise off. | ||
| 218 | Returns non-nil if the new state is enabled." | ||
| 219 | :global t | 221 | :global t |
| 220 | ;; We'd like to use custom-initialize-set here so the setup is done | 222 | ;; We'd like to use custom-initialize-set here so the setup is done |
| 221 | ;; before dumping, but at the point where the defcustom is evaluated, | 223 | ;; before dumping, but at the point where the defcustom is evaluated, |
diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index fc62bf6b633..046c29471ac 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el | |||
| @@ -567,8 +567,10 @@ format first." | |||
| 567 | 567 | ||
| 568 | ;;;###autoload | 568 | ;;;###autoload |
| 569 | (define-minor-mode ruler-mode | 569 | (define-minor-mode ruler-mode |
| 570 | "Toggle Ruler mode. | 570 | "Toggle display of ruler in header line (Ruler mode). |
| 571 | In Ruler mode, Emacs displays a ruler in the header line." | 571 | With a prefix argument ARG, enable Ruler mode if ARG is positive, |
| 572 | and disable it otherwise. If called from Lisp, enable the mode | ||
| 573 | if ARG is omitted or nil." | ||
| 572 | nil nil | 574 | nil nil |
| 573 | ruler-mode-map | 575 | ruler-mode-map |
| 574 | :group 'ruler-mode | 576 | :group 'ruler-mode |
diff --git a/lisp/savehist.el b/lisp/savehist.el index 653d0312a19..faeab324e5a 100644 --- a/lisp/savehist.el +++ b/lisp/savehist.el | |||
| @@ -170,15 +170,19 @@ minibuffer history.") | |||
| 170 | 170 | ||
| 171 | ;;;###autoload | 171 | ;;;###autoload |
| 172 | (define-minor-mode savehist-mode | 172 | (define-minor-mode savehist-mode |
| 173 | "Toggle savehist-mode. | 173 | "Toggle saving of minibuffer history (Savehist mode). |
| 174 | Positive ARG turns on `savehist-mode'. When on, savehist-mode causes | 174 | With a prefix argument ARG, enable Savehist mode if ARG is |
| 175 | minibuffer history to be saved periodically and when exiting Emacs. | 175 | positive, and disable it otherwise. If called from Lisp, enable |
| 176 | When turned on for the first time in an Emacs session, it causes the | 176 | the mode if ARG is omitted or nil. |
| 177 | previous minibuffer history to be loaded from `savehist-file'. | 177 | |
| 178 | When Savehist mode is enabled, minibuffer history is saved | ||
| 179 | periodically and when exiting Emacs. When Savehist mode is | ||
| 180 | enabled for the first time in an Emacs session, it loads the | ||
| 181 | previous minibuffer history from `savehist-file'. | ||
| 178 | 182 | ||
| 179 | This mode should normally be turned on from your Emacs init file. | 183 | This mode should normally be turned on from your Emacs init file. |
| 180 | Calling it at any other time replaces your current minibuffer histories, | 184 | Calling it at any other time replaces your current minibuffer |
| 181 | which is probably undesirable." | 185 | histories, which is probably undesirable." |
| 182 | :global t | 186 | :global t |
| 183 | (if (not savehist-mode) | 187 | (if (not savehist-mode) |
| 184 | (savehist-uninstall) | 188 | (savehist-uninstall) |
diff --git a/lisp/scroll-all.el b/lisp/scroll-all.el index 6dbdc9ab90d..81a4d2c86e1 100644 --- a/lisp/scroll-all.el +++ b/lisp/scroll-all.el | |||
| @@ -101,10 +101,13 @@ | |||
| 101 | 101 | ||
| 102 | ;;;###autoload | 102 | ;;;###autoload |
| 103 | (define-minor-mode scroll-all-mode | 103 | (define-minor-mode scroll-all-mode |
| 104 | "Toggle Scroll-All minor mode. | 104 | "Toggle shared scrolling in same-frame windows (Scroll-All mode). |
| 105 | With ARG, turn Scroll-All minor mode on if ARG is positive, off otherwise. | 105 | With a prefix argument ARG, enable Scroll-All mode if ARG is |
| 106 | When Scroll-All mode is on, scrolling commands entered in one window | 106 | positive, and disable it otherwise. If called from Lisp, enable |
| 107 | apply to all visible windows in the same frame." | 107 | the mode if ARG is omitted or nil. |
| 108 | |||
| 109 | When Scroll-All mode is enabled, scrolling commands invoked in | ||
| 110 | one window apply to all visible windows in the same frame." | ||
| 108 | nil " *SL*" nil | 111 | nil " *SL*" nil |
| 109 | :global t | 112 | :global t |
| 110 | :group 'windows | 113 | :group 'windows |
diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el index 0c68bca4d2e..37a31460cdb 100644 --- a/lisp/scroll-bar.el +++ b/lisp/scroll-bar.el | |||
| @@ -114,12 +114,15 @@ Setting the variable with a customization buffer also takes effect." | |||
| 114 | 114 | ||
| 115 | (defun get-scroll-bar-mode () scroll-bar-mode) | 115 | (defun get-scroll-bar-mode () scroll-bar-mode) |
| 116 | (defsetf get-scroll-bar-mode set-scroll-bar-mode) | 116 | (defsetf get-scroll-bar-mode set-scroll-bar-mode) |
| 117 | |||
| 117 | (define-minor-mode scroll-bar-mode | 118 | (define-minor-mode scroll-bar-mode |
| 118 | "Toggle display of vertical scroll bars on all frames. | 119 | "Toggle vertical scroll bars on all frames (Scroll Bar mode). |
| 120 | With a prefix argument ARG, enable Scroll Bar mode if ARG is | ||
| 121 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 122 | the mode if ARG is omitted or nil. | ||
| 123 | |||
| 119 | This command applies to all frames that exist and frames to be | 124 | This command applies to all frames that exist and frames to be |
| 120 | created in the future. | 125 | created in the future." |
| 121 | With a numeric argument, if the argument is positive | ||
| 122 | turn on scroll bars; otherwise turn off scroll bars." | ||
| 123 | :variable (eq (get-scroll-bar-mode) | 126 | :variable (eq (get-scroll-bar-mode) |
| 124 | (or previous-scroll-bar-mode | 127 | (or previous-scroll-bar-mode |
| 125 | default-frame-scroll-bars))) | 128 | default-frame-scroll-bars))) |
diff --git a/lisp/server.el b/lisp/server.el index 63d46a365c9..bc989c55ed1 100644 --- a/lisp/server.el +++ b/lisp/server.el | |||
| @@ -669,9 +669,13 @@ Return values: | |||
| 669 | ;;;###autoload | 669 | ;;;###autoload |
| 670 | (define-minor-mode server-mode | 670 | (define-minor-mode server-mode |
| 671 | "Toggle Server mode. | 671 | "Toggle Server mode. |
| 672 | With ARG, turn Server mode on if ARG is positive, off otherwise. | 672 | With a prefix argument ARG, enable Server mode if ARG is |
| 673 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 674 | Server mode if ARG is omitted or nil. | ||
| 675 | |||
| 673 | Server mode runs a process that accepts commands from the | 676 | Server mode runs a process that accepts commands from the |
| 674 | `emacsclient' program. See `server-start' and Info node `Emacs server'." | 677 | `emacsclient' program. See Info node `Emacs server' and |
| 678 | `server-start' for details." | ||
| 675 | :global t | 679 | :global t |
| 676 | :group 'server | 680 | :group 'server |
| 677 | :version "22.1" | 681 | :version "22.1" |
diff --git a/lisp/shell.el b/lisp/shell.el index cefe42bb3ec..c75594ddbe4 100644 --- a/lisp/shell.el +++ b/lisp/shell.el | |||
| @@ -890,9 +890,13 @@ Environment variables are expanded, see function `substitute-in-file-name'." | |||
| 890 | 890 | ||
| 891 | (defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) | 891 | (defvaralias 'shell-dirtrack-mode 'shell-dirtrackp) |
| 892 | (define-minor-mode shell-dirtrack-mode | 892 | (define-minor-mode shell-dirtrack-mode |
| 893 | "Turn directory tracking on and off in a shell buffer. | 893 | "Toggle directory tracking in this shell buffer (Shell Dirtrack mode). |
| 894 | The `dirtrack' package provides an alternative implementation of this | 894 | With a prefix argument ARG, enable Shell Dirtrack mode if ARG is |
| 895 | feature - see the function `dirtrack-mode'." | 895 | positive, and disable it otherwise. If called from Lisp, enable |
| 896 | the mode if ARG is omitted or nil. | ||
| 897 | |||
| 898 | The `dirtrack' package provides an alternative implementation of | ||
| 899 | this feature; see the function `dirtrack-mode'." | ||
| 896 | nil nil nil | 900 | nil nil nil |
| 897 | (setq list-buffers-directory (if shell-dirtrack-mode default-directory)) | 901 | (setq list-buffers-directory (if shell-dirtrack-mode default-directory)) |
| 898 | (if shell-dirtrack-mode | 902 | (if shell-dirtrack-mode |
diff --git a/lisp/simple.el b/lisp/simple.el index 6d0e7543549..79de6aea3dd 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -4086,13 +4086,15 @@ its earlier value." | |||
| 4086 | 4086 | ||
| 4087 | (define-minor-mode transient-mark-mode | 4087 | (define-minor-mode transient-mark-mode |
| 4088 | "Toggle Transient Mark mode. | 4088 | "Toggle Transient Mark mode. |
| 4089 | With ARG, turn Transient Mark mode on if ARG is positive, off otherwise. | 4089 | With a prefix argument ARG, enable Transient Mark mode if ARG is |
| 4090 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 4091 | Transient Mark mode if ARG is omitted or nil. | ||
| 4090 | 4092 | ||
| 4091 | In Transient Mark mode, when the mark is active, the region is highlighted. | 4093 | Transient Mark mode is a global minor mode. When enabled, the |
| 4092 | Changing the buffer \"deactivates\" the mark. | 4094 | region is highlighted whenever the mark is active. The mark is |
| 4093 | So do certain other operations that set the mark | 4095 | \"deactivated\" by changing the buffer, and after certain other |
| 4094 | but whose main purpose is something else--for example, | 4096 | operations that set the mark but whose main purpose is something |
| 4095 | incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]. | 4097 | else--for example, incremental search, \\[beginning-of-buffer], and \\[end-of-buffer]. |
| 4096 | 4098 | ||
| 4097 | You can also deactivate the mark by typing \\[keyboard-quit] or | 4099 | You can also deactivate the mark by typing \\[keyboard-quit] or |
| 4098 | \\[keyboard-escape-quit]. | 4100 | \\[keyboard-escape-quit]. |
| @@ -4906,8 +4908,15 @@ other purposes." | |||
| 4906 | (defvar visual-line--saved-state nil) | 4908 | (defvar visual-line--saved-state nil) |
| 4907 | 4909 | ||
| 4908 | (define-minor-mode visual-line-mode | 4910 | (define-minor-mode visual-line-mode |
| 4909 | "Redefine simple editing commands to act on visual lines, not logical lines. | 4911 | "Toggle visual line based editing (Visual Line mode). |
| 4910 | This also turns on `word-wrap' in the buffer." | 4912 | With a prefix argument ARG, enable Visual Line mode if ARG is |
| 4913 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 4914 | the mode if ARG is omitted or nil. | ||
| 4915 | |||
| 4916 | When Visual Line mode is enabled, `word-wrap' is turned on in | ||
| 4917 | this buffer, and simple editing commands are redefined to act on | ||
| 4918 | visual lines, not logical lines. See Info node `Visual Line | ||
| 4919 | Mode' for details." | ||
| 4911 | :keymap visual-line-mode-map | 4920 | :keymap visual-line-mode-map |
| 4912 | :group 'visual-line | 4921 | :group 'visual-line |
| 4913 | :lighter " Wrap" | 4922 | :lighter " Wrap" |
| @@ -5301,10 +5310,14 @@ Some major modes set this.") | |||
| 5301 | (put 'auto-fill-function 'safe-local-variable 'null) | 5310 | (put 'auto-fill-function 'safe-local-variable 'null) |
| 5302 | 5311 | ||
| 5303 | (define-minor-mode auto-fill-mode | 5312 | (define-minor-mode auto-fill-mode |
| 5304 | "Toggle Auto Fill mode. | 5313 | "Toggle automatic line breaking (Auto Fill mode). |
| 5305 | With ARG, turn Auto Fill mode on if and only if ARG is positive. | 5314 | With a prefix argument ARG, enable Auto Fill mode if ARG is |
| 5306 | In Auto Fill mode, inserting a space at a column beyond `current-fill-column' | 5315 | positive, and disable it otherwise. If called from Lisp, enable |
| 5307 | automatically breaks the line at a previous space. | 5316 | the mode if ARG is omitted or nil. |
| 5317 | |||
| 5318 | When Auto Fill mode is enabled, inserting a space at a column | ||
| 5319 | beyond `current-fill-column' automatically breaks the line at a | ||
| 5320 | previous space. | ||
| 5308 | 5321 | ||
| 5309 | When `auto-fill-mode' is on, the `auto-fill-function' variable is | 5322 | When `auto-fill-mode' is on, the `auto-fill-function' variable is |
| 5310 | non-`nil'. | 5323 | non-`nil'. |
| @@ -5412,36 +5425,44 @@ if long lines are truncated." | |||
| 5412 | "The string displayed in the mode line when in binary overwrite mode.") | 5425 | "The string displayed in the mode line when in binary overwrite mode.") |
| 5413 | 5426 | ||
| 5414 | (define-minor-mode overwrite-mode | 5427 | (define-minor-mode overwrite-mode |
| 5415 | "Toggle overwrite mode. | 5428 | "Toggle Overwrite mode. |
| 5416 | With prefix argument ARG, turn overwrite mode on if ARG is positive, | 5429 | With a prefix argument ARG, enable Overwrite mode if ARG is |
| 5417 | otherwise turn it off. In overwrite mode, printing characters typed | 5430 | positive, and disable it otherwise. If called from Lisp, enable |
| 5418 | in replace existing text on a one-for-one basis, rather than pushing | 5431 | the mode if ARG is omitted or nil. |
| 5419 | it to the right. At the end of a line, such characters extend the line. | 5432 | |
| 5420 | Before a tab, such characters insert until the tab is filled in. | 5433 | When Overwrite mode is enabled, printing characters typed in |
| 5421 | \\[quoted-insert] still inserts characters in overwrite mode; this | 5434 | replace existing text on a one-for-one basis, rather than pushing |
| 5422 | is supposed to make it easier to insert characters when necessary." | 5435 | it to the right. At the end of a line, such characters extend |
| 5436 | the line. Before a tab, such characters insert until the tab is | ||
| 5437 | filled in. \\[quoted-insert] still inserts characters in | ||
| 5438 | overwrite mode; this is supposed to make it easier to insert | ||
| 5439 | characters when necessary." | ||
| 5423 | :variable (eq overwrite-mode 'overwrite-mode-textual)) | 5440 | :variable (eq overwrite-mode 'overwrite-mode-textual)) |
| 5424 | 5441 | ||
| 5425 | (define-minor-mode binary-overwrite-mode | 5442 | (define-minor-mode binary-overwrite-mode |
| 5426 | "Toggle binary overwrite mode. | 5443 | "Toggle Binary Overwrite mode. |
| 5427 | With prefix argument ARG, turn binary overwrite mode on if ARG is | 5444 | With a prefix argument ARG, enable Binary Overwrite mode if ARG |
| 5428 | positive, otherwise turn it off. In binary overwrite mode, printing | 5445 | is positive, and disable it otherwise. If called from Lisp, |
| 5429 | characters typed in replace existing text. Newlines are not treated | 5446 | enable the mode if ARG is omitted or nil. |
| 5430 | specially, so typing at the end of a line joins the line to the next, | 5447 | |
| 5431 | with the typed character between them. Typing before a tab character | 5448 | When Binary Overwrite mode is enabled, printing characters typed |
| 5432 | simply replaces the tab with the character typed. \\[quoted-insert] | 5449 | in replace existing text. Newlines are not treated specially, so |
| 5433 | replaces the text at the cursor, just as ordinary typing characters do. | 5450 | typing at the end of a line joins the line to the next, with the |
| 5434 | 5451 | typed character between them. Typing before a tab character | |
| 5435 | Note that binary overwrite mode is not its own minor mode; it is a | 5452 | simply replaces the tab with the character typed. |
| 5436 | specialization of overwrite mode, entered by setting the | 5453 | \\[quoted-insert] replaces the text at the cursor, just as |
| 5454 | ordinary typing characters do. | ||
| 5455 | |||
| 5456 | Note that Binary Overwrite mode is not its own minor mode; it is | ||
| 5457 | a specialization of overwrite mode, entered by setting the | ||
| 5437 | `overwrite-mode' variable to `overwrite-mode-binary'." | 5458 | `overwrite-mode' variable to `overwrite-mode-binary'." |
| 5438 | :variable (eq overwrite-mode 'overwrite-mode-binary)) | 5459 | :variable (eq overwrite-mode 'overwrite-mode-binary)) |
| 5439 | 5460 | ||
| 5440 | (define-minor-mode line-number-mode | 5461 | (define-minor-mode line-number-mode |
| 5441 | "Toggle Line Number mode. | 5462 | "Toggle line number display in the mode line (Line Number mode). |
| 5442 | With ARG, turn Line Number mode on if ARG is positive, otherwise | 5463 | With a prefix argument ARG, enable Line Number mode if ARG is |
| 5443 | turn it off. When Line Number mode is enabled, the line number | 5464 | positive, and disable it otherwise. If called from Lisp, enable |
| 5444 | appears in the mode line. | 5465 | the mode if ARG is omitted or nil. |
| 5445 | 5466 | ||
| 5446 | Line numbers do not appear for very large buffers and buffers | 5467 | Line numbers do not appear for very large buffers and buffers |
| 5447 | with very long lines; see variables `line-number-display-limit' | 5468 | with very long lines; see variables `line-number-display-limit' |
| @@ -5449,22 +5470,27 @@ and `line-number-display-limit-width'." | |||
| 5449 | :init-value t :global t :group 'mode-line) | 5470 | :init-value t :global t :group 'mode-line) |
| 5450 | 5471 | ||
| 5451 | (define-minor-mode column-number-mode | 5472 | (define-minor-mode column-number-mode |
| 5452 | "Toggle Column Number mode. | 5473 | "Toggle column number display in the mode line (Column Number mode). |
| 5453 | With ARG, turn Column Number mode on if ARG is positive, | 5474 | With a prefix argument ARG, enable Column Number mode if ARG is |
| 5454 | otherwise turn it off. When Column Number mode is enabled, the | 5475 | positive, and disable it otherwise. |
| 5455 | column number appears in the mode line." | 5476 | |
| 5477 | If called from Lisp, enable the mode if ARG is omitted or nil." | ||
| 5456 | :global t :group 'mode-line) | 5478 | :global t :group 'mode-line) |
| 5457 | 5479 | ||
| 5458 | (define-minor-mode size-indication-mode | 5480 | (define-minor-mode size-indication-mode |
| 5459 | "Toggle Size Indication mode. | 5481 | "Toggle buffer size display in the mode line (Size Indication mode). |
| 5460 | With ARG, turn Size Indication mode on if ARG is positive, | 5482 | With a prefix argument ARG, enable Size Indication mode if ARG is |
| 5461 | otherwise turn it off. When Size Indication mode is enabled, the | 5483 | positive, and disable it otherwise. |
| 5462 | size of the accessible part of the buffer appears in the mode line." | 5484 | |
| 5485 | If called from Lisp, enable the mode if ARG is omitted or nil." | ||
| 5463 | :global t :group 'mode-line) | 5486 | :global t :group 'mode-line) |
| 5464 | 5487 | ||
| 5465 | (define-minor-mode auto-save-mode | 5488 | (define-minor-mode auto-save-mode |
| 5466 | "Toggle auto-saving of contents of current buffer. | 5489 | "Toggle auto-saving in the current buffer (Auto Save mode). |
| 5467 | With prefix argument ARG, turn auto-saving on if positive, else off." | 5490 | With a prefix argument ARG, enable Auto Save mode if ARG is |
| 5491 | positive, and disable it otherwise. | ||
| 5492 | |||
| 5493 | If called from Lisp, enable the mode if ARG is omitted or nil." | ||
| 5468 | :variable ((and buffer-auto-save-file-name | 5494 | :variable ((and buffer-auto-save-file-name |
| 5469 | ;; If auto-save is off because buffer has shrunk, | 5495 | ;; If auto-save is off because buffer has shrunk, |
| 5470 | ;; then toggling should turn it on. | 5496 | ;; then toggling should turn it on. |
| @@ -6634,8 +6660,9 @@ call `normal-erase-is-backspace-mode' (which see) instead." | |||
| 6634 | 6660 | ||
| 6635 | (define-minor-mode normal-erase-is-backspace-mode | 6661 | (define-minor-mode normal-erase-is-backspace-mode |
| 6636 | "Toggle the Erase and Delete mode of the Backspace and Delete keys. | 6662 | "Toggle the Erase and Delete mode of the Backspace and Delete keys. |
| 6637 | 6663 | With a prefix argument ARG, enable this feature if ARG is | |
| 6638 | With numeric ARG, turn the mode on if and only if ARG is positive. | 6664 | positive, and disable it otherwise. If called from Lisp, enable |
| 6665 | the mode if ARG is omitted or nil. | ||
| 6639 | 6666 | ||
| 6640 | On window systems, when this mode is on, Delete is mapped to C-d | 6667 | On window systems, when this mode is on, Delete is mapped to C-d |
| 6641 | and Backspace is mapped to DEL; when this mode is off, both | 6668 | and Backspace is mapped to DEL; when this mode is off, both |
| @@ -6709,13 +6736,13 @@ See also `normal-erase-is-backspace'." | |||
| 6709 | "Saved value of `buffer-invisibility-spec' when Visible mode is on.") | 6736 | "Saved value of `buffer-invisibility-spec' when Visible mode is on.") |
| 6710 | 6737 | ||
| 6711 | (define-minor-mode visible-mode | 6738 | (define-minor-mode visible-mode |
| 6712 | "Toggle Visible mode. | 6739 | "Toggle making all invisible text temporarily visible (Visible mode). |
| 6713 | With argument ARG turn Visible mode on if ARG is positive, otherwise | 6740 | With a prefix argument ARG, enable Visible mode if ARG is |
| 6714 | turn it off. | 6741 | positive, and disable it otherwise. If called from Lisp, enable |
| 6742 | the mode if ARG is omitted or nil. | ||
| 6715 | 6743 | ||
| 6716 | Enabling Visible mode makes all invisible text temporarily visible. | 6744 | This mode works by saving the value of `buffer-invisibility-spec' |
| 6717 | Disabling Visible mode turns off that effect. Visible mode works by | 6745 | and setting it to nil." |
| 6718 | saving the value of `buffer-invisibility-spec' and setting it to nil." | ||
| 6719 | :lighter " Vis" | 6746 | :lighter " Vis" |
| 6720 | :group 'editing-basics | 6747 | :group 'editing-basics |
| 6721 | (when (local-variable-p 'vis-mode-saved-buffer-invisibility-spec) | 6748 | (when (local-variable-p 'vis-mode-saved-buffer-invisibility-spec) |
diff --git a/lisp/strokes.el b/lisp/strokes.el index ca0086b3b97..5ff94bb22c6 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el | |||
| @@ -1386,8 +1386,12 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead." | |||
| 1386 | 1386 | ||
| 1387 | ;;;###autoload | 1387 | ;;;###autoload |
| 1388 | (define-minor-mode strokes-mode | 1388 | (define-minor-mode strokes-mode |
| 1389 | "Toggle Strokes global minor mode.\\<strokes-mode-map> | 1389 | "Toggle Strokes mode, a global minor mode. |
| 1390 | With ARG, turn strokes on if and only if ARG is positive. | 1390 | With a prefix argument ARG, enable Strokes mode if ARG is |
| 1391 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1392 | the mode if ARG is omitted or nil. | ||
| 1393 | |||
| 1394 | \\<strokes-mode-map> | ||
| 1391 | Strokes are pictographic mouse gestures which invoke commands. | 1395 | Strokes are pictographic mouse gestures which invoke commands. |
| 1392 | Strokes are invoked with \\[strokes-do-stroke]. You can define | 1396 | Strokes are invoked with \\[strokes-do-stroke]. You can define |
| 1393 | new strokes with \\[strokes-global-set-stroke]. See also | 1397 | new strokes with \\[strokes-global-set-stroke]. See also |
diff --git a/lisp/subr.el b/lisp/subr.el index 05ac198dd13..c88cef0ba0f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el | |||
| @@ -116,8 +116,6 @@ BODY should be a list of Lisp expressions. | |||
| 116 | ;; depend on backquote.el. | 116 | ;; depend on backquote.el. |
| 117 | (list 'function (cons 'lambda cdr))) | 117 | (list 'function (cons 'lambda cdr))) |
| 118 | 118 | ||
| 119 | ;; Partial application of functions (similar to "currying"). | ||
| 120 | ;; This function is here rather than in subr.el because it uses CL. | ||
| 121 | (defun apply-partially (fun &rest args) | 119 | (defun apply-partially (fun &rest args) |
| 122 | "Return a function that is a partial application of FUN to ARGS. | 120 | "Return a function that is a partial application of FUN to ARGS. |
| 123 | ARGS is a list of the first N arguments to pass to FUN. | 121 | ARGS is a list of the first N arguments to pass to FUN. |
diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el index 059024c4bce..78857b04143 100644 --- a/lisp/t-mouse.el +++ b/lisp/t-mouse.el | |||
| @@ -33,7 +33,7 @@ | |||
| 33 | ;; mev. Now the interface with gpm is directly through a Unix socket, so this | 33 | ;; mev. Now the interface with gpm is directly through a Unix socket, so this |
| 34 | ;; file is reduced to a single minor mode macro call. | 34 | ;; file is reduced to a single minor mode macro call. |
| 35 | 35 | ||
| 36 | ;; | 36 | ;; |
| 37 | 37 | ||
| 38 | ;;; Code: | 38 | ;;; Code: |
| 39 | 39 | ||
| @@ -65,9 +65,10 @@ | |||
| 65 | (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") | 65 | (define-obsolete-function-alias 't-mouse-mode 'gpm-mouse-mode "23.1") |
| 66 | ;;;###autoload | 66 | ;;;###autoload |
| 67 | (define-minor-mode gpm-mouse-mode | 67 | (define-minor-mode gpm-mouse-mode |
| 68 | "Toggle gpm-mouse mode to use the mouse in GNU/Linux consoles. | 68 | "Toggle mouse support in GNU/Linux consoles (GPM Mouse mode). |
| 69 | With prefix arg, turn gpm-mouse mode on if arg is positive, | 69 | With a prefix argument ARG, enable GPM Mouse mode if ARG is |
| 70 | otherwise turn it off. | 70 | positive, and disable it otherwise. If called from Lisp, enable |
| 71 | the mode if ARG is omitted or nil. | ||
| 71 | 72 | ||
| 72 | This allows the use of the mouse when operating on a GNU/Linux console, | 73 | This allows the use of the mouse when operating on a GNU/Linux console, |
| 73 | in the same way as you can use the mouse under X11. | 74 | in the same way as you can use the mouse under X11. |
diff --git a/lisp/tar-mode.el b/lisp/tar-mode.el index 62171328979..cfa406c2b48 100644 --- a/lisp/tar-mode.el +++ b/lisp/tar-mode.el | |||
| @@ -404,13 +404,19 @@ MODE should be an integer which is a file mode value." | |||
| 404 | (string | 404 | (string |
| 405 | (if (zerop (logand 256 mode)) ?- ?r) | 405 | (if (zerop (logand 256 mode)) ?- ?r) |
| 406 | (if (zerop (logand 128 mode)) ?- ?w) | 406 | (if (zerop (logand 128 mode)) ?- ?w) |
| 407 | (if (zerop (logand 1024 mode)) (if (zerop (logand 64 mode)) ?- ?x) ?s) | 407 | (if (zerop (logand 2048 mode)) |
| 408 | (if (zerop (logand 64 mode)) ?- ?x) | ||
| 409 | (if (zerop (logand 64 mode)) ?S ?s)) | ||
| 408 | (if (zerop (logand 32 mode)) ?- ?r) | 410 | (if (zerop (logand 32 mode)) ?- ?r) |
| 409 | (if (zerop (logand 16 mode)) ?- ?w) | 411 | (if (zerop (logand 16 mode)) ?- ?w) |
| 410 | (if (zerop (logand 2048 mode)) (if (zerop (logand 8 mode)) ?- ?x) ?s) | 412 | (if (zerop (logand 1024 mode)) |
| 413 | (if (zerop (logand 8 mode)) ?- ?x) | ||
| 414 | (if (zerop (logand 8 mode)) ?S ?s)) | ||
| 411 | (if (zerop (logand 4 mode)) ?- ?r) | 415 | (if (zerop (logand 4 mode)) ?- ?r) |
| 412 | (if (zerop (logand 2 mode)) ?- ?w) | 416 | (if (zerop (logand 2 mode)) ?- ?w) |
| 413 | (if (zerop (logand 1 mode)) ?- ?x))) | 417 | (if (zerop (logand 512 mode)) |
| 418 | (if (zerop (logand 1 mode)) ?- ?x) | ||
| 419 | (if (zerop (logand 1 mode)) ?T ?t)))) | ||
| 414 | 420 | ||
| 415 | (defun tar-header-block-summarize (tar-hblock &optional mod-p) | 421 | (defun tar-header-block-summarize (tar-hblock &optional mod-p) |
| 416 | "Return a line similar to the output of `tar -vtf'." | 422 | "Return a line similar to the output of `tar -vtf'." |
diff --git a/lisp/term/tvi970.el b/lisp/term/tvi970.el index 5d852e52105..e154074a033 100644 --- a/lisp/term/tvi970.el +++ b/lisp/term/tvi970.el | |||
| @@ -104,14 +104,17 @@ | |||
| 104 | 104 | ||
| 105 | ;; Should keypad numbers send ordinary digits or distinct escape sequences? | 105 | ;; Should keypad numbers send ordinary digits or distinct escape sequences? |
| 106 | (define-minor-mode tvi970-set-keypad-mode | 106 | (define-minor-mode tvi970-set-keypad-mode |
| 107 | "Set the current mode of the TVI 970 numeric keypad. | 107 | "Toggle alternate keypad mode on TVI 970 keypad. |
| 108 | In ``numeric keypad mode'', the number keys on the keypad act as | 108 | With a prefix argument ARG, enable the mode if ARG is positive, |
| 109 | ordinary digits. In ``alternate keypad mode'', the keys send distinct | 109 | and disable it otherwise. If called from Lisp, enable the mode |
| 110 | escape sequences, meaning that they can have their own bindings, | 110 | if ARG is omitted or nil. |
| 111 | |||
| 112 | In ``alternate keypad mode'', the keys send distinct escape | ||
| 113 | sequences, meaning that they can have their own bindings, | ||
| 111 | independent of the normal number keys. | 114 | independent of the normal number keys. |
| 112 | With no argument, toggle between the two possible modes. | 115 | |
| 113 | With a positive argument, select alternate keypad mode. | 116 | When disabled, the terminal enters ``numeric keypad mode'', in |
| 114 | With a negative argument, select numeric keypad mode." | 117 | which the keypad's keys act as ordinary digits." |
| 115 | :variable (terminal-parameter nil 'tvi970-keypad-numeric) | 118 | :variable (terminal-parameter nil 'tvi970-keypad-numeric) |
| 116 | (send-string-to-terminal | 119 | (send-string-to-terminal |
| 117 | (if (terminal-parameter nil 'tvi970-keypad-numeric) "\e=" "\e>"))) | 120 | (if (terminal-parameter nil 'tvi970-keypad-numeric) "\e=" "\e>"))) |
diff --git a/lisp/term/vt100.el b/lisp/term/vt100.el index 406c20a0e81..ca16f356b20 100644 --- a/lisp/term/vt100.el +++ b/lisp/term/vt100.el | |||
| @@ -42,8 +42,9 @@ | |||
| 42 | ;;; Controlling the screen width. | 42 | ;;; Controlling the screen width. |
| 43 | (define-minor-mode vt100-wide-mode | 43 | (define-minor-mode vt100-wide-mode |
| 44 | "Toggle 132/80 column mode for vt100s. | 44 | "Toggle 132/80 column mode for vt100s. |
| 45 | With positive argument, switch to 132-column mode. | 45 | With a prefix argument ARG, switch to 132-column mode if ARG is |
| 46 | With negative argument, switch to 80-column mode." | 46 | positive, and 80-column mode otherwise. If called from Lisp, |
| 47 | switch to 132-column mode if ARG is omitted or nil." | ||
| 47 | :global t :init-value (= (frame-width) 132) | 48 | :global t :init-value (= (frame-width) 132) |
| 48 | (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l")) | 49 | (send-string-to-terminal (if vt100-wide-mode "\e[?3h" "\e[?3l")) |
| 49 | (set-frame-width terminal-frame (if vt100-wide-mode 132 80))) | 50 | (set-frame-width terminal-frame (if vt100-wide-mode 132 80))) |
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index d496298768d..4a57d00d702 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el | |||
| @@ -469,12 +469,14 @@ See also `flyspell-duplicate-distance'." | |||
| 469 | ;;;###autoload(defvar flyspell-mode nil) | 469 | ;;;###autoload(defvar flyspell-mode nil) |
| 470 | ;;;###autoload | 470 | ;;;###autoload |
| 471 | (define-minor-mode flyspell-mode | 471 | (define-minor-mode flyspell-mode |
| 472 | "Minor mode performing on-the-fly spelling checking. | 472 | "Toggle on-the-fly spell checking (Flyspell mode). |
| 473 | This spawns a single Ispell process and checks each word. | 473 | With a prefix argument ARG, enable Flyspell mode if ARG is |
| 474 | The default flyspell behavior is to highlight incorrect words. | 474 | positive, and disable it otherwise. If called from Lisp, enable |
| 475 | With no argument, this command toggles Flyspell mode. | 475 | the mode if ARG is omitted or nil. |
| 476 | With a prefix argument ARG, turn Flyspell minor mode on if ARG is positive, | 476 | |
| 477 | otherwise turn it off. | 477 | Flyspell mode is a buffer-local minor mode. When enabled, it |
| 478 | spawns a single Ispell process and checks each word. The default | ||
| 479 | flyspell behavior is to highlight incorrect words. | ||
| 478 | 480 | ||
| 479 | Bindings: | 481 | Bindings: |
| 480 | \\[ispell-word]: correct words (using Ispell). | 482 | \\[ispell-word]: correct words (using Ispell). |
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index b76b0a303df..62f899d1730 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el | |||
| @@ -3462,15 +3462,21 @@ available on the net." | |||
| 3462 | 3462 | ||
| 3463 | ;;;###autoload | 3463 | ;;;###autoload |
| 3464 | (define-minor-mode ispell-minor-mode | 3464 | (define-minor-mode ispell-minor-mode |
| 3465 | "Toggle Ispell minor mode. | 3465 | "Toggle last-word spell checking (Ispell minor mode). |
| 3466 | With prefix argument ARG, turn Ispell minor mode on if ARG is positive, | 3466 | With a prefix argument ARG, enable Ispell minor mode if ARG is |
| 3467 | otherwise turn it off. | 3467 | positive, and disable it otherwise. If called from Lisp, enable |
| 3468 | the mode if ARG is omitted or nil. | ||
| 3468 | 3469 | ||
| 3469 | In Ispell minor mode, pressing SPC or RET | 3470 | Ispell minor mode is a buffer-local mior mode. When enabled, |
| 3470 | warns you if the previous word is incorrectly spelled. | 3471 | typing SPC or RET warns you if the previous word is incorrectly |
| 3472 | spelled. | ||
| 3471 | 3473 | ||
| 3472 | All the buffer-local variables and dictionaries are ignored -- to read | 3474 | All the buffer-local variables and dictionaries are ignored. To |
| 3473 | them into the running ispell process, type \\[ispell-word] SPC." | 3475 | read them into the running ispell process, type \\[ispell-word] |
| 3476 | SPC. | ||
| 3477 | |||
| 3478 | For spell-checking \"on the fly\", not just after typing SPC or | ||
| 3479 | RET, use `flyspell-mode'." | ||
| 3474 | nil " Spell" ispell-minor-keymap) | 3480 | nil " Spell" ispell-minor-keymap) |
| 3475 | 3481 | ||
| 3476 | (defun ispell-minor-check () | 3482 | (defun ispell-minor-check () |
diff --git a/lisp/textmodes/nroff-mode.el b/lisp/textmodes/nroff-mode.el index 8fb0bd85dab..1be78ed293f 100644 --- a/lisp/textmodes/nroff-mode.el +++ b/lisp/textmodes/nroff-mode.el | |||
| @@ -297,11 +297,17 @@ automatically inserts the matching closing request after point." | |||
| 297 | (forward-char 1)))) | 297 | (forward-char 1)))) |
| 298 | 298 | ||
| 299 | (define-minor-mode nroff-electric-mode | 299 | (define-minor-mode nroff-electric-mode |
| 300 | "Toggle `nroff-electric-newline' minor mode. | 300 | "Toggle automatic nroff request pairing (Nroff Electric mode). |
| 301 | `nroff-electric-newline' forces Emacs to check for an nroff request at the | 301 | With a prefix argument ARG, enable Nroff Electric mode if ARG is |
| 302 | beginning of the line, and insert the matching closing request if necessary. | 302 | positive, and disable it otherwise. If called from Lisp, enable |
| 303 | This command toggles that mode (off->on, on->off), with an argument, | 303 | the mode if ARG is omitted or nil. |
| 304 | turns it on if arg is positive, otherwise off." | 304 | |
| 305 | Nroff Electric mode is a buffer-local minor mode, for use with | ||
| 306 | `nroff-mode'. When enabled, Emacs checks for an nroff request at | ||
| 307 | the beginning of the line, and inserts the matching closing | ||
| 308 | request if necessary. This command toggles that mode (off->on, | ||
| 309 | on->off), with an argument, turns it on if arg is positive, | ||
| 310 | otherwise off." | ||
| 305 | :lighter " Electric" | 311 | :lighter " Electric" |
| 306 | (or (derived-mode-p 'nroff-mode) (error "Must be in nroff mode"))) | 312 | (or (derived-mode-p 'nroff-mode) (error "Must be in nroff mode"))) |
| 307 | 313 | ||
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index 8fd055f7d87..b47924bc1f2 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -35,19 +35,23 @@ | |||
| 35 | 35 | ||
| 36 | (put 'use-hard-newlines 'permanent-local t) | 36 | (put 'use-hard-newlines 'permanent-local t) |
| 37 | (define-minor-mode use-hard-newlines | 37 | (define-minor-mode use-hard-newlines |
| 38 | "Minor mode to distinguish hard and soft newlines. | 38 | "Toggle distinguishing between hard and soft newlines. |
| 39 | When active, the functions `newline' and `open-line' add the | 39 | With a prefix argument ARG, enable the feature if ARG is |
| 40 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 41 | it if ARG is omitted or nil. | ||
| 42 | |||
| 43 | When enabled, the functions `newline' and `open-line' add the | ||
| 40 | text-property `hard' to newlines that they insert, and a line is | 44 | text-property `hard' to newlines that they insert, and a line is |
| 41 | only considered as a candidate to match `paragraph-start' or | 45 | only considered as a candidate to match `paragraph-start' or |
| 42 | `paragraph-separate' if it follows a hard newline. | 46 | `paragraph-separate' if it follows a hard newline. |
| 43 | 47 | ||
| 44 | Prefix argument says to turn mode on if positive, off if negative. | 48 | When enabling, if there are newlines in the buffer but no hard |
| 45 | When the mode is turned on, if there are newlines in the buffer but no hard | 49 | newlines, ask the user whether to mark as hard any newlines |
| 46 | newlines, ask the user whether to mark as hard any newlines preceding a | 50 | preceding a `paragraph-start' line. From a program, second arg |
| 47 | `paragraph-start' line. From a program, second arg INSERT specifies whether | 51 | INSERT specifies whether to do this; it can be `never' to change |
| 48 | to do this; it can be `never' to change nothing, t or `always' to force | 52 | nothing, t or `always' to force marking, `guess' to try to do the |
| 49 | marking, `guess' to try to do the right thing with no questions, nil | 53 | right thing with no questions, nil or anything else to ask the |
| 50 | or anything else to ask the user. | 54 | user. |
| 51 | 55 | ||
| 52 | Newlines not marked hard are called \"soft\", and are always internal | 56 | Newlines not marked hard are called \"soft\", and are always internal |
| 53 | to paragraphs. The fill functions insert and delete only soft newlines." | 57 | to paragraphs. The fill functions insert and delete only soft newlines." |
diff --git a/lisp/textmodes/refill.el b/lisp/textmodes/refill.el index 474872955b4..d60b7594c07 100644 --- a/lisp/textmodes/refill.el +++ b/lisp/textmodes/refill.el | |||
| @@ -213,12 +213,17 @@ complex processing.") | |||
| 213 | 213 | ||
| 214 | ;;;###autoload | 214 | ;;;###autoload |
| 215 | (define-minor-mode refill-mode | 215 | (define-minor-mode refill-mode |
| 216 | "Toggle Refill minor mode. | 216 | "Toggle automatic refilling (Refill mode). |
| 217 | With prefix arg, turn Refill mode on if arg is positive, otherwise turn it off. | 217 | With a prefix argument ARG, enable Refill mode if ARG is |
| 218 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 219 | the mode if ARG is omitted or nil. | ||
| 218 | 220 | ||
| 219 | When Refill mode is on, the current paragraph will be formatted when | 221 | Refill mode is a buffer-local minor mode. When enabled, the |
| 220 | changes are made within it. Self-inserting characters only cause | 222 | current paragraph is refilled as you edit. Self-inserting |
| 221 | refilling if they would cause auto-filling." | 223 | characters only cause refilling if they would cause |
| 224 | auto-filling. | ||
| 225 | |||
| 226 | For true \"word wrap\" behavior, use `visual-line-mode' instead." | ||
| 222 | :group 'refill | 227 | :group 'refill |
| 223 | :lighter " Refill" | 228 | :lighter " Refill" |
| 224 | :keymap '(("\177" . backward-delete-char-untabify)) | 229 | :keymap '(("\177" . backward-delete-char-untabify)) |
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index 7e150bff997..6f6993980db 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el | |||
| @@ -503,7 +503,13 @@ | |||
| 503 | (put 'reftex-mode :menu-tag "RefTeX Mode") | 503 | (put 'reftex-mode :menu-tag "RefTeX Mode") |
| 504 | ;;;###autoload | 504 | ;;;###autoload |
| 505 | (define-minor-mode reftex-mode | 505 | (define-minor-mode reftex-mode |
| 506 | "Minor mode with distinct support for \\label, \\ref and \\cite in LaTeX. | 506 | "Toggle RefTeX mode. |
| 507 | With a prefix argument ARG, enable RefTeX mode if ARG is | ||
| 508 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 509 | the mode if ARG is omitted or nil. | ||
| 510 | |||
| 511 | RefTeX mode is a buffer-local minor mode with distinct support | ||
| 512 | for \\label, \\ref and \\cite in LaTeX. | ||
| 507 | 513 | ||
| 508 | \\<reftex-mode-map>A Table of Contents of the entire (multifile) document with browsing | 514 | \\<reftex-mode-map>A Table of Contents of the entire (multifile) document with browsing |
| 509 | capabilities is available with `\\[reftex-toc]'. | 515 | capabilities is available with `\\[reftex-toc]'. |
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index c1ce950522c..f9fda7e0a74 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -442,11 +442,10 @@ font-locking of blocks. | |||
| 442 | 442 | ||
| 443 | ;;;###autoload | 443 | ;;;###autoload |
| 444 | (define-minor-mode rst-minor-mode | 444 | (define-minor-mode rst-minor-mode |
| 445 | "ReST Minor Mode. | 445 | "Toggle ReST minor mode. |
| 446 | Toggle ReST minor mode. | 446 | With a prefix argument ARG, enable ReST minor mode if ARG is |
| 447 | With no argument, this command toggles the mode. | 447 | positive, and disable it otherwise. If called from Lisp, enable |
| 448 | Non-null prefix argument turns on the mode. | 448 | the mode if ARG is omitted or nil. |
| 449 | Null prefix argument turns off the mode. | ||
| 450 | 449 | ||
| 451 | When ReST minor mode is enabled, the ReST mode keybindings | 450 | When ReST minor mode is enabled, the ReST mode keybindings |
| 452 | are installed on top of the major mode bindings. Use this | 451 | are installed on top of the major mode bindings. Use this |
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 314fbf9671b..be8dd9c9130 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el | |||
| @@ -841,7 +841,14 @@ Return non-nil if we skipped over matched tags." | |||
| 841 | (delete-overlay (pop sgml-electric-tag-pair-overlays)))) | 841 | (delete-overlay (pop sgml-electric-tag-pair-overlays)))) |
| 842 | 842 | ||
| 843 | (define-minor-mode sgml-electric-tag-pair-mode | 843 | (define-minor-mode sgml-electric-tag-pair-mode |
| 844 | "Automatically update the closing tag when editing the opening one." | 844 | "Toggle SGML Electric Tag Pair mode. |
| 845 | With a prefix argument ARG, enable the mode if ARG is positive, | ||
| 846 | and disable it otherwise. If called from Lisp, enable the mode | ||
| 847 | if ARG is omitted or nil. | ||
| 848 | |||
| 849 | SGML Electric Tag Pair mode is a buffer-local minor mode for use | ||
| 850 | with `sgml-mode' and related maor modes. When enabled, editing | ||
| 851 | an opening markup tag automatically updates the closing tag." | ||
| 845 | :lighter "/e" | 852 | :lighter "/e" |
| 846 | (if sgml-electric-tag-pair-mode | 853 | (if sgml-electric-tag-pair-mode |
| 847 | (progn | 854 | (progn |
| @@ -2024,9 +2031,14 @@ The third `match-string' will be the used in the menu.") | |||
| 2024 | (nreverse toc-index))) | 2031 | (nreverse toc-index))) |
| 2025 | 2032 | ||
| 2026 | (define-minor-mode html-autoview-mode | 2033 | (define-minor-mode html-autoview-mode |
| 2027 | "Toggle automatic viewing via `browse-url-of-buffer' upon saving buffer. | 2034 | "Toggle viewing of HTML files on save (HTML Autoview mode). |
| 2028 | With positive prefix ARG always turns viewing on, with negative ARG always off. | 2035 | With a prefix argument ARG, enable HTML Autoview mode if ARG is |
| 2029 | Can be used as a value for `html-mode-hook'." | 2036 | positive, and disable it otherwise. If called from Lisp, enable |
| 2037 | the mode if ARG is omitted or nil. | ||
| 2038 | |||
| 2039 | HTML Autoview mode is a buffer-local minor mode for use with | ||
| 2040 | `html-mode'. If enabled, saving the file automatically runs | ||
| 2041 | `browse-url-of-buffer' to view it." | ||
| 2030 | nil nil nil | 2042 | nil nil nil |
| 2031 | :group 'sgml | 2043 | :group 'sgml |
| 2032 | (if html-autoview-mode | 2044 | (if html-autoview-mode |
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 428fc1db3a9..deb92fc0243 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -677,8 +677,14 @@ An alternative value is \" . \", if you use a font with a narrow period." | |||
| 677 | (put-text-property start end 'latex-env-pair t))) | 677 | (put-text-property start end 'latex-env-pair t))) |
| 678 | 678 | ||
| 679 | (define-minor-mode latex-electric-env-pair-mode | 679 | (define-minor-mode latex-electric-env-pair-mode |
| 680 | "Automatically update the \\end arg when editing the \\begin one. | 680 | "Toggle Latex Electric Env Pair mode. |
| 681 | And vice-versa." | 681 | With a prefix argument ARG, enable the mode if ARG is positive, |
| 682 | and disable it otherwise. If called from Lisp, enable it if ARG | ||
| 683 | is omitted or nil. | ||
| 684 | |||
| 685 | Latex Electric Env Pair mode is a buffer-local minor mode for use | ||
| 686 | with `latex-mode'. When enabled, typing a \\begin or \\end tag | ||
| 687 | automatically inserts its partner." | ||
| 682 | :lighter "/e" | 688 | :lighter "/e" |
| 683 | (if latex-electric-env-pair-mode | 689 | (if latex-electric-env-pair-mode |
| 684 | (add-hook 'before-change-functions | 690 | (add-hook 'before-change-functions |
diff --git a/lisp/time.el b/lisp/time.el index f8fea0c64a2..ac4a011bdf8 100644 --- a/lisp/time.el +++ b/lisp/time.el | |||
| @@ -484,14 +484,15 @@ update which can wait for the next redisplay." | |||
| 484 | ;;;###autoload | 484 | ;;;###autoload |
| 485 | (define-minor-mode display-time-mode | 485 | (define-minor-mode display-time-mode |
| 486 | "Toggle display of time, load level, and mail flag in mode lines. | 486 | "Toggle display of time, load level, and mail flag in mode lines. |
| 487 | With a numeric arg, enable this display if arg is positive. | 487 | With a prefix argument ARG, enable Display Time mode if ARG is |
| 488 | 488 | positive, and disable it otherwise. If called from Lisp, enable | |
| 489 | When this display is enabled, it updates automatically every minute | 489 | it if ARG is omitted or nil. |
| 490 | \(you can control the number of seconds between updates by | 490 | |
| 491 | customizing `display-time-interval'). | 491 | When Display Time mode is enabled, it updates every minute (you |
| 492 | If `display-time-day-and-date' is non-nil, the current day and date | 492 | can control the number of seconds between updates by customizing |
| 493 | are displayed as well. | 493 | `display-time-interval'). If `display-time-day-and-date' is |
| 494 | This runs the normal hook `display-time-hook' after each update." | 494 | non-nil, the current day and date are displayed as well. This |
| 495 | runs the normal hook `display-time-hook' after each update." | ||
| 495 | :global t :group 'display-time | 496 | :global t :group 'display-time |
| 496 | (and display-time-timer (cancel-timer display-time-timer)) | 497 | (and display-time-timer (cancel-timer display-time-timer)) |
| 497 | (setq display-time-timer nil) | 498 | (setq display-time-timer nil) |
diff --git a/lisp/tool-bar.el b/lisp/tool-bar.el index 05208abb720..8759e0f77fb 100644 --- a/lisp/tool-bar.el +++ b/lisp/tool-bar.el | |||
| @@ -43,9 +43,10 @@ | |||
| 43 | ;; Deleting it means invoking this command won't work | 43 | ;; Deleting it means invoking this command won't work |
| 44 | ;; when you are on a tty. I hope that won't cause too much trouble -- rms. | 44 | ;; when you are on a tty. I hope that won't cause too much trouble -- rms. |
| 45 | (define-minor-mode tool-bar-mode | 45 | (define-minor-mode tool-bar-mode |
| 46 | "Toggle use of the tool bar. | 46 | "Toggle the tool bar in all graphical frames (Tool Bar mode). |
| 47 | With a numeric argument, if the argument is positive, turn on the | 47 | With a prefix argument ARG, enable Tool Bar mode if ARG is |
| 48 | tool bar; otherwise, turn off the tool bar. | 48 | positive, and disable it otherwise. If called from Lisp, enable |
| 49 | Tool Bar mode if ARG is omitted or nil. | ||
| 49 | 50 | ||
| 50 | See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for | 51 | See `tool-bar-add-item' and `tool-bar-add-item-from-menu' for |
| 51 | conveniently adding tool bar items." | 52 | conveniently adding tool bar items." |
diff --git a/lisp/tooltip.el b/lisp/tooltip.el index bfe53dc71b7..59115122c34 100644 --- a/lisp/tooltip.el +++ b/lisp/tooltip.el | |||
| @@ -39,11 +39,14 @@ | |||
| 39 | ;;; Switching tooltips on/off | 39 | ;;; Switching tooltips on/off |
| 40 | 40 | ||
| 41 | (define-minor-mode tooltip-mode | 41 | (define-minor-mode tooltip-mode |
| 42 | "Toggle Tooltip mode. | 42 | "Toggle use of graphical tooltips (Tooltip mode). |
| 43 | With ARG, turn Tooltip mode on if and only if ARG is positive. | 43 | With a prefix argument ARG, enable Tooltip mode if ARG is |
| 44 | When this minor mode is enabled, Emacs displays help text | 44 | positive, and disable it otherwise. If called from Lisp, enable |
| 45 | in a pop-up window for buttons and menu items that you put the mouse on. | 45 | it if ARG is omitted or nil. |
| 46 | \(However, if `tooltip-use-echo-area' is non-nil, this and | 46 | |
| 47 | When Tooltip mode is enabled, Emacs displays help text in a | ||
| 48 | pop-up window for buttons and menu items that you put the mouse | ||
| 49 | on. \(However, if `tooltip-use-echo-area' is non-nil, this and | ||
| 47 | all pop-up help appears in the echo area.) | 50 | all pop-up help appears in the echo area.) |
| 48 | 51 | ||
| 49 | When Tooltip mode is disabled, Emacs displays one line of | 52 | When Tooltip mode is disabled, Emacs displays one line of |
diff --git a/lisp/type-break.el b/lisp/type-break.el index d276e64f6db..da3129ec576 100644 --- a/lisp/type-break.el +++ b/lisp/type-break.el | |||
| @@ -431,13 +431,13 @@ problems." | |||
| 431 | type-break-mode) | 431 | type-break-mode) |
| 432 | 432 | ||
| 433 | (define-minor-mode type-break-mode-line-message-mode | 433 | (define-minor-mode type-break-mode-line-message-mode |
| 434 | "Enable or disable warnings in the mode line about typing breaks. | 434 | "Toggle warnings about typing breaks in the mode line. |
| 435 | With a prefix argument ARG, enable these warnings if ARG is | ||
| 436 | positive, and disable them otherwise. If called from Lisp, | ||
| 437 | enable them if ARG is omitted or nil. | ||
| 435 | 438 | ||
| 436 | A negative PREFIX argument disables this mode. | 439 | The user may also enable or disable this mode simply by setting |
| 437 | No argument or any non-negative argument enables it. | 440 | the variable of the same name. |
| 438 | |||
| 439 | The user may also enable or disable this mode simply by setting the | ||
| 440 | variable of the same name. | ||
| 441 | 441 | ||
| 442 | Variables controlling the display of messages in the mode line include: | 442 | Variables controlling the display of messages in the mode line include: |
| 443 | 443 | ||
| @@ -448,17 +448,13 @@ Variables controlling the display of messages in the mode line include: | |||
| 448 | :global t) | 448 | :global t) |
| 449 | 449 | ||
| 450 | (define-minor-mode type-break-query-mode | 450 | (define-minor-mode type-break-query-mode |
| 451 | "Enable or disable warnings in the mode line about typing breaks. | 451 | "Toggle typing break queries. |
| 452 | 452 | With a prefix argument ARG, enable these queries if ARG is | |
| 453 | When enabled, the user is periodically queried about whether to take a | 453 | positive, and disable them otherwise. If called from Lisp, |
| 454 | typing break at that moment. The function which does this query is | 454 | enable them if ARG is omitted or nil. |
| 455 | specified by the variable `type-break-query-function'. | ||
| 456 | |||
| 457 | A negative PREFIX argument disables this mode. | ||
| 458 | No argument or any non-negative argument enables it. | ||
| 459 | 455 | ||
| 460 | The user may also enable or disable this mode simply by setting the | 456 | The user may also enable or disable this mode simply by setting |
| 461 | variable of the same name." | 457 | the variable of the same name." |
| 462 | :global t) | 458 | :global t) |
| 463 | 459 | ||
| 464 | 460 | ||
diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index fbc267df44a..1b6890e5252 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-10-19 Chong Yidong <cyd@gnu.org> | ||
| 2 | |||
| 3 | * url-handlers.el (url-handler-mode): Doc fix. | ||
| 4 | |||
| 1 | 2011-09-24 Christopher J. White <chris@grierwhite.com> (tiny change) | 5 | 2011-09-24 Christopher J. White <chris@grierwhite.com> (tiny change) |
| 2 | 6 | ||
| 3 | * url-http.el (url-http-create-request): Avoid adding extra CRLF | 7 | * url-http.el (url-http-create-request): Avoid adding extra CRLF |
diff --git a/lisp/url/url-handlers.el b/lisp/url/url-handlers.el index fef0ef15e95..d5f7eb7dd36 100644 --- a/lisp/url/url-handlers.el +++ b/lisp/url/url-handlers.el | |||
| @@ -100,7 +100,10 @@ particularly bad at this\).") | |||
| 100 | 100 | ||
| 101 | ;;;###autoload | 101 | ;;;###autoload |
| 102 | (define-minor-mode url-handler-mode | 102 | (define-minor-mode url-handler-mode |
| 103 | "Use URL to handle URL-like file names." | 103 | "Toggle using `url' library for URL filenames (URL Handler mode). |
| 104 | With a prefix argument ARG, enable URL Handler mode if ARG is | ||
| 105 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 106 | the mode if ARG is omitted or nil." | ||
| 104 | :global t :group 'url | 107 | :global t :group 'url |
| 105 | (if (not (boundp 'file-name-handler-alist)) | 108 | (if (not (boundp 'file-name-handler-alist)) |
| 106 | ;; Can't be turned ON anyway. | 109 | ;; Can't be turned ON anyway. |
diff --git a/lisp/vc/diff-mode.el b/lisp/vc/diff-mode.el index 392973e08fe..9f0fa584b0d 100644 --- a/lisp/vc/diff-mode.el +++ b/lisp/vc/diff-mode.el | |||
| @@ -225,9 +225,16 @@ when editing big diffs)." | |||
| 225 | "Keymap for `diff-minor-mode'. See also `diff-mode-shared-map'.") | 225 | "Keymap for `diff-minor-mode'. See also `diff-mode-shared-map'.") |
| 226 | 226 | ||
| 227 | (define-minor-mode diff-auto-refine-mode | 227 | (define-minor-mode diff-auto-refine-mode |
| 228 | "Automatically highlight changes in detail as the user visits hunks. | 228 | "Toggle automatic diff hunk highlighting (Diff Auto Refine mode). |
| 229 | When transitioning from disabled to enabled, | 229 | With a prefix argument ARG, enable Diff Auto Refine mode if ARG |
| 230 | try to refine the current hunk, as well." | 230 | is positive, and disable it otherwise. If called from Lisp, |
| 231 | enable the mode if ARG is omitted or nil. | ||
| 232 | |||
| 233 | Diff Auto Refine mode is a buffer-local minor mode used with | ||
| 234 | `diff-mode'. When enabled, Emacs automatically highlights | ||
| 235 | changes in detail as the user visits hunks. When transitioning | ||
| 236 | from disabled to enabled, it tries to refine the current hunk, as | ||
| 237 | well." | ||
| 231 | :group 'diff-mode :init-value t :lighter nil ;; " Auto-Refine" | 238 | :group 'diff-mode :init-value t :lighter nil ;; " Auto-Refine" |
| 232 | (when diff-auto-refine-mode | 239 | (when diff-auto-refine-mode |
| 233 | (condition-case-no-debug nil (diff-refine-hunk) (error nil)))) | 240 | (condition-case-no-debug nil (diff-refine-hunk) (error nil)))) |
| @@ -1306,7 +1313,11 @@ a diff with \\[diff-reverse-direction]. | |||
| 1306 | 1313 | ||
| 1307 | ;;;###autoload | 1314 | ;;;###autoload |
| 1308 | (define-minor-mode diff-minor-mode | 1315 | (define-minor-mode diff-minor-mode |
| 1309 | "Minor mode for viewing/editing context diffs. | 1316 | "Toggle Diff minor mode. |
| 1317 | With a prefix argument ARG, enable Diff minor mode if ARG is | ||
| 1318 | positive, and disable it otherwise. If called from Lisp, enable | ||
| 1319 | the mode if ARG is omitted or nil. | ||
| 1320 | |||
| 1310 | \\{diff-minor-mode-map}" | 1321 | \\{diff-minor-mode-map}" |
| 1311 | :group 'diff-mode :lighter " Diff" | 1322 | :group 'diff-mode :lighter " Diff" |
| 1312 | ;; FIXME: setup font-lock | 1323 | ;; FIXME: setup font-lock |
diff --git a/lisp/vc/ediff-init.el b/lisp/vc/ediff-init.el index 0d904ec85c4..eeaa2cfa927 100644 --- a/lisp/vc/ediff-init.el +++ b/lisp/vc/ediff-init.el | |||
| @@ -1340,11 +1340,9 @@ this variable represents.") | |||
| 1340 | ovr-list)))))))) | 1340 | ovr-list)))))))) |
| 1341 | 1341 | ||
| 1342 | 1342 | ||
| 1343 | (defvar ediff-toggle-read-only-function nil | 1343 | (defvar ediff-toggle-read-only-function 'toggle-read-only |
| 1344 | "*Specifies the function to be used to toggle read-only. | 1344 | "Function to be used to toggle read-only status of the buffer. |
| 1345 | If nil, Ediff tries to deduce the function from the binding of C-x C-q. | 1345 | If nil, Ediff tries using the command bound to C-x C-q.") |
| 1346 | Normally, this is the `toggle-read-only' function, but, if version | ||
| 1347 | control is used, it could be `vc-toggle-read-only' or `rcs-toggle-read-only'.") | ||
| 1348 | 1346 | ||
| 1349 | (defcustom ediff-make-buffers-readonly-at-startup nil | 1347 | (defcustom ediff-make-buffers-readonly-at-startup nil |
| 1350 | "Make all variant buffers read-only when Ediff starts up. | 1348 | "Make all variant buffers read-only when Ediff starts up. |
diff --git a/lisp/vc/log-edit.el b/lisp/vc/log-edit.el index ebbe318fc15..c421304442f 100644 --- a/lisp/vc/log-edit.el +++ b/lisp/vc/log-edit.el | |||
| @@ -536,7 +536,7 @@ If you want to abort the commit, simply delete the buffer." | |||
| 536 | (or (= (point-min) (point-max)) | 536 | (or (= (point-min) (point-max)) |
| 537 | (save-excursion | 537 | (save-excursion |
| 538 | (goto-char (point-min)) | 538 | (goto-char (point-min)) |
| 539 | (while (and (looking-at "^\\(Summary: \\)?$") | 539 | (while (and (looking-at "^\\([a-zA-Z]+: \\)?$") |
| 540 | (zerop (forward-line 1)))) | 540 | (zerop (forward-line 1)))) |
| 541 | (eobp)))) | 541 | (eobp)))) |
| 542 | 542 | ||
diff --git a/lisp/vc/vc-bzr.el b/lisp/vc/vc-bzr.el index 3ab1caf2864..cc28db689e9 100644 --- a/lisp/vc/vc-bzr.el +++ b/lisp/vc/vc-bzr.el | |||
| @@ -866,7 +866,7 @@ stream. Standard error output is discarded." | |||
| 866 | (" M " . edited) ;; file text modified | 866 | (" M " . edited) ;; file text modified |
| 867 | (" *" . edited) ;; execute bit changed | 867 | (" *" . edited) ;; execute bit changed |
| 868 | (" M*" . edited) ;; text modified + execute bit changed | 868 | (" M*" . edited) ;; text modified + execute bit changed |
| 869 | ;; FIXME: what about ignored files? | 869 | ("I " . ignored) |
| 870 | (" D " . missing) | 870 | (" D " . missing) |
| 871 | ;; For conflicts, should we list the .THIS/.BASE/.OTHER? | 871 | ;; For conflicts, should we list the .THIS/.BASE/.OTHER? |
| 872 | ("C " . conflict) | 872 | ("C " . conflict) |
| @@ -916,7 +916,7 @@ stream. Standard error output is discarded." | |||
| 916 | (push (list new-name 'edited | 916 | (push (list new-name 'edited |
| 917 | (vc-bzr-create-extra-fileinfo old-name)) result))) | 917 | (vc-bzr-create-extra-fileinfo old-name)) result))) |
| 918 | ;; do nothing for non existent files | 918 | ;; do nothing for non existent files |
| 919 | ((eq translated 'not-found)) | 919 | ((memq translated '(not-found ignored))) |
| 920 | (t | 920 | (t |
| 921 | (push (list (file-relative-name | 921 | (push (list (file-relative-name |
| 922 | (buffer-substring-no-properties | 922 | (buffer-substring-no-properties |
diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index e7bfd273732..35fa11c2e5e 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el | |||
| @@ -648,22 +648,8 @@ this function." | |||
| 648 | (throw 'found trial)))) | 648 | (throw 'found trial)))) |
| 649 | templates)))) | 649 | templates)))) |
| 650 | 650 | ||
| 651 | (defun vc-toggle-read-only (&optional verbose) | 651 | (define-obsolete-function-alias |
| 652 | "Change read-only status of current buffer, perhaps via version control. | 652 | 'vc-toggle-read-only 'toggle-read-only "24.1") |
| 653 | |||
| 654 | If the buffer is visiting a file registered with version control, | ||
| 655 | throw an error, because this is not a safe or really meaningful operation | ||
| 656 | on any version-control system newer than RCS. | ||
| 657 | |||
| 658 | Otherwise, just change the read-only flag of the buffer. | ||
| 659 | |||
| 660 | If you bind this function to \\[toggle-read-only], then Emacs | ||
| 661 | will properly intercept all attempts to toggle the read-only flag | ||
| 662 | on version-controlled buffer." | ||
| 663 | (interactive "P") | ||
| 664 | (if (vc-backend buffer-file-name) | ||
| 665 | (error "Toggling the readability of a version controlled file is likely to wreak havoc") | ||
| 666 | (toggle-read-only))) | ||
| 667 | 653 | ||
| 668 | (defun vc-default-make-version-backups-p (backend file) | 654 | (defun vc-default-make-version-backups-p (backend file) |
| 669 | "Return non-nil if unmodified versions should be backed up locally. | 655 | "Return non-nil if unmodified versions should be backed up locally. |
diff --git a/lisp/vc/vc.el b/lisp/vc/vc.el index cdc4f155083..909585138fc 100644 --- a/lisp/vc/vc.el +++ b/lisp/vc/vc.el | |||
| @@ -1120,9 +1120,13 @@ merge in the changes into your working copy." | |||
| 1120 | ;; Files have local changes | 1120 | ;; Files have local changes |
| 1121 | ((vc-compatible-state state 'edited) | 1121 | ((vc-compatible-state state 'edited) |
| 1122 | (let ((ready-for-commit files)) | 1122 | (let ((ready-for-commit files)) |
| 1123 | ;; If files are edited but read-only, give user a chance to correct | 1123 | ;; If files are edited but read-only, give user a chance to correct. |
| 1124 | (dolist (file files) | 1124 | (dolist (file files) |
| 1125 | (unless (file-writable-p file) | 1125 | ;; If committing a mix of removed and edited files, the |
| 1126 | ;; fileset has state = 'edited. Rather than checking the | ||
| 1127 | ;; state of each individual file in the fileset, it seems | ||
| 1128 | ;; simplest to just check if the file exists. Bug#9781. | ||
| 1129 | (when (and (file-exists-p file) (not (file-writable-p file))) | ||
| 1126 | ;; Make the file+buffer read-write. | 1130 | ;; Make the file+buffer read-write. |
| 1127 | (unless (y-or-n-p (format "%s is edited but read-only; make it writable and continue? " file)) | 1131 | (unless (y-or-n-p (format "%s is edited but read-only; make it writable and continue? " file)) |
| 1128 | (error "Aborted")) | 1132 | (error "Aborted")) |
diff --git a/lisp/view.el b/lisp/view.el index 11cbc79449f..ef865007332 100644 --- a/lisp/view.el +++ b/lisp/view.el | |||
| @@ -369,19 +369,24 @@ this argument instead of explicitly setting `view-exit-action'." | |||
| 369 | ;; bindings instead of using the \\[] construction. The reason for this | 369 | ;; bindings instead of using the \\[] construction. The reason for this |
| 370 | ;; is that most commands have more than one key binding. | 370 | ;; is that most commands have more than one key binding. |
| 371 | "Toggle View mode, a minor mode for viewing text but not editing it. | 371 | "Toggle View mode, a minor mode for viewing text but not editing it. |
| 372 | With prefix argument ARG, turn View mode on if ARG is positive, otherwise | 372 | With a prefix argument ARG, enable View mode if ARG is positive, |
| 373 | turn it off. | 373 | and disable it otherwise. If called from Lisp, enable View mode |
| 374 | if ARG is omitted or nil. | ||
| 375 | |||
| 376 | When View mode is enabled, commands that do not change the buffer | ||
| 377 | contents are available as usual. Kill commands insert text in | ||
| 378 | kill buffers but do not delete. Most other commands beep and | ||
| 379 | tell the user that the buffer is read-only. | ||
| 374 | 380 | ||
| 375 | Emacs commands that do not change the buffer contents are available as usual. | ||
| 376 | Kill commands insert text in kill buffers but do not delete. Other commands | ||
| 377 | \(among them most letters and punctuation) beep and tell that the buffer is | ||
| 378 | read-only. | ||
| 379 | \\<view-mode-map> | 381 | \\<view-mode-map> |
| 380 | The following additional commands are provided. Most commands take prefix | 382 | |
| 381 | arguments. Page commands default to \"page size\" lines which is almost a whole | 383 | The following additional commands are provided. Most commands |
| 382 | window full, or number of lines set by \\[View-scroll-page-forward-set-page-size] or \\[View-scroll-page-backward-set-page-size]. Half page commands default to | 384 | take prefix arguments. Page commands default to \"page size\" |
| 383 | and set \"half page size\" lines which initially is half a window full. Search | 385 | lines which is almost a whole window, or number of lines set by |
| 384 | commands default to a repeat count of one. | 386 | \\[View-scroll-page-forward-set-page-size] or \\[View-scroll-page-backward-set-page-size]. |
| 387 | Half page commands default to and set \"half page size\" lines | ||
| 388 | which initially is half a window full. Search commands default | ||
| 389 | to a repeat count of one. | ||
| 385 | 390 | ||
| 386 | H, h, ? This message. | 391 | H, h, ? This message. |
| 387 | Digits provide prefix arguments. | 392 | Digits provide prefix arguments. |
diff --git a/lisp/whitespace.el b/lisp/whitespace.el index e0bc74343d2..8dc1996734d 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el | |||
| @@ -1064,11 +1064,10 @@ Any other value is treated as nil." | |||
| 1064 | 1064 | ||
| 1065 | ;;;###autoload | 1065 | ;;;###autoload |
| 1066 | (define-minor-mode whitespace-mode | 1066 | (define-minor-mode whitespace-mode |
| 1067 | "Toggle whitespace minor mode visualization (\"ws\" on modeline). | 1067 | "Toggle whitespace visualization (Whitespace mode). |
| 1068 | 1068 | With a prefix argument ARG, enable Whitespace mode if ARG is | |
| 1069 | If ARG is null, toggle whitespace visualization. | 1069 | positive, and disable it otherwise. If called from Lisp, enable |
| 1070 | If ARG is a number greater than zero, turn on visualization; | 1070 | the mode if ARG is omitted or nil. |
| 1071 | otherwise, turn off visualization. | ||
| 1072 | 1071 | ||
| 1073 | See also `whitespace-style', `whitespace-newline' and | 1072 | See also `whitespace-style', `whitespace-newline' and |
| 1074 | `whitespace-display-mappings'." | 1073 | `whitespace-display-mappings'." |
| @@ -1088,11 +1087,10 @@ See also `whitespace-style', `whitespace-newline' and | |||
| 1088 | 1087 | ||
| 1089 | ;;;###autoload | 1088 | ;;;###autoload |
| 1090 | (define-minor-mode whitespace-newline-mode | 1089 | (define-minor-mode whitespace-newline-mode |
| 1091 | "Toggle NEWLINE minor mode visualization (\"nl\" on modeline). | 1090 | "Toggle newline visualization (Whitespace Newline mode). |
| 1092 | 1091 | With a prefix argument ARG, enable Whitespace Newline mode if ARG | |
| 1093 | If ARG is null, toggle NEWLINE visualization. | 1092 | is positive, and disable it otherwise. If called from Lisp, |
| 1094 | If ARG is a number greater than zero, turn on visualization; | 1093 | enable the mode if ARG is omitted or nil. |
| 1095 | otherwise, turn off visualization. | ||
| 1096 | 1094 | ||
| 1097 | Use `whitespace-newline-mode' only for NEWLINE visualization | 1095 | Use `whitespace-newline-mode' only for NEWLINE visualization |
| 1098 | exclusively. For other visualizations, including NEWLINE | 1096 | exclusively. For other visualizations, including NEWLINE |
| @@ -1116,11 +1114,10 @@ See also `whitespace-newline' and `whitespace-display-mappings'." | |||
| 1116 | 1114 | ||
| 1117 | ;;;###autoload | 1115 | ;;;###autoload |
| 1118 | (define-minor-mode global-whitespace-mode | 1116 | (define-minor-mode global-whitespace-mode |
| 1119 | "Toggle whitespace global minor mode visualization (\"WS\" on modeline). | 1117 | "Toggle whitespace visualization globally (Global Whitespace mode). |
| 1120 | 1118 | With a prefix argument ARG, enable Global Whitespace mode if ARG | |
| 1121 | If ARG is null, toggle whitespace visualization. | 1119 | is positive, and disable it otherwise. If called from Lisp, |
| 1122 | If ARG is a number greater than zero, turn on visualization; | 1120 | enable it if ARG is omitted or nil. |
| 1123 | otherwise, turn off visualization. | ||
| 1124 | 1121 | ||
| 1125 | See also `whitespace-style', `whitespace-newline' and | 1122 | See also `whitespace-style', `whitespace-newline' and |
| 1126 | `whitespace-display-mappings'." | 1123 | `whitespace-display-mappings'." |
| @@ -1174,11 +1171,10 @@ See also `whitespace-style', `whitespace-newline' and | |||
| 1174 | 1171 | ||
| 1175 | ;;;###autoload | 1172 | ;;;###autoload |
| 1176 | (define-minor-mode global-whitespace-newline-mode | 1173 | (define-minor-mode global-whitespace-newline-mode |
| 1177 | "Toggle NEWLINE global minor mode visualization (\"NL\" on modeline). | 1174 | "Toggle global newline visualization (Global Whitespace Newline mode). |
| 1178 | 1175 | With a prefix argument ARG, enable Global Whitespace Newline mode | |
| 1179 | If ARG is null, toggle NEWLINE visualization. | 1176 | if ARG is positive, and disable it otherwise. If called from |
| 1180 | If ARG is a number greater than zero, turn on visualization; | 1177 | Lisp, enable it if ARG is omitted or nil. |
| 1181 | otherwise, turn off visualization. | ||
| 1182 | 1178 | ||
| 1183 | Use `global-whitespace-newline-mode' only for NEWLINE | 1179 | Use `global-whitespace-newline-mode' only for NEWLINE |
| 1184 | visualization exclusively. For other visualizations, including | 1180 | visualization exclusively. For other visualizations, including |
diff --git a/lisp/wid-browse.el b/lisp/wid-browse.el index b765e46b9c6..7ca13baeb53 100644 --- a/lisp/wid-browse.el +++ b/lisp/wid-browse.el | |||
| @@ -270,8 +270,7 @@ VALUE is assumed to be a list of widgets." | |||
| 270 | 270 | ||
| 271 | ;;;###autoload | 271 | ;;;###autoload |
| 272 | (define-minor-mode widget-minor-mode | 272 | (define-minor-mode widget-minor-mode |
| 273 | "Togle minor mode for traversing widgets. | 273 | "Minor mode for traversing widgets." |
| 274 | With arg, turn widget mode on if and only if arg is positive." | ||
| 275 | :lighter " Widget") | 274 | :lighter " Widget") |
| 276 | 275 | ||
| 277 | ;;; The End: | 276 | ;;; The End: |
diff --git a/lisp/window.el b/lisp/window.el index 4d8b3c92b95..968f47f4f31 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -1084,6 +1084,35 @@ regardless of whether that buffer is current or not." | |||
| 1084 | (goto-char pos)) | 1084 | (goto-char pos)) |
| 1085 | (set-window-point window pos))) | 1085 | (set-window-point window pos))) |
| 1086 | 1086 | ||
| 1087 | (defun window-at-side-p (&optional window side) | ||
| 1088 | "Return t if WINDOW is at SIDE of its containing frame. | ||
| 1089 | WINDOW can be any window and defaults to the selected one. SIDE | ||
| 1090 | can be any of the symbols `left', `top', `right' or `bottom'. | ||
| 1091 | The default value nil is handled like `bottom'." | ||
| 1092 | (setq window (window-normalize-any-window window)) | ||
| 1093 | (let ((edge | ||
| 1094 | (cond | ||
| 1095 | ((eq side 'left) 0) | ||
| 1096 | ((eq side 'top) 1) | ||
| 1097 | ((eq side 'right) 2) | ||
| 1098 | ((memq side '(bottom nil)) 3)))) | ||
| 1099 | (= (nth edge (window-edges window)) | ||
| 1100 | (nth edge (window-edges (frame-root-window window)))))) | ||
| 1101 | |||
| 1102 | (defun windows-at-side (&optional frame side) | ||
| 1103 | "Return list of all windows on SIDE of FRAME. | ||
| 1104 | FRAME must be a live frame and defaults to the selected frame. | ||
| 1105 | SIDE can be any of the symbols `left', `top', `right' or | ||
| 1106 | `bottom'. The default value nil is handled like `bottom'." | ||
| 1107 | (setq frame (window-normalize-frame frame)) | ||
| 1108 | (let (windows) | ||
| 1109 | (walk-window-tree | ||
| 1110 | (lambda (window) | ||
| 1111 | (when (window-at-side-p window side) | ||
| 1112 | (setq windows (cons window windows)))) | ||
| 1113 | frame) | ||
| 1114 | (nreverse windows))) | ||
| 1115 | |||
| 1087 | (defun window-in-direction-2 (window posn &optional horizontal) | 1116 | (defun window-in-direction-2 (window posn &optional horizontal) |
| 1088 | "Support function for `window-in-direction'." | 1117 | "Support function for `window-in-direction'." |
| 1089 | (if horizontal | 1118 | (if horizontal |
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index eca5f813ca2..09b2a7b88bd 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el | |||
| @@ -199,8 +199,9 @@ | |||
| 199 | ;;;###autoload | 199 | ;;;###autoload |
| 200 | (define-minor-mode xterm-mouse-mode | 200 | (define-minor-mode xterm-mouse-mode |
| 201 | "Toggle XTerm mouse mode. | 201 | "Toggle XTerm mouse mode. |
| 202 | With prefix arg, turn XTerm mouse mode on if arg is positive, otherwise turn | 202 | With a prefix argument ARG, enable XTerm mouse mode if ARG is |
| 203 | it off. | 203 | positive, and disable it otherwise. If called from Lisp, enable |
| 204 | the mode if ARG is omitted or nil. | ||
| 204 | 205 | ||
| 205 | Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. | 206 | Turn it on to use Emacs mouse commands, and off to use xterm mouse commands. |
| 206 | This works in terminal emulators compatible with xterm. It only | 207 | This works in terminal emulators compatible with xterm. It only |