diff options
| -rw-r--r-- | lisp/diary-lib.el | 11 | ||||
| -rw-r--r-- | lisp/find-dired.el | 19 |
2 files changed, 5 insertions, 25 deletions
diff --git a/lisp/diary-lib.el b/lisp/diary-lib.el index a77be71cdf0..2579ecc264d 100644 --- a/lisp/diary-lib.el +++ b/lisp/diary-lib.el @@ -114,15 +114,14 @@ syntax of `*' changed to be a word constituent.") (defun list-diary-entries (date number) "Create and display a buffer containing the relevant lines in diary-file. -All lines that apply to DATE and the next NUMBER-1 days are included. - -Makes all diary entries in the diary file invisible (using selective display), -*except* those that are relevant. +The arguments are DATE and NUMBER; the entries selected are those +for NUMBER days starting with date DATE. The other entries are hidden +using selective display. Returns a list of all relevant diary entries found, if any, in order by date. The list entries have the form ((month day year) string). If the variable -`diary-list-include-blanks' is t, this list will include a dummy diary entry -(consisting of the empty string) for a date with no diary entries. +`diary-list-include-blanks' is t, this list includes a dummy diary entry +\(consisting of the empty string) for a date with no diary entries. After the list is prepared, the hooks `nongregorian-diary-listing-hook', `list-diary-entries-hook', and `diary-display-hook' are run. These hooks diff --git a/lisp/find-dired.el b/lisp/find-dired.el index 520a5dbc944..fc1165e2d47 100644 --- a/lisp/find-dired.el +++ b/lisp/find-dired.el @@ -182,25 +182,6 @@ Thus ARG can also contain additional grep options." (setq mode-line-process nil) (message "find-dired %s finished." (current-buffer)))))) -(or (fboundp 'start-process-shell-command) - ;; From version 19 subr.el. - (defun start-process-shell-command (name buffer &rest args) - "Start a program in a subprocess. Return the process object for it. -Args are NAME BUFFER COMMAND &rest COMMAND-ARGS. -NAME is name for process. It is modified if necessary to make it unique. -BUFFER is the buffer or (buffer-name) to associate with the process. - Process output goes at end of that buffer, unless you specify - an output stream or filter function to handle the output. - BUFFER may be also nil, meaning that this process is not associated - with any buffer -Third arg is command name, the name of a shell command. -Remaining arguments are the arguments for the command. -Wildcards and redirection are handle as usual in the shell." - (if (eq system-type 'vax-vms) - (apply 'start-process name buffer args) - (start-process name buffer shell-file-name "-c" - (concat "exec " (mapconcat 'identity args " ")))))) - (provide 'find-dired) ;;; find-dired.el ends here |