procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix emerge.el on MS-Windows and MS-DOS.

Browse source 
lisp/emerge.el (emerge-metachars): Separate value for ms-dos and
 windows-nt systems.
 (emerge-protect-metachars): Quote correctly for ms-dos and
 windows-nt systems.
This commit is contained in:
Eli Zaretskii 2011-03-19 11:30:56 +02:00
parent 45763476fc
commit 576bce3267
2 changed files with 21 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2011-03-19 Eli Zaretskii <eliz@gnu.org>
* emerge.el (emerge-metachars): Separate value for ms-dos and
windows-nt systems.
(emerge-protect-metachars): Quote correctly for ms-dos and
windows-nt systems.
2011-03-15 Ralph Schleicher <rs@ralph-schleicher.de>
* info.el (info-initialize): Replace all uses of `:' with

23
lisp/emerge.el
View file

@ -3187,21 +3187,26 @@ See also `auto-save-file-name-p'."
;; Metacharacters that have to be protected from the shell when executing
;; a diff/diff3 command.
(defcustom emerge-metachars "[ \t\n!\"#$&'()*;<=>?[\\^`{|~]"
"Characters that must be quoted with \\ when used in a shell command line.
(defcustom emerge-metachars
(if (memq system-type '(ms-dos windows-nt))
"[ \t\"<>|?*^&=]"
"[ \t\n!\"#$&'()*;<=>?[\\^`{|~]")
"Characters that must be quoted when used in a shell command line.
More precisely, a [...] regexp to match any one such character."
:type 'regexp
:group 'emerge)
;; Quote metacharacters (using \) when executing a diff/diff3 command.
(defun emerge-protect-metachars (s)
(let ((limit 0))
(while (string-match emerge-metachars s limit)
(setq s (concat (substring s 0 (match-beginning 0))
"\\"
(substring s (match-beginning 0))))
(setq limit (1+ (match-end 0)))))
s)
(if (memq system-type '(ms-dos windows-nt))
(shell-quote-argument s)
(let ((limit 0))
(while (string-match emerge-metachars s limit)
(setq s (concat (substring s 0 (match-beginning 0))
"\\"
(substring s (match-beginning 0))))
(setq limit (1+ (match-end 0)))))
s))
(provide 'emerge)