Mercurial > hg > xemacs-beta
comparison lisp/efs/dired-vir.el @ 48:56c54cf7c5b6 r19-16b90
Import from CVS: tag r19-16b90
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 08:56:04 +0200 |
| parents | 8b8b7f3559a2 |
| children |
comparison
equal
deleted
inserted
replaced
| 47:11c6df210d7f | 48:56c54cf7c5b6 |
|---|---|
| 73 (setq mode-name "Virtual Dired" | 73 (setq mode-name "Virtual Dired" |
| 74 revert-buffer-function 'dired-virtual-revert) | 74 revert-buffer-function 'dired-virtual-revert) |
| 75 (set (make-local-variable 'dired-subdir-alist) nil) | 75 (set (make-local-variable 'dired-subdir-alist) nil) |
| 76 (dired-build-subdir-alist) | 76 (dired-build-subdir-alist) |
| 77 (goto-char (point-min)) | 77 (goto-char (point-min)) |
| 78 (dired-insert-set-properties (point-min) (point-max)) | |
| 78 (dired-initial-position dirname)) | 79 (dired-initial-position dirname)) |
| 79 | 80 |
| 80 (defun dired-virtual-guess-dir () | 81 (defun dired-virtual-guess-dir () |
| 81 | 82 |
| 82 ;; Guess and return appropriate working directory of this buffer, | 83 ;; Guess and return appropriate working directory of this buffer, |