From e622fcc6451bfc20eb3e0fa749e0a0fb3d033111 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 2 Aug 2002 17:56:49 +0000 Subject: [PATCH] (auto-insert-alist): Redo finding C and C++ headers. --- lisp/autoinsert.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/autoinsert.el b/lisp/autoinsert.el index ae6e9863097..7583512dcfd 100644 --- a/lisp/autoinsert.el +++ b/lisp/autoinsert.el @@ -103,11 +103,12 @@ 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) + (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.inc") -- 2.39.5