diff options
| author | Kevin Ryde | 2009-11-25 22:52:02 +0000 |
|---|---|---|
| committer | Kevin Ryde | 2009-11-25 22:52:02 +0000 |
| commit | 573f4575dc88c9bbf0f9103fec0d8558f45190d2 (patch) | |
| tree | 5123abe9e2358ef459759b9b8f010a758ee6a938 | |
| parent | 002cbde51f9c5f7a9ea39045c272d129c626f8d2 (diff) | |
| download | emacs-573f4575dc88c9bbf0f9103fec0d8558f45190d2.tar.gz emacs-573f4575dc88c9bbf0f9103fec0d8558f45190d2.zip | |
(man): completion-ignore-case t for friendliness and since man
itself is case-insensitive on the command line.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/man.el | 7 |
2 files changed, 11 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7a1d93c286..add90d7c32f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -3,8 +3,10 @@ | |||
| 3 | * man.el (Man-completion-table): default-directory "/" in case | 3 | * man.el (Man-completion-table): default-directory "/" in case |
| 4 | doesn't otherwise exist. process-environment COLUMNS=999 so as | 4 | doesn't otherwise exist. process-environment COLUMNS=999 so as |
| 5 | not to truncate long names. process-connection-type pipe to avoid | 5 | not to truncate long names. process-connection-type pipe to avoid |
| 6 | any chance of hitting the pseudo-tty TIOCGWINSZ. (Further to | 6 | any chance of hitting the pseudo-tty TIOCGWINSZ. |
| 7 | Bug#3717.) | 7 | (man): completion-ignore-case t for friendliness and since man |
| 8 | itself is case-insensitive on the command line. | ||
| 9 | Further to Bug#3717. | ||
| 8 | 10 | ||
| 9 | 2009-11-25 Juri Linkov <juri@jurta.org> | 11 | 2009-11-25 Juri Linkov <juri@jurta.org> |
| 10 | 12 | ||
diff --git a/lisp/man.el b/lisp/man.el index cbec29f1250..050ebed81a0 100644 --- a/lisp/man.el +++ b/lisp/man.el | |||
| @@ -799,6 +799,13 @@ all sections related to a subject, put something appropriate into the | |||
| 799 | `Man-switches' variable, which see." | 799 | `Man-switches' variable, which see." |
| 800 | (interactive | 800 | (interactive |
| 801 | (list (let* ((default-entry (Man-default-man-entry)) | 801 | (list (let* ((default-entry (Man-default-man-entry)) |
| 802 | ;; ignore case because that's friendly for bizarre | ||
| 803 | ;; caps things like the X11 function names and because | ||
| 804 | ;; "man" itself is case-sensitive on the command line | ||
| 805 | ;; so you're accustomed not to bother about the case | ||
| 806 | ;; ("man -k" is case-insensitive similarly, so the | ||
| 807 | ;; table has everything available to complete) | ||
| 808 | (completion-ignore-case t) | ||
| 802 | (input (completing-read | 809 | (input (completing-read |
| 803 | (format "Manual entry%s" | 810 | (format "Manual entry%s" |
| 804 | (if (string= default-entry "") | 811 | (if (string= default-entry "") |