Mercurial > hg > xemacs-beta

comparison lisp/efs/default-dir.el @ 100:4be1180a9e89 r20-1b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b2
author cvs
date Mon, 13 Aug 2007 09:15:11 +0200
parents 0d2f883870bc
children 8619ce7e4c50
comparison
equal deleted inserted replaced
99:2d83cbd90d8d 100:4be1180a9e89
1 ;; -*-Emacs-Lisp-*- 1 ;; -*-Emacs-Lisp-*-
2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 2 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;; 3 ;;
4 ;; File: default-dir.el 4 ;; File: default-dir.el
5 ;; RCS: 5 ;; RCS:
6 ;; Version: $Revision: 1.2 $ 6 ;; Version: $Revision: 1.3 $
7 ;; Description: Defines the function default-directory, for fancy handling 7 ;; Description: Defines the function default-directory, for fancy handling
8 ;; of the initial contents in the minibuffer when reading 8 ;; of the initial contents in the minibuffer when reading
9 ;; file names. 9 ;; file names.
10 ;; Authors: Sebastian Kremer <sk@thp.uni-koeln.de> 10 ;; Authors: Sebastian Kremer <sk@thp.uni-koeln.de>
11 ;; Sandy Rutherford <sandy@ibm550.sissa.it> 11 ;; Sandy Rutherford <sandy@ibm550.sissa.it>
220 (read-file-name "Load file: " (default-directory) nil t)))) 220 (read-file-name "Load file: " (default-directory) nil t))))
221 (default-dir-real-load-file file)) 221 (default-dir-real-load-file file))
222 222
223 (efs-overwrite-fn "default-dir" 'load-file 'default-dir-load-file) 223 (efs-overwrite-fn "default-dir" 'load-file 'default-dir-load-file)
224 224
225 (require 'view) 225 (condition-case nil
226 (require 'view-less)
227 (error (require 'view)))
226 228
227 (defun default-dir-view-file (file) 229 (defun default-dir-view-file (file)
228 "Documented as original" 230 "Documented as original"
229 (interactive 231 (interactive
230 (list 232 (list