diff options
| author | Stefan Kangas | 2022-10-01 22:32:25 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-10-01 22:34:47 +0200 |
| commit | fee9deff5309cfc5f952181cb2cae1a344b4cc45 (patch) | |
| tree | a76ee68102411f859337b738b0cdcfe55ecf0cef | |
| parent | be85d2d92070c15da495fa16199112f118f03da5 (diff) | |
| download | emacs-fee9deff5309cfc5f952181cb2cae1a344b4cc45.tar.gz emacs-fee9deff5309cfc5f952181cb2cae1a344b4cc45.zip | |
Revert "Decrease use of the word "Emacsen" in docs"
This reverts commit 55f46cc77cb9d72fbabadb63d8aeab45c5e005e2.
Ref. https://lists.gnu.org/r/emacs-devel/2022-10/msg00016.html
| -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, 38 insertions, 34 deletions
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi index 9e5b994a3ef..b1331e79bf4 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 Emacs. | 28124 | some of which may not be included in distributions of Emacsen. |
| 28125 | 28125 | ||
| 28126 | @end itemize | 28126 | @end itemize |
| 28127 | 28127 | ||
diff --git a/doc/misc/widget.texi b/doc/misc/widget.texi index d3634ebc82a..c84b49a038c 100644 --- a/doc/misc/widget.texi +++ b/doc/misc/widget.texi | |||
| @@ -587,7 +587,8 @@ 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}. | 590 | Name of image to use instead of the string specified by @code{:tag} on |
| 591 | Emacsen that supports it. | ||
| 591 | 592 | ||
| 592 | @vindex help-echo@r{ keyword} | 593 | @vindex help-echo@r{ keyword} |
| 593 | @item :help-echo | 594 | @item :help-echo |
| @@ -1013,10 +1014,12 @@ A string representing the @samp{off} state. By default the string | |||
| 1013 | @samp{off}. | 1014 | @samp{off}. |
| 1014 | @vindex on-glyph@r{ keyword} | 1015 | @vindex on-glyph@r{ keyword} |
| 1015 | @item :on-glyph | 1016 | @item :on-glyph |
| 1016 | Name of a glyph to be used instead of the @samp{:on} text string. | 1017 | Name of a glyph to be used instead of the @samp{:on} text string, on |
| 1018 | emacsen that supports this. | ||
| 1017 | @vindex off-glyph@r{ keyword} | 1019 | @vindex off-glyph@r{ keyword} |
| 1018 | @item :off-glyph | 1020 | @item :off-glyph |
| 1019 | Name of a glyph to be used instead of the @samp{:off} text string. | 1021 | Name of a glyph to be used instead of the @samp{:off} text string, on |
| 1022 | emacsen that supports this. | ||
| 1020 | @end table | 1023 | @end table |
| 1021 | 1024 | ||
| 1022 | @node checkbox | 1025 | @node checkbox |
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 6e880b92d40..d4ce20589e6 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 versions of Emacs, but this will set the mark. | 311 | ;; For older Emacsen, 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 2ffce5652da..e24f6128a68 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 versions of Emacs. | 3452 | ;; with older Emacsen. |
| 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 ec321faa630..ef73bc596df 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 older versions of Emacs. | 1189 | ;; variable for compatibility with previous Emacsen. |
| 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 4a1280fe64d..8a00e711acd 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 old Emacs versions -*- lexical-binding: t; -*- | 1 | ;;; erc-compat.el --- ERC compatibility code for older Emacsen -*- lexical-binding: t; -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2002-2022 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 2002-2003, 2005-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 7a79754ab45..57093d3fc6c 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 Emacs processes and/or on the same channel as | 77 | ;; is running multiple emacsen and/or on the same channel as more |
| 78 | ;; more than one user, only one process writes to the logfile. This | 78 | ;; than one user, only one process writes to the logfile. This is |
| 79 | ;; is especially needed for those logfiles with no nick in them, as | 79 | ;; 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 Emacs processes the problem is trickier. On some | 86 | ;; For multiple emacsen the problem is trickier. On some systems, |
| 87 | ;; systems, on could use the function `lock-buffer' and | 87 | ;; on could use the function `lock-buffer' and `unlock-buffer'. |
| 88 | ;; `unlock-buffer'. However, file locking isn't implemented on all | 88 | ;; However, file locking isn't implemented on all platforms, for |
| 89 | ;; platforms, for example, there is none on w32 systems. | 89 | ;; 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 one Emacs crashes, as the lockfile | 91 | ;; might lead to problems if an 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 2cf1d2f18c7..fe556b155a8 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." | 81 | This is a compatibility function for different Emacsen." |
| 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 b2eb0c3e9e8..a594fa3ccb4 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 Emacs. | 27 | ;; This file provides footnote[1] support for message-mode in emacsen. |
| 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 646ae864526..b343e460df6 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 Emacs (prior 27.1), `tramp-archive-autoload-file-name-regexp' | 204 | ;; In older Emacsen (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 | ;; versions of Emacs. | 335 | ;; Emacsen. |
| 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 e55f6bb6ee5..11b3689df60 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 versions of Emacs. | 1764 | ;; available in older Emacsen. |
| 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 2bbdb299a69..e849c36d132 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 Emacs. | 28 | ;; base64-encode-region which is built-in to modern Emacsen. |
| 29 | 29 | ||
| 30 | ;;; Code: | 30 | ;;; Code: |
| 31 | 31 | ||
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 03dc47a053f..ada529d396f 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el | |||
| @@ -3676,7 +3676,7 @@ Let-bind it when necessary.") | |||
| 3676 | 3676 | ||
| 3677 | ;; `directory-abbrev-apply' and `directory-abbrev-make-regexp' exists | 3677 | ;; `directory-abbrev-apply' and `directory-abbrev-make-regexp' exists |
| 3678 | ;; since Emacs 29.1. Since this handler isn't called for older | 3678 | ;; since Emacs 29.1. Since this handler isn't called for older |
| 3679 | ;; Emacs, it is save to invoke them via `tramp-compat-funcall'. | 3679 | ;; Emacsen, it is save to invoke them via `tramp-compat-funcall'. |
| 3680 | (defun tramp-handle-abbreviate-file-name (filename) | 3680 | (defun tramp-handle-abbreviate-file-name (filename) |
| 3681 | "Like `abbreviate-file-name' for Tramp files." | 3681 | "Like `abbreviate-file-name' for Tramp files." |
| 3682 | (let* ((case-fold-search (file-name-case-insensitive-p filename)) | 3682 | (let* ((case-fold-search (file-name-case-insensitive-p filename)) |
| @@ -5487,7 +5487,7 @@ performed successfully. Any other value means an error." | |||
| 5487 | Mostly useful to protect BODY from being interrupted by timers." | 5487 | Mostly useful to protect BODY from being interrupted by timers." |
| 5488 | (declare (indent 1) (debug t)) | 5488 | (declare (indent 1) (debug t)) |
| 5489 | `(if (tramp-get-connection-property ,proc "locked") | 5489 | `(if (tramp-get-connection-property ,proc "locked") |
| 5490 | ;; Be kind for old versions of Emacs. | 5490 | ;; Be kind for older Emacsen. |
| 5491 | (if (member 'remote-file-error debug-ignored-errors) | 5491 | (if (member 'remote-file-error debug-ignored-errors) |
| 5492 | (throw 'non-essential 'non-essential) | 5492 | (throw 'non-essential 'non-essential) |
| 5493 | (tramp-error | 5493 | (tramp-error |
diff --git a/lisp/org/ol-eww.el b/lisp/org/ol-eww.el index 0bd1b5b926c..d1bb5195107 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 Emacs < 25. | 51 | ;; For Emacsen < 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 bbad4ae635d..15f0daa91ae 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 Emacs -*- lexical-binding: t; -*- | 1 | ;;; org-compat.el --- Compatibility Code for Older Emacsen -*- 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 versions of Emacs." | 932 | Implements `define-error' for older emacsen." |
| 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 c8567a7d47e..c1c31fe9c69 100644 --- a/lisp/shadowfile.el +++ b/lisp/shadowfile.el | |||
| @@ -56,9 +56,8 @@ | |||
| 56 | 56 | ||
| 57 | ;; Bugs & Warnings: | 57 | ;; Bugs & Warnings: |
| 58 | ;; | 58 | ;; |
| 59 | ;; - It is bad to have two instances of Emacs both running shadowfile | 59 | ;; - It is bad to have two Emacsen both running shadowfile at the same |
| 60 | ;; at the same time. It tries to detect this condition, but is not | 60 | ;; time. It tries to detect this condition, but is not always successful. |
| 61 | ;; always successful. | ||
| 62 | ;; | 61 | ;; |
| 63 | ;; - You have to be careful not to edit a file in two locations | 62 | ;; - You have to be careful not to edit a file in two locations |
| 64 | ;; before shadowfile has had a chance to copy it; otherwise | 63 | ;; before shadowfile has had a chance to copy it; otherwise |
diff --git a/lisp/winner.el b/lisp/winner.el index 174b698e7b5..4290f1fd239 100644 --- a/lisp/winner.el +++ b/lisp/winner.el | |||
| @@ -171,7 +171,8 @@ 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 | ;; Used as `post-command-hook'. | 174 | ;; A `post-command-hook' for emacsen with |
| 175 | ;; `window-configuration-change-hook'. | ||
| 175 | (defun winner-save-old-configurations () | 176 | (defun winner-save-old-configurations () |
| 176 | (when (zerop (minibuffer-depth)) | 177 | (when (zerop (minibuffer-depth)) |
| 177 | (unless (eq this-command winner-last-command) | 178 | (unless (eq this-command winner-last-command) |
| @@ -190,7 +191,8 @@ You may want to include buffer names such as *Help*, *Apropos*, | |||
| 190 | (winner-insert-if-new (selected-frame)) | 191 | (winner-insert-if-new (selected-frame)) |
| 191 | (winner-remember)) | 192 | (winner-remember)) |
| 192 | 193 | ||
| 193 | ;; Called by `winner-undo' before "undoing". | 194 | ;; A `post-command-hook' for other emacsen. |
| 195 | ;; Also called by `winner-undo' before "undoing". | ||
| 194 | (defun winner-save-conditionally () | 196 | (defun winner-save-conditionally () |
| 195 | (when (zerop (minibuffer-depth)) | 197 | (when (zerop (minibuffer-depth)) |
| 196 | (winner-save-unconditionally))) | 198 | (winner-save-unconditionally))) |