/[emacs]/emacs/lisp/files.el
ViewVC logotype

Diff of /emacs/lisp/files.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.550 by rms, Wed Feb 6 15:29:29 2002 UTC revision 1.551 by rms, Sun Mar 3 21:57:59 2002 UTC
# Line 3342  See also `auto-save-file-name-p'." Line 3342  See also `auto-save-file-name-p'."
3342            (setq buffer-name (replace-match replacement t t buffer-name))            (setq buffer-name (replace-match replacement t t buffer-name))
3343            (setq limit (1+ (match-end 0)))))            (setq limit (1+ (match-end 0)))))
3344        ;; Generate the file name.        ;; Generate the file name.
3345        (expand-file-name        (make-temp-file
3346         (format "#%s#%s#" buffer-name (make-temp-name ""))         (expand-file-name
3347         ;; Try a few alternative directories, to get one we can write it.          (format "#%s#" buffer-name)
3348         (cond          ;; Try a few alternative directories, to get one we can write it.
3349          ((file-writable-p default-directory) default-directory)          (cond
3350          ((file-writable-p "/var/tmp/") "/var/tmp/")           ((file-writable-p default-directory) default-directory)
3351          ("~/"))))))           ((file-writable-p "/var/tmp/") "/var/tmp/")
3352             ("~/")))))))
3353    
3354  (defun auto-save-file-name-p (filename)  (defun auto-save-file-name-p (filename)
3355    "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.    "Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.

Legend:
Removed from v.1.550  
changed lines
  Added in v.1.551

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26