Mercurial > hg > xemacs-beta

comparison lisp/auto-save.el @ 440:8de8e3f6228a r21-2-28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-28
author cvs
date Mon, 13 Aug 2007 11:33:38 +0200
parents 3ecd8885ac67
children 5aa1854ad537
comparison
equal deleted inserted replaced
439:357dd071b03c 440:8de8e3f6228a
371 (defun auto-save-name-in-same-directory (filename &optional prefix) 371 (defun auto-save-name-in-same-directory (filename &optional prefix)
372 ;; Enclose the non-directory part of FILENAME in `#' to make an auto 372 ;; Enclose the non-directory part of FILENAME in `#' to make an auto
373 ;; save file in the same directory as FILENAME. But if this 373 ;; save file in the same directory as FILENAME. But if this
374 ;; directory is not writable, use auto-save-directory-fallback. 374 ;; directory is not writable, use auto-save-directory-fallback.
375 ;; FILENAME is assumed to be in non-directory form (no trailing slash). 375 ;; FILENAME is assumed to be in non-directory form (no trailing slash).
376 ;; It may be a name without a directory part (pesumably it really 376 ;; It may be a name without a directory part (presumably it really
377 ;; comes from a buffer name then), the fallback is used then. 377 ;; comes from a buffer name then), the fallback is used then.
378 ;; Optional PREFIX is string to use instead of "#" to prefix name. 378 ;; Optional PREFIX is string to use instead of "#" to prefix name.
379 (let ((directory (file-name-directory filename))) 379 (let ((directory (file-name-directory filename)))
380 (or (null directory) 380 (or (null directory)
381 (file-writable-p directory) 381 (file-writable-p directory)