From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Thu, 11 Feb 2010 16:00:01 +0000 (-0500)
Subject: (Man-completion-table): Don't signal an error if we can't run
X-Git-Tag: emacs-pretest-23.1.93~72
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c07ff221194a2d27346fb7fa3d4c8a877d3db66d;p=emacs.git

(Man-completion-table): Don't signal an error if we can't run
manual-program (bug#4056).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83800e9cb77..e5ad1f14462 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-02-11  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* man.el (Man-completion-table): Don't signal an error if we can't run
+	manual-program (bug#4056).
+
 2010-02-10  Juanma Barranquero  <lekktu@gmail.com>
 
 	* textmodes/artist.el (artist-mt): Fix typos in docstring.
diff --git a/lisp/man.el b/lisp/man.el
index e729e11b6ca..dd64fbda574 100644
--- a/lisp/man.el
+++ b/lisp/man.el
@@ -771,8 +771,13 @@ POS defaults to `point'."
           ;; quote anything.
           (let ((process-environment (copy-sequence process-environment)))
             (setenv "COLUMNS" "999") ;; don't truncate long names
-            (call-process manual-program nil '(t nil) nil
-                          "-k" (concat "^" prefix)))
+            ;; manual-program might not even exist.  And since it's
+            ;; run differently in Man-getpage-in-background, an error
+            ;; here may not necessarily mean that we'll also get an
+            ;; error later.
+            (ignore-errors
+              (call-process manual-program nil '(t nil) nil
+                            "-k" (concat "^" prefix))))
           (goto-char (point-min))
           (while (re-search-forward "^\\([^ \t\n]+\\)\\(?: ?\\((.+?)\\)\\(?:[ \t]+- \\(.*\\)\\)?\\)?" nil t)
             (push (propertize (concat (match-string 1) (match-string 2))