/[emacs]/emacs/lisp/autoinsert.el
ViewVC logotype

Diff of /emacs/lisp/autoinsert.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by monnier, Fri Dec 8 17:33:34 2000 UTC revision 1.30 by rms, Tue Dec 18 19:37:37 2001 UTC
# Line 103  If this contains a %s, that will be repl Line 103  If this contains a %s, that will be repl
103      (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")      (("\\.\\([Cc]\\|cc\\|cpp\\)\\'" . "C / C++ program")
104       nil       nil
105       "#include \""       "#include \""
106       ;; nop without latest cc-mode       (let ((stem (file-name-sans-extension buffer-file-name)))
107       (and (fboundp 'c-companion-file)         (cond ((file-exists-p (concat stem ".h"))
108            ;(file-readable-p (c-companion-file 'name))                (file-name-nondirectory (concat stem ".h")))
109            (file-name-nondirectory (c-companion-file 'name))) & ?\"               ((file-exists-p (concat stem ".hh"))
110       | -10)                (file-name-nondirectory (concat stem ".hh")))))
111         & ?\" | -10)
112    
113      ("[Mm]akefile\\'" . "makefile.inc")      (("[Mm]akefile\\'" . "Makefile") . "makefile.inc")
114    
115      (html-mode . (lambda () (sgml-tag "html")))      (html-mode . (lambda () (sgml-tag "html")))
116            

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26