diff options
| author | Glenn Morris | 2010-12-13 20:35:33 -0800 |
|---|---|---|
| committer | Glenn Morris | 2010-12-13 20:35:33 -0800 |
| commit | aae4b48c36b85f4af4fceaeb9091cf567065649e (patch) | |
| tree | 7f83925613d47fa2af2edaa45222f43072a088ba | |
| parent | bff7c1adc372497c323aaafc281a26e1e3fc46c2 (diff) | |
| download | emacs-aae4b48c36b85f4af4fceaeb9091cf567065649e.tar.gz emacs-aae4b48c36b85f4af4fceaeb9091cf567065649e.zip | |
Remove some dired.el autoload cookies on defcustoms.
* lisp/dired.el (dired-trivial-filenames, dired-chown-program)
(dired-auto-revert-buffer): Remove autoload cookies.
* lisp/mail/sendmail.el (mail-recover-1): Require 'dired.
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/dired.el | 3 | ||||
| -rw-r--r-- | lisp/mail/sendmail.el | 3 |
3 files changed, 7 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 60e1cab148d..19cd1963cff 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,9 @@ | |||
| 1 | 2010-12-14 Glenn Morris <rgm@gnu.org> | 1 | 2010-12-14 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * dired.el (dired-trivial-filenames, dired-chown-program) | ||
| 4 | (dired-auto-revert-buffer): Remove autoload cookies. | ||
| 5 | * mail/sendmail.el (mail-recover-1): Require 'dired. | ||
| 6 | |||
| 3 | * dired.el (dired-subdir-switches, dired-chown-program) | 7 | * dired.el (dired-subdir-switches, dired-chown-program) |
| 4 | (dired-use-ls-dired, dired-chmod-program, dired-touch-program): | 8 | (dired-use-ls-dired, dired-chmod-program, dired-touch-program): |
| 5 | Make into defcustoms. | 9 | Make into defcustoms. |
diff --git a/lisp/dired.el b/lisp/dired.el index bf45c508456..cec4ffa2f1c 100644 --- a/lisp/dired.el +++ b/lisp/dired.el | |||
| @@ -69,7 +69,6 @@ If nil, `dired-listing-switches' is used." | |||
| 69 | :type '(choice (const :tag "Use dired-listing-switches" nil) | 69 | :type '(choice (const :tag "Use dired-listing-switches" nil) |
| 70 | (string :tag "Switches"))) | 70 | (string :tag "Switches"))) |
| 71 | 71 | ||
| 72 | ;;;###autoload | ||
| 73 | (defcustom dired-chown-program | 72 | (defcustom dired-chown-program |
| 74 | (purecopy (cond ((executable-find "chown") "chown") | 73 | (purecopy (cond ((executable-find "chown") "chown") |
| 75 | ((file-executable-p "/usr/sbin/chown") "/usr/sbin/chown") | 74 | ((file-executable-p "/usr/sbin/chown") "/usr/sbin/chown") |
| @@ -115,7 +114,6 @@ always set this variable to t." | |||
| 115 | :type 'boolean | 114 | :type 'boolean |
| 116 | :group 'dired-mark) | 115 | :group 'dired-mark) |
| 117 | 116 | ||
| 118 | ;;;###autoload | ||
| 119 | (defcustom dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#") | 117 | (defcustom dired-trivial-filenames (purecopy "^\\.\\.?$\\|^#") |
| 120 | "Regexp of files to skip when finding first file of a directory. | 118 | "Regexp of files to skip when finding first file of a directory. |
| 121 | A value of nil means move to the subdir line. | 119 | A value of nil means move to the subdir line. |
| @@ -763,7 +761,6 @@ for a remote directory. This feature is used by Auto Revert Mode." | |||
| 763 | buffer-read-only | 761 | buffer-read-only |
| 764 | (dired-directory-changed-p dirname)))) | 762 | (dired-directory-changed-p dirname)))) |
| 765 | 763 | ||
| 766 | ;;;###autoload | ||
| 767 | (defcustom dired-auto-revert-buffer nil | 764 | (defcustom dired-auto-revert-buffer nil |
| 768 | "Automatically revert dired buffer on revisiting. | 765 | "Automatically revert dired buffer on revisiting. |
| 769 | If t, revisiting an existing dired buffer automatically reverts it. | 766 | If t, revisiting an existing dired buffer automatically reverts it. |
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el index 7a9ab601bcc..fb193544533 100644 --- a/lisp/mail/sendmail.el +++ b/lisp/mail/sendmail.el | |||
| @@ -1817,6 +1817,9 @@ The seventh argument ACTIONS is a list of actions to take | |||
| 1817 | ;; names are normally ``trivial'', so Dired will set point after | 1817 | ;; names are normally ``trivial'', so Dired will set point after |
| 1818 | ;; all the files, at buffer bottom. We want it on the first | 1818 | ;; all the files, at buffer bottom. We want it on the first |
| 1819 | ;; file instead. | 1819 | ;; file instead. |
| 1820 | ;; Require dired so that dired-trivial-filenames does not get | ||
| 1821 | ;; unbound on exit from the let. | ||
| 1822 | (require 'dired) | ||
| 1820 | (let ((dired-trivial-filenames t)) | 1823 | (let ((dired-trivial-filenames t)) |
| 1821 | (dired-other-window wildcard (concat dired-listing-switches "t"))) | 1824 | (dired-other-window wildcard (concat dired-listing-switches "t"))) |
| 1822 | (rename-buffer "*Auto-saved Drafts*" t) | 1825 | (rename-buffer "*Auto-saved Drafts*" t) |