diff options
| author | Chong Yidong | 2010-12-04 19:55:00 -0500 |
|---|---|---|
| committer | Chong Yidong | 2010-12-04 19:55:00 -0500 |
| commit | 637c2c4396accc9734673751fe249c4914804477 (patch) | |
| tree | e7826050faec42850c6f046fbb08f1f9a33442c0 | |
| parent | 74194465d771110242a989e527000cbb896a6af2 (diff) | |
| download | emacs-637c2c4396accc9734673751fe249c4914804477.tar.gz emacs-637c2c4396accc9734673751fe249c4914804477.zip | |
Doc fixes for comint functions (Bug#7499).
* lisp/comint.el (comint-dynamic-list-input-ring)
(comint-dynamic-complete-filename)
(comint-replace-by-expanded-filename)
(comint-dynamic-simple-complete)
(comint-dynamic-list-filename-completions)
(comint-dynamic-list-completions): Doc fix (Bug#7499).
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/comint.el | 37 |
2 files changed, 26 insertions, 18 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7dce76c1c22..3f348399aca 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,12 @@ | |||
| 1 | 2010-12-05 Chong Yidong <cyd@stupidchicken.com> | 1 | 2010-12-05 Chong Yidong <cyd@stupidchicken.com> |
| 2 | 2 | ||
| 3 | * comint.el (comint-dynamic-list-input-ring) | ||
| 4 | (comint-dynamic-complete-filename) | ||
| 5 | (comint-replace-by-expanded-filename) | ||
| 6 | (comint-dynamic-simple-complete) | ||
| 7 | (comint-dynamic-list-filename-completions) | ||
| 8 | (comint-dynamic-list-completions): Doc fix (Bug#7499). | ||
| 9 | |||
| 3 | * subr.el (posn-x-y, posn-object-x-y, posn-object-width-height): | 10 | * subr.el (posn-x-y, posn-object-x-y, posn-object-width-height): |
| 4 | Doc fix (Bug#7471). | 11 | Doc fix (Bug#7471). |
| 5 | 12 | ||
diff --git a/lisp/comint.el b/lisp/comint.el index aa0e1599537..09c444187b4 100644 --- a/lisp/comint.el +++ b/lisp/comint.el | |||
| @@ -1000,7 +1000,7 @@ See also `comint-read-input-ring'." | |||
| 1000 | (choose-completion-string completion buffer))) | 1000 | (choose-completion-string completion buffer))) |
| 1001 | 1001 | ||
| 1002 | (defun comint-dynamic-list-input-ring () | 1002 | (defun comint-dynamic-list-input-ring () |
| 1003 | "List in help buffer the buffer's input history." | 1003 | "Display a list of recent inputs entered into the current buffer." |
| 1004 | (interactive) | 1004 | (interactive) |
| 1005 | (if (or (not (ring-p comint-input-ring)) | 1005 | (if (or (not (ring-p comint-input-ring)) |
| 1006 | (ring-empty-p comint-input-ring)) | 1006 | (ring-empty-p comint-input-ring)) |
| @@ -2996,7 +2996,7 @@ Completes if after a filename. See `comint-match-partial-filename' and | |||
| 2996 | This function is similar to `comint-replace-by-expanded-filename', except that | 2996 | This function is similar to `comint-replace-by-expanded-filename', except that |
| 2997 | it won't change parts of the filename already entered in the buffer; it just | 2997 | it won't change parts of the filename already entered in the buffer; it just |
| 2998 | adds completion characters to the end of the filename. A completions listing | 2998 | adds completion characters to the end of the filename. A completions listing |
| 2999 | may be shown in a help buffer if completion is ambiguous. | 2999 | may be shown in a separate buffer if completion is ambiguous. |
| 3000 | 3000 | ||
| 3001 | Completion is dependent on the value of `comint-completion-addsuffix', | 3001 | Completion is dependent on the value of `comint-completion-addsuffix', |
| 3002 | `comint-completion-recexact' and `comint-completion-fignore', and the timing of | 3002 | `comint-completion-recexact' and `comint-completion-fignore', and the timing of |
| @@ -3083,11 +3083,11 @@ See `comint-dynamic-complete-filename'. Returns t if successful." | |||
| 3083 | 3083 | ||
| 3084 | (defun comint-replace-by-expanded-filename () | 3084 | (defun comint-replace-by-expanded-filename () |
| 3085 | "Dynamically expand and complete the filename at point. | 3085 | "Dynamically expand and complete the filename at point. |
| 3086 | Replace the filename with an expanded, canonicalized and completed replacement. | 3086 | Replace the filename with an expanded, canonicalized and |
| 3087 | \"Expanded\" means environment variables (e.g., $HOME) and `~'s are replaced | 3087 | completed replacement, i.e. substituting environment |
| 3088 | with the corresponding directories. \"Canonicalized\" means `..' and `.' are | 3088 | variables (e.g. $HOME), `~'s, `..', and `.', and making the |
| 3089 | removed, and the filename is made absolute instead of relative. For expansion | 3089 | filename absolute. For expansion see `expand-file-name' and |
| 3090 | see `expand-file-name' and `substitute-in-file-name'. For completion see | 3090 | `substitute-in-file-name'. For completion see |
| 3091 | `comint-dynamic-complete-filename'." | 3091 | `comint-dynamic-complete-filename'." |
| 3092 | (interactive) | 3092 | (interactive) |
| 3093 | (let ((filename (comint-match-partial-filename))) | 3093 | (let ((filename (comint-match-partial-filename))) |
| @@ -3098,15 +3098,16 @@ see `expand-file-name' and `substitute-in-file-name'. For completion see | |||
| 3098 | 3098 | ||
| 3099 | (defun comint-dynamic-simple-complete (stub candidates) | 3099 | (defun comint-dynamic-simple-complete (stub candidates) |
| 3100 | "Dynamically complete STUB from CANDIDATES list. | 3100 | "Dynamically complete STUB from CANDIDATES list. |
| 3101 | This function inserts completion characters at point by completing STUB from | 3101 | This function inserts completion characters at point by |
| 3102 | the strings in CANDIDATES. A completions listing may be shown in a help buffer | 3102 | completing STUB from the strings in CANDIDATES. If completion is |
| 3103 | if completion is ambiguous. | 3103 | ambiguous, possibly show a completions listing in a separate |
| 3104 | buffer. | ||
| 3104 | 3105 | ||
| 3105 | Returns nil if no completion was inserted. | 3106 | Return nil if no completion was inserted. |
| 3106 | Returns `sole' if completed with the only completion match. | 3107 | Return `sole' if completed with the only completion match. |
| 3107 | Returns `shortest' if completed with the shortest of the completion matches. | 3108 | Return `shortest' if completed with the shortest match. |
| 3108 | Returns `partial' if completed as far as possible with the completion matches. | 3109 | Return `partial' if completed as far as possible. |
| 3109 | Returns `listed' if a completion listing was shown. | 3110 | Return `listed' if a completion listing was shown. |
| 3110 | 3111 | ||
| 3111 | See also `comint-dynamic-complete-filename'." | 3112 | See also `comint-dynamic-complete-filename'." |
| 3112 | (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin))) | 3113 | (let* ((completion-ignore-case (memq system-type '(ms-dos windows-nt cygwin))) |
| @@ -3154,7 +3155,7 @@ See also `comint-dynamic-complete-filename'." | |||
| 3154 | 3155 | ||
| 3155 | 3156 | ||
| 3156 | (defun comint-dynamic-list-filename-completions () | 3157 | (defun comint-dynamic-list-filename-completions () |
| 3157 | "List in help buffer possible completions of the filename at point." | 3158 | "Display a list of possible completions for the filename at point." |
| 3158 | (interactive) | 3159 | (interactive) |
| 3159 | (let* ((completion-ignore-case read-file-name-completion-ignore-case) | 3160 | (let* ((completion-ignore-case read-file-name-completion-ignore-case) |
| 3160 | ;; If we bind this, it breaks remote directory tracking in rlogin.el. | 3161 | ;; If we bind this, it breaks remote directory tracking in rlogin.el. |
| @@ -3183,9 +3184,9 @@ See also `comint-dynamic-complete-filename'." | |||
| 3183 | (defvar comint-dynamic-list-completions-config nil) | 3184 | (defvar comint-dynamic-list-completions-config nil) |
| 3184 | 3185 | ||
| 3185 | (defun comint-dynamic-list-completions (completions &optional common-substring) | 3186 | (defun comint-dynamic-list-completions (completions &optional common-substring) |
| 3186 | "List in help buffer sorted COMPLETIONS. | 3187 | "Display a list of sorted COMPLETIONS. |
| 3187 | The meaning of COMMON-SUBSTRING is the same as in `display-completion-list'. | 3188 | The meaning of COMMON-SUBSTRING is the same as in `display-completion-list'. |
| 3188 | Typing SPC flushes the help buffer." | 3189 | Typing SPC flushes the completions buffer." |
| 3189 | (let ((window (get-buffer-window "*Completions*" 0))) | 3190 | (let ((window (get-buffer-window "*Completions*" 0))) |
| 3190 | (setq completions (sort completions 'string-lessp)) | 3191 | (setq completions (sort completions 'string-lessp)) |
| 3191 | (if (and (eq last-command this-command) | 3192 | (if (and (eq last-command this-command) |