Mercurial > hg > xemacs-beta

comparison lisp/files.el @ 361:7347b34c275b r21-1-10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-10
author cvs
date Mon, 13 Aug 2007 10:58:40 +0200
parents 8e84bee8ddd0
children 972bbb6d6ca2
comparison
equal deleted inserted replaced
360:0f00b38cfccb 361:7347b34c275b
1819 (read-file-name "Write file: " 1819 (read-file-name "Write file: "
1820 (cdr (assq 'default-directory 1820 (cdr (assq 'default-directory
1821 (buffer-local-variables))) 1821 (buffer-local-variables)))
1822 nil nil (buffer-name))) 1822 nil nil (buffer-name)))
1823 t 1823 t
1824 (if (and current-prefix-arg (featurep 'mule)) 1824 (if (and current-prefix-arg (featurep 'file-coding))
1825 (read-coding-system "Coding system: ")))) 1825 (read-coding-system "Coding system: "))))
1826 (and (eq (current-buffer) mouse-grabbed-buffer) 1826 (and (eq (current-buffer) mouse-grabbed-buffer)
1827 (error "Can't write minibuffer window")) 1827 (error "Can't write minibuffer window"))
1828 (or (null filename) (string-equal filename "") 1828 (or (null filename) (string-equal filename "")
1829 (progn 1829 (progn