procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Delete not-useful comments referring to Emacs 19.

Browse source
This commit is contained in:
Stefan Kangas 2022-08-19 17:59:13 +02:00
parent 043ae1f53a
commit b7d6ebff07
7 changed files with 7 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/calc/calc-yank.el
View file

@ -150,7 +150,6 @@
;; This function uses calc-last-kill if possible to get an exact result, ;; This function uses calc-last-kill if possible to get an exact result,
;; otherwise it just parses the yanked string. ;; otherwise it just parses the yanked string.
;; Modified to use Emacs 19 extended concept of kill-ring. -- daveg 12/15/96
;;;###autoload ;;;###autoload
(defun calc-yank-internal (radix thing-raw) (defun calc-yank-internal (radix thing-raw)
"Internal common implementation for yank functions. "Internal common implementation for yank functions.

1
lisp/emacs-lisp/checkdoc.el
View file

@ -2232,7 +2232,6 @@ nil."
(progn (progn
(ispell-set-spellchecker-params) ; Initialize variables and dict alists. (ispell-set-spellchecker-params) ; Initialize variables and dict alists.
(ispell-accept-buffer-local-defs) ; Use the correct dictionary. (ispell-accept-buffer-local-defs) ; Use the correct dictionary.
;; This code copied in part from ispell.el Emacs 19.34
(dolist (w checkdoc-ispell-lisp-words) (dolist (w checkdoc-ispell-lisp-words)
(process-send-string ispell-process (concat "@" w "\n")))) (process-send-string ispell-process (concat "@" w "\n"))))
(error (setq checkdoc-spellcheck-documentation-flag nil))))) (error (setq checkdoc-spellcheck-documentation-flag nil)))))

1
lisp/emacs-lisp/edebug.el
View file

@ -2861,7 +2861,6 @@ See `edebug-behavior-alist' for implementations.")
(this-command this-command) (this-command this-command)
(current-prefix-arg nil) (current-prefix-arg nil)
;; More for Emacs 19
(last-input-event nil) (last-input-event nil)
(last-command-event nil) (last-command-event nil)
(last-event-frame nil) (last-event-frame nil)

2
lisp/emacs-lisp/elp.el
View file

@ -111,7 +111,7 @@
;; provide the functionality or interface that I wanted, so I wrote ;; provide the functionality or interface that I wanted, so I wrote
;; this. ;; this.
;; Unlike previous profilers, elp uses Emacs 19's built-in function ;; Unlike previous profilers, elp uses the built-in function
;; current-time to return interval times. This obviates the need for ;; current-time to return interval times. This obviates the need for
;; both an external C program and Emacs processes to communicate with ;; both an external C program and Emacs processes to communicate with
;; such a program, and thus simplifies the package as a whole. ;; such a program, and thus simplifies the package as a whole.

4
lisp/emulation/viper-init.el
View file

@ -867,8 +867,8 @@ Should be set in `viper-custom-file-name'."
(defvar-local viper-minibuffer-overlay nil) (defvar-local viper-minibuffer-overlay nil)
(put 'viper-minibuffer-overlay 'permanent-local t) (put 'viper-minibuffer-overlay 'permanent-local t)
;; Hook, specific to Viper, which is run just *before* exiting the minibuffer. ;; Hook, specific to Viper, which is run just *before* exiting the
;; This is needed because beginning with Emacs 19.26, the standard ;; minibuffer. This is needed because, the standard
;; `minibuffer-exit-hook' is run *after* exiting the minibuffer ;; `minibuffer-exit-hook' is run *after* exiting the minibuffer
(defvar viper-minibuffer-exit-hook nil) (defvar viper-minibuffer-exit-hook nil)

2
lisp/progmodes/icon.el
View file

@ -163,8 +163,6 @@ with no args, if that value is non-nil."
'((icon-font-lock-keywords '((icon-font-lock-keywords
icon-font-lock-keywords-1 icon-font-lock-keywords-2) icon-font-lock-keywords-1 icon-font-lock-keywords-2)
nil nil ((?_ . "w")) beginning-of-defun nil nil ((?_ . "w")) beginning-of-defun
;; Obsoleted by Emacs 19.35 parse-partial-sexp's COMMENTSTOP.
;;(font-lock-comment-start-regexp . "#")
(font-lock-mark-block-function . mark-defun))) (font-lock-mark-block-function . mark-defun)))
;; imenu support ;; imenu support
(setq-local imenu-generic-expression icon-imenu-generic-expression) (setq-local imenu-generic-expression icon-imenu-generic-expression)

9
lisp/vcursor.el
View file

@ -232,11 +232,10 @@
;; ======================= ;; =======================
;; ;;
;; If Emacs has set the variable window-system to nil, vcursor will ;; If Emacs has set the variable window-system to nil, vcursor will
;; assume that overlays cannot be displayed in a different face, ;; assume that overlays cannot be displayed in a different face, and
;; and will instead use a string (the variable vcursor-string, by ;; will instead use a string (the variable vcursor-string, by default "**>")
;; default "**>") to show its position. This was first implemented ;; to show its position. Unlike the old-fashioned overlay arrow (as
;; in Emacs 19.29. Unlike the old-fashioned overlay arrow (as used ;; used by debuggers), this appears between existing text, which can
;; by debuggers), this appears between existing text, which can
;; make it hard to read if you're not used to it. (This seemed the ;; make it hard to read if you're not used to it. (This seemed the
;; better option here.) This means moving the vcursor up and down is ;; better option here.) This means moving the vcursor up and down is
;; a very efficient way of locating it! ;; a very efficient way of locating it!