emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master a67415a: Remove stale comments


From: Stefan Kangas
Subject: master a67415a: Remove stale comments
Date: Sat, 16 May 2020 11:48:58 -0400 (EDT)

branch: master
commit a67415a71a1be5419547ac5e2abe51bc6bb37f1d
Author: Stefan Kangas <address@hidden>
Commit: Stefan Kangas <address@hidden>

    Remove stale comments
    
    * lisp/printing.el (pr-create-interface):
    * lisp/progmodes/ebnf2ps.el (ebnf-eps-filename, ebnf-trim-right):
    Remove old comments about Emacs 21/22 compatibility.
---
 lisp/printing.el          | 2 --
 lisp/progmodes/ebnf2ps.el | 4 ----
 2 files changed, 6 deletions(-)

diff --git a/lisp/printing.el b/lisp/printing.el
index 181092e..b8879be 100644
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -5622,8 +5622,6 @@ COMMAND.exe, COMMAND.bat and COMMAND.com in this order."
   ;; header
   (let ((versions (concat "printing v" pr-version
                          "    ps-print v" ps-print-version)))
-    ;; to keep compatibility with Emacs 20 & 21:
-    ;; DO NOT REPLACE `?\ ' BY `?\s'
     (widget-insert (make-string (- 79 (length versions)) ?\ ) versions))
   (pr-insert-italic "\nCurrent Directory : " 1)
   (pr-insert-italic default-directory)
diff --git a/lisp/progmodes/ebnf2ps.el b/lisp/progmodes/ebnf2ps.el
index 28e7667..08cf802 100644
--- a/lisp/progmodes/ebnf2ps.el
+++ b/lisp/progmodes/ebnf2ps.el
@@ -4975,8 +4975,6 @@ killed after process termination."
 (defun ebnf-eps-filename (str)
   (let* ((len  (length str))
         (stri 0)
-        ;; to keep compatibility with Emacs 20 & 21:
-        ;; DO NOT REPLACE `?\ ' BY `?\s'
         (new  (make-string len ?\ )))
     (while (< stri len)
       (aset new stri (aref ebnf-map-name (aref str stri)))
@@ -5993,8 +5991,6 @@ killed after process termination."
 (defun ebnf-trim-right (str)
   (let* ((len   (1- (length str)))
         (index len))
-    ;; to keep compatibility with Emacs 20 & 21:
-    ;; DO NOT REPLACE `?\ ' BY `?\s'
     (while (and (> index 0) (= (aref str index) ?\ ))
       (setq index (1- index)))
     (if (= index len)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]