Commit 002cbde5 authored by Kevin Ryde's avatar Kevin Ryde
Browse files

* man.el (Man-completion-table): default-directory "/" in case

doesn't otherwise exist.  process-environment COLUMNS=999 so as
not to truncate long names.  process-connection-type pipe to avoid
any chance of hitting the pseudo-tty TIOCGWINSZ.  (Further to
Bug#3717.)
parent 1e2d9ba1
2009-11-25 Kevin Ryde <user42@zip.com.au>
* man.el (Man-completion-table): default-directory "/" in case
doesn't otherwise exist. process-environment COLUMNS=999 so as
not to truncate long names. process-connection-type pipe to avoid
any chance of hitting the pseudo-tty TIOCGWINSZ. (Further to
Bug#3717.)
2009-11-25 Juri Linkov <juri@jurta.org>
* man.el (Man-completion-table): Modify regexp to include
......
......@@ -761,14 +761,18 @@ POS defaults to `point'."
(unless (and Man-completion-cache
(string-prefix-p (car Man-completion-cache) string))
(with-temp-buffer
(setq default-directory "/") ;; in case inherited doesn't exist
;; Actually for my `man' the arg is a regexp. Don't know how
;; standard that is. Also, it's not clear what kind of
;; regexp are accepted: under GNU/Linux it seems it's ERE-style,
;; whereas under MacOSX it seems to be BRE-style and
;; doesn't accept backslashes at all. Let's not bother to
;; quote anything.
(let ((process-connection-type nil) ;; pipe
(process-environment (copy-sequence process-environment)))
(setenv "COLUMNS" "999") ;; don't truncate long names
(call-process manual-program nil '(t nil) nil
"-k" (concat "^" string))
"-k" (concat "^" string)))
(goto-char (point-min))
(while (re-search-forward "^[^ \t\n]+\\(?: (.+?)\\)?" nil t)
(push (match-string 0) table)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment