1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00

(copy-from-above-command): "?\ " -> "?\s".

This commit is contained in:
Juanma Barranquero 2006-11-27 14:00:11 +00:00
parent 15e917e4f3
commit ff26cdfe3b

View File

@ -48,7 +48,7 @@ The characters copied are inserted in the buffer before point."
(if (< cc (current-column))
(if (= (preceding-char) ?\t)
(progn
(setq string (make-string (min n (- (current-column) cc)) ?\ ))
(setq string (make-string (min n (- (current-column) cc)) ?\s))
(setq n (- n (min n (- (current-column) cc)))))
;; In middle of ctl char => copy that whole char.
(backward-char 1)))