From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 18 Dec 2001 19:37:37 +0000 (+0000)
Subject: (auto-insert-alist): Redo finding C and C++ headers.
X-Git-Tag: ttn-vms-21-2-B4~17614
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f6ec15321530f9fe630c35067587933ffbd8a6cf;p=emacs.git

(auto-insert-alist): Redo finding C and C++ headers.
Add a DESCRIPTION for the makefile item.
---

diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el
index ae6e9863097..5ed3db56796 100644
--- a/lisp/autoinsert.el
+++ b/lisp/autoinsert.el
@@ -103,13 +103,14 @@ If this contains a %s, that will be replaced by the matching rule."
     (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")
      nil
      "#include \""
-     ;; nop without latest cc-mode
-     (and (fboundp 'c-companion-file)
-	  ;(file-readable-p (c-companion-file 'name))
-	  (file-name-nondirectory (c-companion-file 'name))) & ?\"
-     | -10)
-
-    ("[Mm]akefile\\'" . "makefile.inc")
+     (let ((stem (file-name-sans-extension buffer-file-name)))
+       (cond ((file-exists-p (concat stem ".h"))
+	      (file-name-nondirectory (concat stem ".h")))
+	     ((file-exists-p (concat stem ".hh"))
+	      (file-name-nondirectory (concat stem ".hh")))))
+     & ?\" | -10)
+
+    (("[Mm]akefile\\'" . "Makefile") . "makefile.inc")
 
     (html-mode . (lambda () (sgml-tag "html")))