# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1115102708 0
# Node ID cff3c2be0762fa03d6b1488000ae8faf770ee374
# Parent  b34037318c7e6cfde23a44621dacd98a687529b5
(cc-define-alist, cc-create-define-alist):
Remove these recent additions.
(c-mode): Restore to before 2005-04-28.

diff -r b34037318c7e -r cff3c2be0762 lisp/progmodes/cc-mode.el
--- a/lisp/progmodes/cc-mode.el	Tue May 03 06:44:12 2005 +0000
+++ b/lisp/progmodes/cc-mode.el	Tue May 03 06:45:08 2005 +0000
@@ -639,23 +639,6 @@
 ;;;###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 shell-file-name
-			    (if (file-exists-p file) file nil)
-			    (list t nil) nil "-c" cc-define-list-program))))
-	(define-list (split-string output "\n" t))
-	(name))
-    (setq cc-define-alist nil)
-    (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.
@@ -679,14 +662,11 @@
 	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)
-  (if (buffer-file-name) (cc-create-define-alist))
-  (add-hook 'after-save-hook 'cc-create-define-alist nil t)
   (run-mode-hooks 'c-mode-common-hook 'c-mode-hook)
   (c-update-modeline))