Mercurial > hg > xemacs-beta

comparison lisp/winnt.el @ 380:8626e4521993 r21-2-5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-5
author cvs
date Mon, 13 Aug 2007 11:07:10 +0200
parents cc15677e0335
children 74fd4e045ea6
comparison
equal deleted inserted replaced
379:76b7d63099ad 380:8626e4521993
74 Does not consider `auto-save-visited-file-name' as that variable is checked 74 Does not consider `auto-save-visited-file-name' as that variable is checked
75 before calling this function. You can redefine this for customization. 75 before calling this function. You can redefine this for customization.
76 See also `auto-save-file-name-p'." 76 See also `auto-save-file-name-p'."
77 (let ((name (original-make-auto-save-file-name)) 77 (let ((name (original-make-auto-save-file-name))
78 (start 0)) 78 (start 0))
79 ;; destructively replace occurences of * or ? with $ 79 ;; destructively replace occurrences of * or ? with $
80 (while (string-match "[?*]" name start) 80 (while (string-match "[?*]" name start)
81 (aset name (match-beginning 0) ?$) 81 (aset name (match-beginning 0) ?$)
82 (setq start (1+ (match-end 0)))) 82 (setq start (1+ (match-end 0))))
83 name)) 83 name))
84 84
86 ;; Quoting process args 86 ;; Quoting process args
87 ;;-------------------- 87 ;;--------------------
88 88
89 (defun nt-quote-args-verbatim (args) 89 (defun nt-quote-args-verbatim (args)
90 "Copy ARG list verbatim, separating each arg with space." 90 "Copy ARG list verbatim, separating each arg with space."
91 (mapconcat 'identity args " ")) 91 (mapconcat #'identity args " "))
92 92
93 (defun nt-quote-args-prefix-quote (prefix args) 93 (defun nt-quote-args-prefix-quote (prefix args)
94 (mapconcat (lambda (str) 94 (mapconcat (lambda (str)
95 (concat "\"" 95 (concat "\""
96 (mapconcat (lambda (ch) 96 (mapconcat (lambda (ch)