Show More
@@ -380,7 +380,9 b" Handle frickin' frackin' gratuitous even" | |||||
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 |
General Comments 0
You need to be logged in to leave comments.
Login now