diff options
| author | Stefan Kangas | 2022-08-19 17:59:13 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-08-19 18:05:51 +0200 |
| commit | b7d6ebff078cece09c3e7a84c34ea4fe65e65917 (patch) | |
| tree | 09ed183b5971a2bf2c5d8b432c273d476ee5bd18 | |
| parent | 043ae1f53a29d69f2573356715861ec54d626b56 (diff) | |
| download | emacs-b7d6ebff078cece09c3e7a84c34ea4fe65e65917.tar.gz emacs-b7d6ebff078cece09c3e7a84c34ea4fe65e65917.zip | |
; Delete not-useful comments referring to Emacs 19.
| -rw-r--r-- | lisp/calc/calc-yank.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/checkdoc.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 1 | ||||
| -rw-r--r-- | lisp/emacs-lisp/elp.el | 2 | ||||
| -rw-r--r-- | lisp/emulation/viper-init.el | 4 | ||||
| -rw-r--r-- | lisp/progmodes/icon.el | 2 | ||||
| -rw-r--r-- | lisp/vcursor.el | 9 |
7 files changed, 7 insertions, 13 deletions
diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index 71cc68b0c20..d4594370cae 100644 --- a/lisp/calc/calc-yank.el +++ b/lisp/calc/calc-yank.el | |||
| @@ -150,7 +150,6 @@ | |||
| 150 | 150 | ||
| 151 | ;; This function uses calc-last-kill if possible to get an exact result, | 151 | ;; This function uses calc-last-kill if possible to get an exact result, |
| 152 | ;; otherwise it just parses the yanked string. | 152 | ;; otherwise it just parses the yanked string. |
| 153 | ;; Modified to use Emacs 19 extended concept of kill-ring. -- daveg 12/15/96 | ||
| 154 | ;;;###autoload | 153 | ;;;###autoload |
| 155 | (defun calc-yank-internal (radix thing-raw) | 154 | (defun calc-yank-internal (radix thing-raw) |
| 156 | "Internal common implementation for yank functions. | 155 | "Internal common implementation for yank functions. |
diff --git a/lisp/emacs-lisp/checkdoc.el b/lisp/emacs-lisp/checkdoc.el index 04ead562f2f..a5ab3a50ff2 100644 --- a/lisp/emacs-lisp/checkdoc.el +++ b/lisp/emacs-lisp/checkdoc.el | |||
| @@ -2232,7 +2232,6 @@ nil." | |||
| 2232 | (progn | 2232 | (progn |
| 2233 | (ispell-set-spellchecker-params) ; Initialize variables and dict alists. | 2233 | (ispell-set-spellchecker-params) ; Initialize variables and dict alists. |
| 2234 | (ispell-accept-buffer-local-defs) ; Use the correct dictionary. | 2234 | (ispell-accept-buffer-local-defs) ; Use the correct dictionary. |
| 2235 | ;; This code copied in part from ispell.el Emacs 19.34 | ||
| 2236 | (dolist (w checkdoc-ispell-lisp-words) | 2235 | (dolist (w checkdoc-ispell-lisp-words) |
| 2237 | (process-send-string ispell-process (concat "@" w "\n")))) | 2236 | (process-send-string ispell-process (concat "@" w "\n")))) |
| 2238 | (error (setq checkdoc-spellcheck-documentation-flag nil))))) | 2237 | (error (setq checkdoc-spellcheck-documentation-flag nil))))) |
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index dff16df0029..9de8999fdfd 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -2861,7 +2861,6 @@ See `edebug-behavior-alist' for implementations.") | |||
| 2861 | (this-command this-command) | 2861 | (this-command this-command) |
| 2862 | (current-prefix-arg nil) | 2862 | (current-prefix-arg nil) |
| 2863 | 2863 | ||
| 2864 | ;; More for Emacs 19 | ||
| 2865 | (last-input-event nil) | 2864 | (last-input-event nil) |
| 2866 | (last-command-event nil) | 2865 | (last-command-event nil) |
| 2867 | (last-event-frame nil) | 2866 | (last-event-frame nil) |
diff --git a/lisp/emacs-lisp/elp.el b/lisp/emacs-lisp/elp.el index 03c5b94e3b4..cbf38e7dd88 100644 --- a/lisp/emacs-lisp/elp.el +++ b/lisp/emacs-lisp/elp.el | |||
| @@ -111,7 +111,7 @@ | |||
| 111 | ;; provide the functionality or interface that I wanted, so I wrote | 111 | ;; provide the functionality or interface that I wanted, so I wrote |
| 112 | ;; this. | 112 | ;; this. |
| 113 | 113 | ||
| 114 | ;; Unlike previous profilers, elp uses Emacs 19's built-in function | 114 | ;; Unlike previous profilers, elp uses the built-in function |
| 115 | ;; current-time to return interval times. This obviates the need for | 115 | ;; current-time to return interval times. This obviates the need for |
| 116 | ;; both an external C program and Emacs processes to communicate with | 116 | ;; both an external C program and Emacs processes to communicate with |
| 117 | ;; such a program, and thus simplifies the package as a whole. | 117 | ;; such a program, and thus simplifies the package as a whole. |
diff --git a/lisp/emulation/viper-init.el b/lisp/emulation/viper-init.el index df2487a4477..7296041ae8f 100644 --- a/lisp/emulation/viper-init.el +++ b/lisp/emulation/viper-init.el | |||
| @@ -867,8 +867,8 @@ Should be set in `viper-custom-file-name'." | |||
| 867 | (defvar-local viper-minibuffer-overlay nil) | 867 | (defvar-local viper-minibuffer-overlay nil) |
| 868 | (put 'viper-minibuffer-overlay 'permanent-local t) | 868 | (put 'viper-minibuffer-overlay 'permanent-local t) |
| 869 | 869 | ||
| 870 | ;; Hook, specific to Viper, which is run just *before* exiting the minibuffer. | 870 | ;; Hook, specific to Viper, which is run just *before* exiting the |
| 871 | ;; This is needed because beginning with Emacs 19.26, the standard | 871 | ;; minibuffer. This is needed because, the standard |
| 872 | ;; `minibuffer-exit-hook' is run *after* exiting the minibuffer | 872 | ;; `minibuffer-exit-hook' is run *after* exiting the minibuffer |
| 873 | (defvar viper-minibuffer-exit-hook nil) | 873 | (defvar viper-minibuffer-exit-hook nil) |
| 874 | 874 | ||
diff --git a/lisp/progmodes/icon.el b/lisp/progmodes/icon.el index ec281f3a496..2da0fb16773 100644 --- a/lisp/progmodes/icon.el +++ b/lisp/progmodes/icon.el | |||
| @@ -163,8 +163,6 @@ with no args, if that value is non-nil." | |||
| 163 | '((icon-font-lock-keywords | 163 | '((icon-font-lock-keywords |
| 164 | icon-font-lock-keywords-1 icon-font-lock-keywords-2) | 164 | icon-font-lock-keywords-1 icon-font-lock-keywords-2) |
| 165 | nil nil ((?_ . "w")) beginning-of-defun | 165 | nil nil ((?_ . "w")) beginning-of-defun |
| 166 | ;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP. | ||
| 167 | ;;(font-lock-comment-start-regexp . "#") | ||
| 168 | (font-lock-mark-block-function . mark-defun))) | 166 | (font-lock-mark-block-function . mark-defun))) |
| 169 | ;; imenu support | 167 | ;; imenu support |
| 170 | (setq-local imenu-generic-expression icon-imenu-generic-expression) | 168 | (setq-local imenu-generic-expression icon-imenu-generic-expression) |
diff --git a/lisp/vcursor.el b/lisp/vcursor.el index a54227c1bce..e7dd1ba7156 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el | |||
| @@ -232,11 +232,10 @@ | |||
| 232 | ;; ======================= | 232 | ;; ======================= |
| 233 | ;; | 233 | ;; |
| 234 | ;; If Emacs has set the variable window-system to nil, vcursor will | 234 | ;; If Emacs has set the variable window-system to nil, vcursor will |
| 235 | ;; assume that overlays cannot be displayed in a different face, | 235 | ;; assume that overlays cannot be displayed in a different face, and |
| 236 | ;; and will instead use a string (the variable vcursor-string, by | 236 | ;; will instead use a string (the variable vcursor-string, by default "**>") |
| 237 | ;; default "**>") to show its position. This was first implemented | 237 | ;; to show its position. Unlike the old-fashioned overlay arrow (as |
| 238 | ;; in Emacs 19.29. Unlike the old-fashioned overlay arrow (as used | 238 | ;; used by debuggers), this appears between existing text, which can |
| 239 | ;; by debuggers), this appears between existing text, which can | ||
| 240 | ;; make it hard to read if you're not used to it. (This seemed the | 239 | ;; make it hard to read if you're not used to it. (This seemed the |
| 241 | ;; better option here.) This means moving the vcursor up and down is | 240 | ;; better option here.) This means moving the vcursor up and down is |
| 242 | ;; a very efficient way of locating it! | 241 | ;; a very efficient way of locating it! |