mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-13 03:06:23 -08:00
Code Issues Projects Releases Wiki Activity

(artist-replace-chars, artist-replace-char):

Browse source 
Check that emacs-major-version is `=' to 20, not `>='.
(artist-replace-chars): Use `make-string' instead of a loop.
This commit is contained in:
Miles Bader 2000-12-18 01:18:43 +00:00
parent dd97db0618
commit 5a04700221
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2000-12-18 Miles Bader <miles@gnu.org>
* textmodes/artist.el (artist-replace-chars, artist-replace-char):
Check that emacs-major-version is `=' to 20, not `>='.
(artist-replace-chars): Use `make-string' instead of a loop.
2000-12-16 Eli Zaretskii <eliz@is.elta.co.il>
* textmodes/ispell.el (check-ispell-version): If

9
lisp/textmodes/artist.el
View file

@ -1899,7 +1899,7 @@ Also updates the variables `artist-draw-min-y' and `artist-draw-max-y'."
(defun artist-replace-char (new-char)
"Replace the character at point with NEW-CHAR."
;; Check that the variable exists first. The doc says it was added in 19.23.
(if (and (and (boundp 'emacs-major-version) (>= emacs-major-version 20))
(if (and (and (boundp 'emacs-major-version) (= emacs-major-version 20))
(and (boundp 'emacs-minor-version) (<= emacs-minor-version 3)))
;; This is a bug workaround for Emacs 20, versions up to 20.3:
;; The self-insert-command doesn't care about the overwrite-mode,
@ -1920,17 +1920,14 @@ Also updates the variables `artist-draw-min-y' and `artist-draw-max-y'."
(defun artist-replace-chars (new-char count)
"Replace characters at point with NEW-CHAR. COUNT chars are replaced."
;; Check that the variable exists first. The doc says it was added in 19.23.
(if (and (and (boundp 'emacs-major-version) (>= emacs-major-version 20))
(if (and (and (boundp 'emacs-major-version) (= emacs-major-version 20))
(and (boundp 'emacs-minor-version) (<= emacs-minor-version 3)))
;; This is a bug workaround for Emacs 20, versions up to 20.3:
;; The self-insert-command doesn't care about the overwrite-mode,
;; so the insertion is done in the same way as in picture mode.
;; This seems to be a little bit slower.
(let* ((replaced-c (aref artist-replacement-table new-char))
(replaced-s (let ((tmp-s "") (i count))
(while (> i 0)
(setq i (1- i))
(setq tmp-s (concat tmp-s replaced-c))))))
(replaced-s (make-string count replaced-c)))
(artist-move-to-xy (+ (artist-current-column) count)
(artist-current-line))
(delete-char (- count))