[Emacs-diffs] /srv/bzr/emacs/trunk r103475: dired-x trivia.

[Glenn Morris]

------------------------------------------------------------
revno: 103475
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2011-03-01 23:44:33 -0800
message:
  dired-x trivia.
  
  * 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.
modified:
  lisp/ChangeLog
  lisp/dired-x.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-02 04:13:57 +0000
+++ b/lisp/ChangeLog    2011-03-02 07:44:33 +0000
@@ -1,5 +1,9 @@
 2011-03-02  Glenn Morris  <address@hidden>
 
+       * 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  <address@hidden>

=== modified file 'lisp/dired-x.el'
--- a/lisp/dired-x.el   2011-03-02 04:13:57 +0000
+++ b/lisp/dired-x.el   2011-03-02 07:44:33 +0000
@@ -436,6 +436,7 @@
                 (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 @@
                       (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))