[PATCH] Add support for C++ headers to `ffap'.

["Rüdiger Sonderfeld" <ruediger@c-plusplus.de>]

It should have been `eq' to handle `ignore-errors' returning nil in
case of error.

Regards,
Rüdiger

----- 8< ------------------------------- >8 -------------

Using only `ffap-c-mode' does not work for C++ headers from
libstdc++.  Those headers are usually stored in
"/usr/include/c++/<version>/".

* lisp/ffap.el (ffap-c++-path): New variable.
(ffap-c++-mode): New function.
(ffap-alist): Use `ffap-c++-mode' for `c++-mode'.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
---
 lisp/ffap.el | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/lisp/ffap.el b/lisp/ffap.el
index 737de8b..d11c79c 100644
--- a/lisp/ffap.el
+++ b/lisp/ffap.el
@@ -769,7 +769,7 @@ (defvar ffap-alist
     ;; (lisp-interaction-mode . ffap-el-mode) ; maybe
     (finder-mode . ffap-el-mode)	; type {C-h p} and try it
     (help-mode . ffap-el-mode)		; maybe useful
-    (c++-mode . ffap-c-mode)		; search ffap-c-path
+    (c++-mode . ffap-c++-mode)		; search ffap-c++-path
     (cc-mode . ffap-c-mode)		; same
     ("\\.\\([chCH]\\|cc\\|hh\\)\\'" . ffap-c-mode) ; stdio.h
     (fortran-mode . ffap-fortran-mode)	; FORTRAN requested by MDB
@@ -866,6 +866,23 @@ (defvar ffap-c-path
 (defun ffap-c-mode (name)
   (ffap-locate-file name t ffap-c-path))
 
+(defvar ffap-c++-path
+  (let ((g++-version (with-temp-buffer
+                       (when (eq 0 (ignore-errors
+                                    (call-process "g++" nil t nil "-v")))
+                         (goto-char (point-min))
+                         (when (re-search-forward "gcc version \
+\\([[:digit:]]+.[[:digit:]]+.[[:digit:]]+\\)"
+                                                  nil 'noerror)
+                           (match-string 1))))))
+    (if g++-version
+        (cons (concat "/usr/include/c++/" g++-version) ffap-c-path)
+      ffap-c-path))
+  "List of directories to search for include files.")
+
+(defun ffap-c++-mode (name)
+  (ffap-locate-file name t ffap-c++-path))
+
 (defvar ffap-fortran-path '("../include" "/usr/include"))
 
 (defun ffap-fortran-mode (name)
-- 
1.8.4