equal
deleted
inserted
replaced
378 (defun hg-read-file-name (&optional prompt default) |
378 (defun hg-read-file-name (&optional prompt default) |
379 "Read a file or directory name, or a pattern, to use with a command." |
379 "Read a file or directory name, or a pattern, to use with a command." |
380 (save-excursion |
380 (save-excursion |
381 (while hg-prev-buffer |
381 (while hg-prev-buffer |
382 (set-buffer hg-prev-buffer)) |
382 (set-buffer hg-prev-buffer)) |
383 (let ((path (or default (buffer-file-name) default-directory))) |
383 (let ((path (or default |
|
384 (buffer-file-name) |
|
385 (expand-file-name default-directory)))) |
384 (if (or (not path) current-prefix-arg) |
386 (if (or (not path) current-prefix-arg) |
385 (expand-file-name |
387 (expand-file-name |
386 (eval (list* 'read-file-name |
388 (eval (list* 'read-file-name |
387 (format "File, directory or pattern%s: " |
389 (format "File, directory or pattern%s: " |
388 (or prompt "")) |
390 (or prompt "")) |