Mercurial > hg > xemacs-beta

comparison lisp/efs/dired.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 1856695b1fa9
children 28f395d8dc7a
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
100 If this is nil, the function default-directory will return the value of the 100 If this is nil, the function default-directory will return the value of the
101 variable default-directory. 101 variable default-directory.
102 Buffer local.") 102 Buffer local.")
103 (make-variable-buffer-local 'default-directory-function) 103 (make-variable-buffer-local 'default-directory-function)
104 104
105 ;;;###autoload
105 (defun default-directory () 106 (defun default-directory ()
106 " Returns the default-directory for the current buffer. 107 " Returns the default-directory for the current buffer.
107 Will use the variable default-directory-function if it non-nil." 108 Will use the variable default-directory-function if it non-nil."
108 (if default-directory-function 109 (if default-directory-function
109 (funcall default-directory-function) 110 (funcall default-directory-function)