--- a/contrib/mercurial.el Thu May 18 22:35:41 2006 -0700
+++ b/contrib/mercurial.el Thu May 18 22:43:09 2006 -0700
@@ -382,14 +382,17 @@
(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-config ()
"Return an alist of (key . value) pairs of Mercurial config data.