mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-07 08:00:48 -08:00
Code Issues Projects Releases Wiki Activity

dired-x trivia.

Browse source 
* lisp/dired-x.el (dired-jump-other-window): Add autoload.
(dired-default-directory-alist, dired-default-directory): Doc fixes.
(dired-default-directory-alist): Mark as risky.
This commit is contained in:
Glenn Morris 2011-03-01 23:44:33 -08:00
parent 257219bd2e
commit 5dedeef28d
2 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2011-03-02 Glenn Morris <rgm@gnu.org>
* dired-x.el (dired-jump-other-window): Add autoload.
(dired-default-directory-alist, dired-default-directory): Doc fixes.
(dired-default-directory-alist): Mark as risky.
* dired-x.el (dired-omit-here-always): Make it obsolete.
2011-03-02 Chong Yidong <cyd@stupidchicken.com>

12
lisp/dired-x.el
View file

@ -436,6 +436,7 @@ move to its line in dired."
(dired-omit-mode)
(dired-goto-file file)))))))
;;;###autoload
(defun dired-jump-other-window (&optional file-name)
"Like \\[dired-jump] (`dired-jump') but in other window."
(interactive
@ -704,12 +705,15 @@ Also useful for `auto-mode-alist' like this:
(dired-current-directory)
default-directory)))
"Alist of major modes and their opinion on `default-directory'.
This is given as a Lisp expression to evaluate. A resulting value of
nil is ignored in favor of `default-directory'.")
Each element has the form (MAJOR . EXPRESSION).
The function `dired-default-directory' evaluates EXPRESSION to
determine a default directory.")
(put 'dired-default-directory-alist 'risky-local-variable t) ; gets eval'd
(defun dired-default-directory ()
"Usage like variable `default-directory'.
Knows about the special cases in variable `dired-default-directory-alist'."
"Return the `dired-default-directory-alist' entry for the current major-mode.
If none, return `default-directory'."
(or (eval (cdr (assq major-mode dired-default-directory-alist)))
default-directory))