diff options
| author | Stefan Kangas | 2022-10-01 17:16:03 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-10-01 17:16:03 +0200 |
| commit | 55f46cc77cb9d72fbabadb63d8aeab45c5e005e2 (patch) | |
| tree | 92abe51fc09886a1eda8f4a6c8d1602aba604c25 | |
| parent | abe83f76de36bc3922b410f9872065fc3903738b (diff) | |
| download | emacs-55f46cc77cb9d72fbabadb63d8aeab45c5e005e2.tar.gz emacs-55f46cc77cb9d72fbabadb63d8aeab45c5e005e2.zip | |
Decrease use of the word "Emacsen" in docs
"Emacsen" is either a less clear way of saying "old versions of
Emacs", or an implicit reference to XEmacs. We recommend against
using it in the FAQ. So use the more clear wording instead.
* doc/misc/gnus.texi (Oort Gnus):
* doc/misc/widget.texi (Basic Types, toggle):
* lisp/cedet/semantic/bovine/c.el (semantic-c-skip-conditional-section):
* lisp/cedet/semantic/wisent/comp.el (wisent-compile-grammar):
* lisp/desktop.el (desktop-save):
* lisp/erc/erc-compat.el:
* lisp/erc/erc-log.el:
* lisp/gnus/gnus-util.el (gnus-replace-in-string):
* lisp/mail/footnote.el:
* lisp/net/tramp-archive.el:
* lisp/net/tramp-smb.el:
* lisp/net/tramp-uu.el:
* lisp/net/tramp.el:
(with-tramp-locked-connection):
* lisp/org/ol-eww.el:
* lisp/org/org-compat.el:
(org-define-error):
* lisp/shadowfile.el:
* lisp/winner.el: Don't use the word "Emacsen".
| -rw-r--r-- | doc/misc/gnus.texi | 2 | ||||
| -rw-r--r-- | doc/misc/widget.texi | 9 | ||||
| -rw-r--r-- | lisp/cedet/semantic/bovine/c.el | 2 | ||||
| -rw-r--r-- | lisp/cedet/semantic/wisent/comp.el | 2 | ||||
| -rw-r--r-- | lisp/desktop.el | 2 | ||||
| -rw-r--r-- | lisp/erc/erc-compat.el | 4 | ||||
| -rw-r--r-- | lisp/erc/erc-log.el | 18 | ||||
| -rw-r--r-- | lisp/gnus/gnus-util.el | 2 | ||||
| -rw-r--r-- | lisp/mail/footnote.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-archive.el | 4 | ||||
| -rw-r--r-- | lisp/net/tramp-smb.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp-uu.el | 2 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 4 | ||||
| -rw-r--r-- | lisp/org/ol-eww.el | 2 | ||||
| -rw-r--r-- | lisp/org/org-compat.el | 4 | ||||
| -rw-r--r-- | lisp/shadowfile.el | 5 | ||||
| -rw-r--r-- | lisp/winner.el | 6 |
17 files changed, 34 insertions, 38 deletions
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index b1331e79bf4..9e5b994a3ef 100644 --- a/doc/misc/gnus.texi +++ b/doc/misc/gnus.texi | |||
| @@ -28121,7 +28121,7 @@ If you use a stand-alone Gnus distribution, you'd better add | |||
| 28121 | lisp directory into load-path. | 28121 | lisp directory into load-path. |
| 28122 | 28122 | ||
| 28123 | File @file{gnus-load.el} contains autoload commands, functions and variables, | 28123 | File @file{gnus-load.el} contains autoload commands, functions and variables, |
| 28124 | some of which may not be included in distributions of Emacsen. | 28124 | some of which may not be included in distributions of Emacs. |
| 28125 | 28125 | ||
| 28126 | @end itemize | 28126 | @end itemize |
| 28127 | 28127 | ||
diff --git a/doc/misc/widget.texi b/doc/misc/widget.texi index c84b49a038c..d3634ebc82a 100644 --- a/doc/misc/widget.texi +++ b/doc/misc/widget.texi | |||
| @@ -587,8 +587,7 @@ string. | |||
| 587 | 587 | ||
| 588 | @vindex tag-glyph@r{ keyword} | 588 | @vindex tag-glyph@r{ keyword} |
| 589 | @item :tag-glyph | 589 | @item :tag-glyph |
| 590 | Name of image to use instead of the string specified by @code{:tag} on | 590 | Name of image to use instead of the string specified by @code{:tag}. |
| 591 | Emacsen that supports it. | ||
| 592 | 591 | ||
| 593 | @vindex help-echo@r{ keyword} | 592 | @vindex help-echo@r{ keyword} |
| 594 | @item :help-echo | 593 | @item :help-echo |
| @@ -1014,12 +1013,10 @@ A string representing the @samp{off} state. By default the string | |||
| 1014 | @samp{off}. | 1013 | @samp{off}. |
| 1015 | @vindex on-glyph@r{ keyword} | 1014 | @vindex on-glyph@r{ keyword} |
| 1016 | @item :on-glyph | 1015 | @item :on-glyph |
| 1017 | Name of a glyph to be used instead of the @samp{:on} text string, on | 1016 | Name of a glyph to be used instead of the @samp{:on} text string. |
| 1018 | emacsen that supports this. | ||
| 1019 | @vindex off-glyph@r{ keyword} | 1017 | @vindex off-glyph@r{ keyword} |
| 1020 | @item :off-glyph | 1018 | @item :off-glyph |
| 1021 | Name of a glyph to be used instead of the @samp{:off} text string, on | 1019 | Name of a glyph to be used instead of the @samp{:off} text string. |
| 1022 | emacsen that supports this. | ||
| 1023 | @end table | 1020 | @end table |
| 1024 | 1021 | ||
| 1025 | @node checkbox | 1022 | @node checkbox |
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index d4ce20589e6..6e880b92d40 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el | |||
| @@ -308,7 +308,7 @@ Moves completely over balanced #if blocks." | |||
| 308 | ;; We found a nested if. Skip it. | 308 | ;; We found a nested if. Skip it. |
| 309 | (if (fboundp 'c-scan-conditionals) | 309 | (if (fboundp 'c-scan-conditionals) |
| 310 | (goto-char (c-scan-conditionals 1)) | 310 | (goto-char (c-scan-conditionals 1)) |
| 311 | ;; For older Emacsen, but this will set the mark. | 311 | ;; For older versions of Emacs, but this will set the mark. |
| 312 | (c-forward-conditional 1))) | 312 | (c-forward-conditional 1))) |
| 313 | ((looking-at "^\\s-*#\\s-*elif") | 313 | ((looking-at "^\\s-*#\\s-*elif") |
| 314 | ;; We need to let the preprocessor analyze this one. | 314 | ;; We need to let the preprocessor analyze this one. |
diff --git a/lisp/cedet/semantic/wisent/comp.el b/lisp/cedet/semantic/wisent/comp.el index e24f6128a68..2ffce5652da 100644 --- a/lisp/cedet/semantic/wisent/comp.el +++ b/lisp/cedet/semantic/wisent/comp.el | |||
| @@ -3449,7 +3449,7 @@ Automatically called by the Emacs Lisp byte compiler as a | |||
| 3449 | 3449 | ||
| 3450 | (defun wisent-compile-grammar (grammar &optional start-list) | 3450 | (defun wisent-compile-grammar (grammar &optional start-list) |
| 3451 | ;; This is kept for compatibility with FOO-wy.el files generated | 3451 | ;; This is kept for compatibility with FOO-wy.el files generated |
| 3452 | ;; with older Emacsen. | 3452 | ;; with older versions of Emacs. |
| 3453 | (declare (obsolete wisent-compiled-grammar "Mar 2021")) | 3453 | (declare (obsolete wisent-compiled-grammar "Mar 2021")) |
| 3454 | (wisent--compile-grammar grammar start-list)) | 3454 | (wisent--compile-grammar grammar start-list)) |
| 3455 | 3455 | ||
diff --git a/lisp/desktop.el b/lisp/desktop.el index ef73bc596df..ec321faa630 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el | |||
| @@ -1186,7 +1186,7 @@ no questions asked." | |||
| 1186 | (goto-char (point-max)) | 1186 | (goto-char (point-max)) |
| 1187 | (insert "\n;; Global section:\n") | 1187 | (insert "\n;; Global section:\n") |
| 1188 | ;; Called here because we save the window/frame state as a global | 1188 | ;; Called here because we save the window/frame state as a global |
| 1189 | ;; variable for compatibility with previous Emacsen. | 1189 | ;; variable for compatibility with older versions of Emacs. |
| 1190 | (desktop-save-frameset) | 1190 | (desktop-save-frameset) |
| 1191 | (unless (memq 'desktop-saved-frameset desktop-globals-to-save) | 1191 | (unless (memq 'desktop-saved-frameset desktop-globals-to-save) |
| 1192 | (desktop-outvar 'desktop-saved-frameset)) | 1192 | (desktop-outvar 'desktop-saved-frameset)) |
diff --git a/lisp/erc/erc-compat.el b/lisp/erc/erc-compat.el index 8a00e711acd..4a1280fe64d 100644 --- a/lisp/erc/erc-compat.el +++ b/lisp/erc/erc-compat.el | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; erc-compat.el --- ERC compatibility code for older Emacsen -*- lexical-binding: t; -*- | 1 | ;;; erc-compat.el --- ERC compatibility code for old Emacs versions -*- lexical-binding: t; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002-2003, 2005-2022 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002-2022 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Author: Alex Schroeder <alex@gnu.org> | 5 | ;; Author: Alex Schroeder <alex@gnu.org> |
| 6 | ;; Maintainer: Amin Bandali <bandali@gnu.org>, F. Jason Park <jp@neverwas.me> | 6 | ;; Maintainer: Amin Bandali <bandali@gnu.org>, F. Jason Park <jp@neverwas.me> |
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el index 57093d3fc6c..7a79754ab45 100644 --- a/lisp/erc/erc-log.el +++ b/lisp/erc/erc-log.el | |||
| @@ -74,21 +74,21 @@ | |||
| 74 | ;;; TODO: | 74 | ;;; TODO: |
| 75 | ;; | 75 | ;; |
| 76 | ;; * Really, we need to lock the logfiles somehow, so that if a user | 76 | ;; * Really, we need to lock the logfiles somehow, so that if a user |
| 77 | ;; is running multiple emacsen and/or on the same channel as more | 77 | ;; is running multiple Emacs processes and/or on the same channel as |
| 78 | ;; than one user, only one process writes to the logfile. This is | 78 | ;; more than one user, only one process writes to the logfile. This |
| 79 | ;; especially needed for those logfiles with no nick in them, as | 79 | ;; is especially needed for those logfiles with no nick in them, as |
| 80 | ;; these would become corrupted. | 80 | ;; these would become corrupted. |
| 81 | ;; For a single emacs process, the problem could be solved using a | 81 | ;; For a single Emacs process, the problem could be solved using a |
| 82 | ;; variable which contained the names of buffers already being | 82 | ;; variable which contained the names of buffers already being |
| 83 | ;; logged. This would require that logging be buffer-local, | 83 | ;; logged. This would require that logging be buffer-local, |
| 84 | ;; possibly not a bad thing anyway, since many people don't want to | 84 | ;; possibly not a bad thing anyway, since many people don't want to |
| 85 | ;; log the server buffer. | 85 | ;; log the server buffer. |
| 86 | ;; For multiple emacsen the problem is trickier. On some systems, | 86 | ;; For multiple Emacs processes the problem is trickier. On some |
| 87 | ;; on could use the function `lock-buffer' and `unlock-buffer'. | 87 | ;; systems, on could use the function `lock-buffer' and |
| 88 | ;; However, file locking isn't implemented on all platforms, for | 88 | ;; `unlock-buffer'. However, file locking isn't implemented on all |
| 89 | ;; example, there is none on w32 systems. | 89 | ;; platforms, for example, there is none on w32 systems. |
| 90 | ;; A third possibility might be to fake lockfiles. However, this | 90 | ;; A third possibility might be to fake lockfiles. However, this |
| 91 | ;; might lead to problems if an emacs crashes, as the lockfile | 91 | ;; might lead to problems if one Emacs crashes, as the lockfile |
| 92 | ;; would be left lying around. | 92 | ;; would be left lying around. |
| 93 | 93 | ||
| 94 | ;;; Code: | 94 | ;;; Code: |
diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el index fe556b155a8..2cf1d2f18c7 100644 --- a/lisp/gnus/gnus-util.el +++ b/lisp/gnus/gnus-util.el | |||
| @@ -78,7 +78,7 @@ | |||
| 78 | If LITERAL is non-nil, insert NEWTEXT literally. Return a new | 78 | If LITERAL is non-nil, insert NEWTEXT literally. Return a new |
| 79 | string containing the replacements. | 79 | string containing the replacements. |
| 80 | 80 | ||
| 81 | This is a compatibility function for different Emacsen." | 81 | This is a compatibility function." |
| 82 | (declare (obsolete replace-regexp-in-string "26.1")) | 82 | (declare (obsolete replace-regexp-in-string "26.1")) |
| 83 | (replace-regexp-in-string regexp newtext string nil literal)) | 83 | (replace-regexp-in-string regexp newtext string nil literal)) |
| 84 | 84 | ||
diff --git a/lisp/mail/footnote.el b/lisp/mail/footnote.el index a594fa3ccb4..b2eb0c3e9e8 100644 --- a/lisp/mail/footnote.el +++ b/lisp/mail/footnote.el | |||
| @@ -24,7 +24,7 @@ | |||
| 24 | 24 | ||
| 25 | ;;; Commentary: | 25 | ;;; Commentary: |
| 26 | 26 | ||
| 27 | ;; This file provides footnote[1] support for message-mode in emacsen. | 27 | ;; This file provides footnote[1] support for message-mode in Emacs. |
| 28 | ;; footnote-mode is implemented as a minor mode. | 28 | ;; footnote-mode is implemented as a minor mode. |
| 29 | 29 | ||
| 30 | ;; [1] Footnotes look something like this. Along with some decorative | 30 | ;; [1] Footnotes look something like this. Along with some decorative |
diff --git a/lisp/net/tramp-archive.el b/lisp/net/tramp-archive.el index b343e460df6..646ae864526 100644 --- a/lisp/net/tramp-archive.el +++ b/lisp/net/tramp-archive.el | |||
| @@ -201,7 +201,7 @@ It must be supported by libarchive(3).") | |||
| 201 | 201 | ||
| 202 | (put #'tramp-archive-autoload-file-name-regexp 'tramp-autoload t) | 202 | (put #'tramp-archive-autoload-file-name-regexp 'tramp-autoload t) |
| 203 | 203 | ||
| 204 | ;; In older Emacsen (prior 27.1), `tramp-archive-autoload-file-name-regexp' | 204 | ;; In older Emacs (prior 27.1), `tramp-archive-autoload-file-name-regexp' |
| 205 | ;; is not autoloaded. So we cannot expect it to be known in | 205 | ;; is not autoloaded. So we cannot expect it to be known in |
| 206 | ;; tramp-loaddefs.el. But it exists, when tramp-archive.el is loaded. | 206 | ;; tramp-loaddefs.el. But it exists, when tramp-archive.el is loaded. |
| 207 | ;;;###tramp-autoload | 207 | ;;;###tramp-autoload |
| @@ -332,7 +332,7 @@ arguments to pass to the OPERATION." | |||
| 332 | 332 | ||
| 333 | ;; Starting with Emacs 29, `tramp-archive-file-name-handler' is | 333 | ;; Starting with Emacs 29, `tramp-archive-file-name-handler' is |
| 334 | ;; autoloaded. But it must still be in tramp-loaddefs.el for older | 334 | ;; autoloaded. But it must still be in tramp-loaddefs.el for older |
| 335 | ;; Emacsen. | 335 | ;; versions of Emacs. |
| 336 | ;;;###autoload(autoload 'tramp-archive-file-name-handler "tramp-archive") | 336 | ;;;###autoload(autoload 'tramp-archive-file-name-handler "tramp-archive") |
| 337 | ;;;###tramp-autoload | 337 | ;;;###tramp-autoload |
| 338 | (defun tramp-archive-file-name-handler (operation &rest args) | 338 | (defun tramp-archive-file-name-handler (operation &rest args) |
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el index 11b3689df60..e55f6bb6ee5 100644 --- a/lisp/net/tramp-smb.el +++ b/lisp/net/tramp-smb.el | |||
| @@ -1761,7 +1761,7 @@ Result is a list of (LOCALNAME MODE SIZE MONTH DAY TIME YEAR)." | |||
| 1761 | ;; | 1761 | ;; |
| 1762 | ;; Problems: | 1762 | ;; Problems: |
| 1763 | ;; * Modern regexp constructs, like spy groups and counted repetitions, aren't | 1763 | ;; * Modern regexp constructs, like spy groups and counted repetitions, aren't |
| 1764 | ;; available in older Emacsen. | 1764 | ;; available in older versions of Emacs. |
| 1765 | ;; * The length of constructs (file name, size) might exceed the default. | 1765 | ;; * The length of constructs (file name, size) might exceed the default. |
| 1766 | ;; * File names might contain spaces. | 1766 | ;; * File names might contain spaces. |
| 1767 | ;; * Permissions might be empty. | 1767 | ;; * Permissions might be empty. |
diff --git a/lisp/net/tramp-uu.el b/lisp/net/tramp-uu.el index e849c36d132..2bbdb299a69 100644 --- a/lisp/net/tramp-uu.el +++ b/lisp/net/tramp-uu.el | |||
| @@ -25,7 +25,7 @@ | |||
| 25 | ;;; Commentary: | 25 | ;;; Commentary: |
| 26 | 26 | ||
| 27 | ;; An implementation of "uuencode" in Lisp. Uses the function | 27 | ;; An implementation of "uuencode" in Lisp. Uses the function |
| 28 | ;; base64-encode-region which is built-in to modern Emacsen. | 28 | ;; base64-encode-region which is built-in to modern Emacs. |
| 29 | 29 | ||
| 30 | ;;; Code: | 30 | ;;; Code: |
| 31 | 31 | ||
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 373392f7c84..5b60aa6313a 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -3674,7 +3674,7 @@ Let-bind it when necessary.") | |||
| 3674 | 3674 | ||
| 3675 | ;; `directory-abbrev-apply' and `directory-abbrev-make-regexp' exists | 3675 | ;; `directory-abbrev-apply' and `directory-abbrev-make-regexp' exists |
| 3676 | ;; since Emacs 29.1. Since this handler isn't called for older | 3676 | ;; since Emacs 29.1. Since this handler isn't called for older |
| 3677 | ;; Emacsen, it is save to invoke them via `tramp-compat-funcall'. | 3677 | ;; Emacs, it is save to invoke them via `tramp-compat-funcall'. |
| 3678 | (defun tramp-handle-abbreviate-file-name (filename) | 3678 | (defun tramp-handle-abbreviate-file-name (filename) |
| 3679 | "Like `abbreviate-file-name' for Tramp files." | 3679 | "Like `abbreviate-file-name' for Tramp files." |
| 3680 | (let* ((case-fold-search (file-name-case-insensitive-p filename)) | 3680 | (let* ((case-fold-search (file-name-case-insensitive-p filename)) |
| @@ -5485,7 +5485,7 @@ performed successfully. Any other value means an error." | |||
| 5485 | Mostly useful to protect BODY from being interrupted by timers." | 5485 | Mostly useful to protect BODY from being interrupted by timers." |
| 5486 | (declare (indent 1) (debug t)) | 5486 | (declare (indent 1) (debug t)) |
| 5487 | `(if (tramp-get-connection-property ,proc "locked") | 5487 | `(if (tramp-get-connection-property ,proc "locked") |
| 5488 | ;; Be kind for older Emacsen. | 5488 | ;; Be kind for old versions of Emacs. |
| 5489 | (if (member 'remote-file-error debug-ignored-errors) | 5489 | (if (member 'remote-file-error debug-ignored-errors) |
| 5490 | (throw 'non-essential 'non-essential) | 5490 | (throw 'non-essential 'non-essential) |
| 5491 | (tramp-error | 5491 | (tramp-error |
diff --git a/lisp/org/ol-eww.el b/lisp/org/ol-eww.el index d1bb5195107..0bd1b5b926c 100644 --- a/lisp/org/ol-eww.el +++ b/lisp/org/ol-eww.el | |||
| @@ -48,7 +48,7 @@ | |||
| 48 | (require 'cl-lib) | 48 | (require 'cl-lib) |
| 49 | (require 'eww) | 49 | (require 'eww) |
| 50 | 50 | ||
| 51 | ;; For Emacsen < 25. | 51 | ;; For Emacs < 25. |
| 52 | (defvar eww-current-title) | 52 | (defvar eww-current-title) |
| 53 | (defvar eww-current-url) | 53 | (defvar eww-current-url) |
| 54 | 54 | ||
diff --git a/lisp/org/org-compat.el b/lisp/org/org-compat.el index 15f0daa91ae..bbad4ae635d 100644 --- a/lisp/org/org-compat.el +++ b/lisp/org/org-compat.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; org-compat.el --- Compatibility Code for Older Emacsen -*- lexical-binding: t; -*- | 1 | ;;; org-compat.el --- Compatibility Code for Older Emacs -*- lexical-binding: t; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2004-2022 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2004-2022 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -929,7 +929,7 @@ Pass COLUMN and FORCE to `move-to-column'." | |||
| 929 | "Define NAME as a new error signal. | 929 | "Define NAME as a new error signal. |
| 930 | MESSAGE is a string that will be output to the echo area if such | 930 | MESSAGE is a string that will be output to the echo area if such |
| 931 | an error is signaled without being caught by a `condition-case'. | 931 | an error is signaled without being caught by a `condition-case'. |
| 932 | Implements `define-error' for older emacsen." | 932 | Implements `define-error' for older versions of Emacs." |
| 933 | (if (fboundp 'define-error) (define-error name message) | 933 | (if (fboundp 'define-error) (define-error name message) |
| 934 | (put name 'error-conditions | 934 | (put name 'error-conditions |
| 935 | (copy-sequence (cons name (get 'error 'error-conditions)))))) | 935 | (copy-sequence (cons name (get 'error 'error-conditions)))))) |
diff --git a/lisp/shadowfile.el b/lisp/shadowfile.el index c1c31fe9c69..c8567a7d47e 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el | |||
| @@ -56,8 +56,9 @@ | |||
| 56 | 56 | ||
| 57 | ;; Bugs & Warnings: | 57 | ;; Bugs & Warnings: |
| 58 | ;; | 58 | ;; |
| 59 | ;; - It is bad to have two Emacsen both running shadowfile at the same | 59 | ;; - It is bad to have two instances of Emacs both running shadowfile |
| 60 | ;; time. It tries to detect this condition, but is not always successful. | 60 | ;; at the same time. It tries to detect this condition, but is not |
| 61 | ;; always successful. | ||
| 61 | ;; | 62 | ;; |
| 62 | ;; - You have to be careful not to edit a file in two locations | 63 | ;; - You have to be careful not to edit a file in two locations |
| 63 | ;; before shadowfile has had a chance to copy it; otherwise | 64 | ;; before shadowfile has had a chance to copy it; otherwise |
diff --git a/lisp/winner.el b/lisp/winner.el index 4290f1fd239..174b698e7b5 100644 --- a/lisp/winner.el +++ b/lisp/winner.el | |||
| @@ -171,8 +171,7 @@ You may want to include buffer names such as *Help*, *Apropos*, | |||
| 171 | (/= 0 (minibuffer-depth))) | 171 | (/= 0 (minibuffer-depth))) |
| 172 | (push (selected-frame) winner-modified-list))) | 172 | (push (selected-frame) winner-modified-list))) |
| 173 | 173 | ||
| 174 | ;; A `post-command-hook' for emacsen with | 174 | ;; Used as `post-command-hook'. |
| 175 | ;; `window-configuration-change-hook'. | ||
| 176 | (defun winner-save-old-configurations () | 175 | (defun winner-save-old-configurations () |
| 177 | (when (zerop (minibuffer-depth)) | 176 | (when (zerop (minibuffer-depth)) |
| 178 | (unless (eq this-command winner-last-command) | 177 | (unless (eq this-command winner-last-command) |
| @@ -191,8 +190,7 @@ You may want to include buffer names such as *Help*, *Apropos*, | |||
| 191 | (winner-insert-if-new (selected-frame)) | 190 | (winner-insert-if-new (selected-frame)) |
| 192 | (winner-remember)) | 191 | (winner-remember)) |
| 193 | 192 | ||
| 194 | ;; A `post-command-hook' for other emacsen. | 193 | ;; Called by `winner-undo' before "undoing". |
| 195 | ;; Also called by `winner-undo' before "undoing". | ||
| 196 | (defun winner-save-conditionally () | 194 | (defun winner-save-conditionally () |
| 197 | (when (zerop (minibuffer-depth)) | 195 | (when (zerop (minibuffer-depth)) |
| 198 | (winner-save-unconditionally))) | 196 | (winner-save-unconditionally))) |