Mercurial > hg > xemacs-beta

comparison lisp/winnt.el @ 367:a4f53d9b3154 r21-1-13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-13
author cvs
date Mon, 13 Aug 2007 11:01:07 +0200
parents 972bbb6d6ca2
children cc15677e0335
comparison
equal deleted inserted replaced
366:83d76f480a59 367:a4f53d9b3154
68 Does not consider `auto-save-visited-file-name' as that variable is checked 68 Does not consider `auto-save-visited-file-name' as that variable is checked
69 before calling this function. You can redefine this for customization. 69 before calling this function. You can redefine this for customization.
70 See also `auto-save-file-name-p'." 70 See also `auto-save-file-name-p'."
71 (let ((name (original-make-auto-save-file-name)) 71 (let ((name (original-make-auto-save-file-name))
72 (start 0)) 72 (start 0))
73 ;; destructively replace occurences of * or ? with $ 73 ;; destructively replace occurrences of * or ? with $
74 (while (string-match "[?*]" name start) 74 (while (string-match "[?*]" name start)
75 (aset name (match-beginning 0) ?$) 75 (aset name (match-beginning 0) ?$)
76 (setq start (1+ (match-end 0)))) 76 (setq start (1+ (match-end 0))))
77 name)) 77 name))
78 78