Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 400:a86b2b5e0111 r21-2-30

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-30
author cvs
date Mon, 13 Aug 2007 11:14:34 +0200
parents 74fd4e045ea6
children 2f8bb876ab1d
comparison
equal deleted inserted replaced
399:376370fb5946 400:a86b2b5e0111
1829 (read-file-name "Write file: " 1829 (read-file-name "Write file: "
1830 (cdr (assq 'default-directory 1830 (cdr (assq 'default-directory
1831 (buffer-local-variables))) 1831 (buffer-local-variables)))
1832 nil nil (buffer-name))) 1832 nil nil (buffer-name)))
1833 t 1833 t
1834 (if (and current-prefix-arg (featurep 'mule)) 1834 (if (and current-prefix-arg (featurep 'file-coding))
1835 (read-coding-system "Coding system: ")))) 1835 (read-coding-system "Coding system: "))))
1836 (and (eq (current-buffer) mouse-grabbed-buffer) 1836 (and (eq (current-buffer) mouse-grabbed-buffer)
1837 (error "Can't write minibuffer window")) 1837 (error "Can't write minibuffer window"))
1838 (or (null filename) (string-equal filename "") 1838 (or (null filename) (string-equal filename "")
1839 (progn 1839 (progn