Mercurial > hg > xemacs-beta

comparison lisp/win32-native.el @ 464:5aa1854ad537 r21-2-47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-47
author cvs
date Mon, 13 Aug 2007 11:45:51 +0200
parents abe6d1db359e
children 38db05db9cb5
comparison
equal deleted inserted replaced
463:a158004111cd 464:5aa1854ad537
58 (setq grep-null-device "NUL") 58 (setq grep-null-device "NUL")
59 59
60 ;; Set the grep regexp to match entries with drive letters. 60 ;; Set the grep regexp to match entries with drive letters.
61 (setq grep-regexp-alist 61 (setq grep-regexp-alist
62 '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3))) 62 '(("^\\(\\([a-zA-Z]:\\)?[^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 3)))
63
64 ;;----------------------------------------------------------------------
65 ;; Autosave hack
66 ;;--------------------
67
68 ;; Avoid creating auto-save file names containing invalid characters
69 ;; (primarily "*", eg. for the *mail* buffer).
70 ;; Avoid "doc lost for function" warning
71 (defun original-make-auto-save-file-name (&optional junk)
72 "You do not want to call this."
73 )
74 (fset 'original-make-auto-save-file-name
75 (symbol-function 'make-auto-save-file-name))
76
77 (defun make-auto-save-file-name ()
78 "Return file name to use for auto-saves of current buffer.
79 Does not consider `auto-save-visited-file-name' as that variable is checked
80 before calling this function. You can redefine this for customization.
81 See also `auto-save-file-name-p'."
82 (let ((name (original-make-auto-save-file-name))
83 (start 0))
84 ;; destructively replace occurrences of * or ? with $
85 (while (string-match "[?*]" name start)
86 (aset name (match-beginning 0) ?$)
87 (setq start (1+ (match-end 0))))
88 name))
89 63
90 ;;---------------------------------------------------------------------- 64 ;;----------------------------------------------------------------------
91 ;; Quoting process args 65 ;; Quoting process args
92 ;;-------------------- 66 ;;--------------------
93 67