Mercurial > hg
comparison contrib/mercurial.el @ 2668:7a32b7e6c563
Emacs: apply "expand-filename" on "default-directory".
"default-directory" may has home directory("~") relative path in some
runtime environment(or emacs revision ?), so expand-filename is
required.
author | FUJIWARA Katsunori <foozy@lares.dti.ne.jp> |
---|---|
date | Sat, 22 Jul 2006 23:35:16 +0900 |
parents | 92ba858ed640 |
children | a5c43944e1ee |
comparison
equal
deleted
inserted
replaced
2667:92ba858ed640 | 2668:7a32b7e6c563 |
---|---|
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 "")) |