mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(query-replace-read-args): Swallow a space after

Browse Source 
everything except )]" which in most cases means after a symbol.
This commit is contained in:
Juri Linkov 2004-06-28 23:03:06 +00:00
parent bf77a4208b
commit da6eb51ce4
1 changed files with 10 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/replace.el
View File

@ -109,23 +109,18 @@ strings or patterns."
((eq char ?\,)
(setq pos (read-from-string to))
(push `(replace-quote ,(car pos)) list)
(let ((end
;; Swallow a space after a symbol
;; if there is a space.
(if (and (or (symbolp (car pos))
;; Swallow a space after 'foo
;; but not after (quote foo).
(and (eq (car-safe (car pos)) 'quote)
(= ?\( (aref to-string 0))))
(equal " " (substring to-string (cdr pos)
(1+ (cdr pos)))))
(1+ (cdr pos))
(cdr pos))))
(setq to (substring to end)))))
(setq to (substring
to (+ (cdr pos)
;; Swallow a space after a symbol
;; if there is a space.
(if (string-match
"^[^])\"] "
(substring to (1- (cdr pos))))
1 0))))))
(string-match "\\(\\`\\|[^\\]\\)\\(\\\\\\\\\\)*\\\\[,#]" to)))
(setq to (nreverse (delete "" (cons to list)))))
(replace-match-string-symbols to)
(setq to (cons 'replace-eval-replacement
(setq to (cons 'replace-eval-replacement
(if (> (length to) 1)
(cons 'concat to)
(car to)))))
@ -1397,7 +1392,7 @@ make, or the user didn't cancel the call."
((eq def 'act-and-exit)
(or replaced
(setq noedit
(replace-match-maybe-edit
(replace-match-maybe-edit
next-replacement nocasify literal
noedit real-match-data)
replace-count (1+ replace-count)))