Mercurial > emacs
comparison lisp/dired-aux.el @ 102201:143111f3fbb1
(minibuffer-default-add-dired-shell-commands): Doc fix.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Sun, 22 Feb 2009 23:37:21 +0000 |
| parents | 2ee2b248bc62 |
| children | 3c2dc56032af |
comparison
equal
deleted
inserted
replaced
| 102200:74dd2284ef3a | 102201:143111f3fbb1 |
|---|---|
| 474 ;;; Shell commands | 474 ;;; Shell commands |
| 475 | 475 |
| 476 (declare-function mailcap-file-default-commands "mailcap" (files)) | 476 (declare-function mailcap-file-default-commands "mailcap" (files)) |
| 477 | 477 |
| 478 (defun minibuffer-default-add-dired-shell-commands () | 478 (defun minibuffer-default-add-dired-shell-commands () |
| 479 "Return a list of all commands associted with current dired files. | 479 "Return a list of all commands associated with current dired files. |
| 480 This function is used to add all related commands retieved by `mailcap' | 480 This function is used to add all related commands retrieved by `mailcap' |
| 481 to the end of the list of defaults just after the default value." | 481 to the end of the list of defaults just after the default value." |
| 482 (interactive) | 482 (interactive) |
| 483 (let ((commands (and (boundp 'files) (require 'mailcap nil t) | 483 (let ((commands (and (boundp 'files) (require 'mailcap nil t) |
| 484 (mailcap-file-default-commands files)))) | 484 (mailcap-file-default-commands files)))) |
| 485 (if (listp minibuffer-default) | 485 (if (listp minibuffer-default) |