Mercurial > hg > mercurial-crew-with-dirclash
diff contrib/mercurial.el @ 2317:6d0a9de9a8ac
merge emacs patches.
author | Vadim Gelfer <vadim.gelfer@gmail.com> |
---|---|
date | Thu, 18 May 2006 22:46:27 -0700 |
parents | 3d58376a7103 c4a2d8502cc0 |
children | d1a7c8a5b835 74518478d2bf ff83112332f9 |
line wrap: on
line diff
--- a/contrib/mercurial.el +++ b/contrib/mercurial.el @@ -382,14 +382,17 @@ Handle frickin' frackin' gratuitous even (set-buffer hg-prev-buffer)) (let ((path (or default (buffer-file-name)))) (if (or (not path) current-prefix-arg) - (expand-file-name - (read-file-name (format "File, directory or pattern%s: " - (or prompt "")) - (and path (file-name-directory path)) - nil nil - (and path (file-name-nondirectory path)) - 'hg-file-history)) - path)))) + (expand-file-name + (eval (list* 'read-file-name + (format "File, directory or pattern%s: " + (or prompt "")) + (and path (file-name-directory path)) + nil nil + (and path (file-name-nondirectory path)) + (if hg-running-xemacs + (cons (quote 'hg-file-history) nil) + nil)))) + path)))) (defun hg-read-number (&optional prompt default) "Read a integer value."