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.
This commit is contained in:
parent
7f690a4bf1
commit
a67415a71a
2 changed files with 0 additions and 6 deletions
|
@ -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)
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Add table
Reference in a new issue