aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2022-08-19 17:59:13 +0200
committerStefan Kangas2022-08-19 18:05:51 +0200
commitb7d6ebff078cece09c3e7a84c34ea4fe65e65917 (patch)
tree09ed183b5971a2bf2c5d8b432c273d476ee5bd18
parent043ae1f53a29d69f2573356715861ec54d626b56 (diff)
downloademacs-b7d6ebff078cece09c3e7a84c34ea4fe65e65917.tar.gz
emacs-b7d6ebff078cece09c3e7a84c34ea4fe65e65917.zip
; Delete not-useful comments referring to Emacs 19.
-rw-r--r--lisp/calc/calc-yank.el1
-rw-r--r--lisp/emacs-lisp/checkdoc.el1
-rw-r--r--lisp/emacs-lisp/edebug.el1
-rw-r--r--lisp/emacs-lisp/elp.el2
-rw-r--r--lisp/emulation/viper-init.el4
-rw-r--r--lisp/progmodes/icon.el2
-rw-r--r--lisp/vcursor.el9
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!