mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-18 22:20:56 -08:00
Code Issues Projects Releases Wiki Activity

(cc-create-define-alist): New function.

Browse source 
(cc-define-alist): New variable.
(c-mode): Make it local and set it.
This commit is contained in:
Nick Roberts 2005-04-27 21:59:43 +00:00
parent 8c75afbf68
commit a5bad486cc
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/progmodes/cc-mode.el
View file

@ -639,6 +639,21 @@ Note that the style variables are always made local to the buffer."
;;;###autoload (add-to-list 'auto-mode-alist '("\\.y\\(acc\\)?\\'" . c-mode))
;;;###autoload (add-to-list 'auto-mode-alist '("\\.lex\\'" . c-mode))
(defvar cc-define-alist nil "Alist of #define directives for GUD tooltips.")
(defun cc-create-define-alist ()
(let* ((file (buffer-file-name))
(output
(with-output-to-string
(with-current-buffer standard-output
(call-process "/lib/cpp"
file t nil "-dM"))))
(define-list (split-string output "\n" t))
(name))
(dolist (define define-list)
(setq name (nth 1 (split-string define "[( ]")))
(push (cons name define) cc-define-alist))))
;;;###autoload
(defun c-mode ()
"Major mode for editing K&R and ANSI C code.
@ -662,11 +677,13 @@ Key bindings:
mode-name "C"
local-abbrev-table c-mode-abbrev-table
abbrev-mode t)
(make-local-variable 'cc-define-alist)
(use-local-map c-mode-map)
(c-init-language-vars-for 'c-mode)
(c-common-init 'c-mode)
(easy-menu-add c-c-menu)
(cc-imenu-init cc-imenu-c-generic-expression)
(cc-create-define-alist)
(run-mode-hooks 'c-mode-common-hook 'c-mode-hook)
(c-update-modeline))