mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

(dabbrev--substitute-expansion):

Browse Source 
Convert all whitespace to single spaces,
except when it's carried over from the existing text.
This commit is contained in:
Richard M. Stallman 2003-01-06 01:19:59 +00:00
parent d77bbdc98d
commit 19c17c4ec5
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/dabbrev.el
View File

@ -926,10 +926,14 @@ to record whether we upcased the expansion, downcased it, or did neither."
(cond ((equal abbrev (upcase abbrev)) 'upcase)
((equal abbrev (downcase abbrev)) 'downcase)))))
;; Convert newlines to spaces.
;; Convert whitespace to single spaces.
(if dabbrev--eliminate-newlines
(while (string-match "\n" expansion)
(setq expansion (replace-match " " nil nil expansion))))
;; Start searching at end of ABBREV so that any whitespace
;; carried over from the existing text is not changed.
(let ((pos (length abbrev)))
(while (string-match "[\n \t]+" expansion pos)
(setq pos (1+ (match-beginning 0)))
(setq expansion (replace-match " " nil nil expansion)))))
(if old
(save-excursion