Mercurial > emacs
comparison lisp/bindings.el @ 18624:ecf30a8391d5
(complete-symbol): Accept an argument.
(debug-ignored-errors): Add ^ to "No tags table loaded".
Make the etags.el strings correspond to latest etags.el.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 05 Jul 1997 00:56:01 +0000 |
| parents | 0ee850381861 |
| children | 46c1ad5f61e0 |
comparison
equal
deleted
inserted
replaced
| 18623:fc78e7f26a64 | 18624:ecf30a8391d5 |
|---|---|
| 195 | 195 |
| 196 ;; man | 196 ;; man |
| 197 "^No manpage [0-9]* found$" | 197 "^No manpage [0-9]* found$" |
| 198 | 198 |
| 199 ;; etags | 199 ;; etags |
| 200 "^No tags table in use! Use .* to select one\\.$" | 200 "^No tags table in use; use .* to select one$" |
| 201 "^There is no default tag$" | 201 "^There is no default tag$" |
| 202 "^No previous tag locations$" | 202 "^No previous tag locations$" |
| 203 "^File .* is not a valid tags table$" | 203 "^File .* is not a valid tags table$" |
| 204 "^No \\(more \\|\\)tags \\(matching\\|containing\\) " | 204 "^No \\(more \\|\\)tags \\(matching\\|containing\\) " |
| 205 "^Rerun etags: `.*' not found in " | 205 "^Rerun etags: `.*' not found in " |
| 206 "^All files processed\\.$" | 206 "^All files processed$" |
| 207 "^No .* or .* in progress.$" | 207 "^No .* or .* in progress$" |
| 208 "^File .* not in current tags tables$" | 208 "^File .* not in current tags tables$" |
| 209 "No tags table loaded." | 209 "^No tags table loaded" |
| 210 "^Nothing to complete$" | 210 "^Nothing to complete$" |
| 211 | 211 |
| 212 ;; BBDB | 212 ;; BBDB |
| 213 "^no previous record$" | 213 "^no previous record$" |
| 214 "^no next record$")) | 214 "^no next record$")) |
| 216 | 216 |
| 217 (make-variable-buffer-local 'indent-tabs-mode) | 217 (make-variable-buffer-local 'indent-tabs-mode) |
| 218 | 218 |
| 219 (define-key esc-map "\t" 'complete-symbol) | 219 (define-key esc-map "\t" 'complete-symbol) |
| 220 | 220 |
| 221 (defun complete-symbol () | 221 (defun complete-symbol (arg) |
| 222 "Perform tags completion on the text around point. | 222 "Perform tags completion on the text around point. |
| 223 Completes to the set of names listed in the current tags table. | 223 Completes to the set of names listed in the current tags table. |
| 224 The string to complete is chosen in the same way as the default | 224 The string to complete is chosen in the same way as the default |
| 225 for \\[find-tag] (which see)." | 225 for \\[find-tag] (which see)." |
| 226 (interactive "P") | 226 (interactive "P") |