summaryrefslogtreecommitdiff
path: root/lisp/cedet/semantic/bovine
diff options
context:
space:
mode:
authorChong Yidong <cyd@stupidchicken.com>2009-09-06 21:22:05 +0000
committerChong Yidong <cyd@stupidchicken.com>2009-09-06 21:22:05 +0000
commita60f2e7b9c0567bec9ba06c73ccad235b32d8b8f (patch)
tree0675cf49c3245bbb7b750b6c6b61df980715fc17 /lisp/cedet/semantic/bovine
parent6ca2fce3b8d345e619694f64c99013574000d0b3 (diff)
downloademacs-a60f2e7b9c0567bec9ba06c73ccad235b32d8b8f.tar.gz
Minor whitespace changes and `require' fixes.
Diffstat (limited to 'lisp/cedet/semantic/bovine')
-rw-r--r--lisp/cedet/semantic/bovine/c.el12
-rw-r--r--lisp/cedet/semantic/bovine/el.el6
-rw-r--r--lisp/cedet/semantic/bovine/make.el10
-rw-r--r--lisp/cedet/semantic/bovine/scm.el2
4 files changed, 25 insertions, 5 deletions
diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el
index efcbfd351ce..3f5994369e9 100644
--- a/lisp/cedet/semantic/bovine/c.el
+++ b/lisp/cedet/semantic/bovine/c.el
@@ -122,7 +122,7 @@ part of the preprocessor map.")
(defun semantic-c-reset-preprocessor-symbol-map ()
"Reset the C preprocessor symbol map based on all input variables."
- (when (featurep 'semantic-c)
+ (when (featurep 'semantic/bovine/c)
(let ((filemap nil)
)
(when (and (not semantic-c-in-reset-preprocessor-table)
@@ -1592,6 +1592,7 @@ DO NOT return the list of tags encompassing point."
(defvar-mode-local c-mode senator-step-at-tag-classes '(function variable)
"Tag classes where senator will stop at the end.")
+;;;###autoload
(defun semantic-default-c-setup ()
"Set up a buffer for semantic parsing of the C language."
(semantic-c-by--install-parser)
@@ -1604,6 +1605,7 @@ DO NOT return the list of tags encompassing point."
(add-hook 'semantic-lex-reset-hooks 'semantic-lex-spp-reset-hook nil t)
)
+;;;###autoload
(defun semantic-c-add-preprocessor-symbol (sym replacement)
"Add a preprocessor symbol SYM with a REPLACEMENT value."
(interactive "sSymbol: \nsReplacement: ")
@@ -1619,7 +1621,9 @@ DO NOT return the list of tags encompassing point."
(semantic-c-reset-preprocessor-symbol-map)
)
+;;;###autoload
(add-hook 'c-mode-hook 'semantic-default-c-setup)
+;;;###autoload
(add-hook 'c++-mode-hook 'semantic-default-c-setup)
;;; SETUP QUERY
@@ -1712,4 +1716,10 @@ DO NOT return the list of tags encompassing point."
(semantic-c-reset-preprocessor-symbol-map)
+;; Local variables:
+;; generated-autoload-file: "../loaddefs.el"
+;; generated-autoload-feature: semantic/loaddefs
+;; generated-autoload-load-name: "semantic/bovine/c"
+;; End:
+
;;; semantic/bovine/c.el ends here
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index 5770d33d00a..596e29228f9 100644
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -463,7 +463,7 @@ Return a bovination list to use."
(condition-case nil
;; Try an Emacs 22 fcn. This throws errors.
(find-library-name (semantic-tag-name tag))
- (error
+ (error
(message "semantic: connot find source file %s"
(semantic-tag-name tag))))
;; No handy function available. (Older Emacsen)
@@ -533,14 +533,14 @@ Optional argument NOSNARF is ignored."
(cond ((eq (semantic-tag-class tag) 'function)
(setq d (documentation sym)))
(t
- (setq d (documentation-property
+ (setq d (documentation-property
sym 'variable-documentation)))))
;; Label it as system doc.. perhaps just for debugging
;; purposes.
(if d (setq d (concat "Sytem Doc: \n" d)))
))
)
-
+
(when d
(concat
(substitute-command-keys
diff --git a/lisp/cedet/semantic/bovine/make.el b/lisp/cedet/semantic/bovine/make.el
index c6f6e88ca30..1686ef2aa15 100644
--- a/lisp/cedet/semantic/bovine/make.el
+++ b/lisp/cedet/semantic/bovine/make.el
@@ -153,7 +153,7 @@ We never have local variables in Makefiles."
)
(cond ((eq class 'function)
(concat name ": "
- (semantic--format-tag-arguments
+ (semantic--format-tag-arguments
(semantic-tag-function-arguments tag)
#'semantic-format-tag-prototype
color)))
@@ -205,6 +205,7 @@ Uses default implementation, and also gets a list of filenames."
nil
"The system include path used by Makefiles langauge.")
+;;;###autoload
(defun semantic-default-make-setup ()
"Set up a Makefile buffer for parsing with semantic."
(semantic-make-by--install-parser)
@@ -229,8 +230,15 @@ Uses default implementation, and also gets a list of filenames."
(setq semantic-lex-analyzer #'semantic-make-lexer)
)
+;;;###autoload
(add-hook 'makefile-mode-hook 'semantic-default-make-setup)
(provide 'semantic/bovine/make)
+;; Local variables:
+;; generated-autoload-file: "../loaddefs.el"
+;; generated-autoload-feature: semantic/loaddefs
+;; generated-autoload-load-name: "semantic/bovine/make"
+;; End:
+
;;; semantic/bovine/make.el ends here
diff --git a/lisp/cedet/semantic/bovine/scm.el b/lisp/cedet/semantic/bovine/scm.el
index 2b351534cb4..e57390157ce 100644
--- a/lisp/cedet/semantic/bovine/scm.el
+++ b/lisp/cedet/semantic/bovine/scm.el
@@ -95,6 +95,7 @@ syntax as specified by the syntax table."
semantic-lex-number
semantic-lex-default-action)
+;;;###autoload
(defun semantic-default-scheme-setup ()
"Setup hook function for Emacs Lisp files and Semantic."
(semantic-scm-by--install-parser)
@@ -109,6 +110,7 @@ syntax as specified by the syntax table."
(setq semantic-lex-analyzer #'semantic-scheme-lexer)
)
+;;;###autoload
(add-hook 'scheme-mode-hook 'semantic-default-scheme-setup)
(provide 'semantic/bovine/scm)