Mercurial > hg > xemacs-beta
comparison lisp/efs/dired-vir.el @ 138:6608ceec7cf8 r20-2b3
Import from CVS: tag r20-2b3
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:31:46 +0200 |
| parents | 9f59509498e1 |
| children |
comparison
equal
deleted
inserted
replaced
| 137:cae984061f40 | 138:6608ceec7cf8 |
|---|---|
| 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, |