Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

(original-make-auto-save-file-name): New symbol bound

Browse source 
to old value of make-auto-save-file-name.
(make-auto-save-file-name): New function overriding old.
This commit is contained in:
Geoff Voelker 1996-05-03 18:25:59 +00:00
parent 6c89f572f2
commit 4e0cd0df0d
1 changed files with 18 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
lisp/w32-fns.el
View file

@ -154,6 +154,24 @@ against the file name, and TYPE is nil for text, t for binary.")
(remove-hook 'write-file-hooks 'save-to-unix-hook)
(remove-hook 'after-save-hook 'revert-from-unix-hook))))
;;; Avoid creating auto-save file names containing illegal characters
;;; (primarily "*", eg. for the *mail* buffer).
(fset 'original-make-auto-save-file-name
(symbol-function 'make-auto-save-file-name))
(defun make-auto-save-file-name ()
"Return file name to use for auto-saves of current buffer.
Does not consider `auto-save-visited-file-name' as that variable is checked
before calling this function. You can redefine this for customization.
See also `auto-save-file-name-p'."
(let ((name (original-make-auto-save-file-name))
(start 0))
;; destructively replace occurences of * or ? with $
(while (string-match "[?*]" name start)
(aset name (match-beginning 0) ?$)
(setq start (1+ (match-end 0))))
name))
;;; Fix interface to (X-specific) mouse.el
(defalias 'x-set-selection 'ignore)
(fset 'x-get-selection '(lambda (&rest rest) ""))