Mercurial > hg > mercurial-crew-with-dirclash

comparison contrib/mercurial.el @ 2668:7a32b7e6c563

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 ""))