diff options
author | Chong Yidong <cyd@stupidchicken.com> | 2009-09-06 21:22:05 +0000 |
---|---|---|
committer | Chong Yidong <cyd@stupidchicken.com> | 2009-09-06 21:22:05 +0000 |
commit | a60f2e7b9c0567bec9ba06c73ccad235b32d8b8f (patch) | |
tree | 0675cf49c3245bbb7b750b6c6b61df980715fc17 /lisp/cedet/semantic/bovine | |
parent | 6ca2fce3b8d345e619694f64c99013574000d0b3 (diff) | |
download | emacs-a60f2e7b9c0567bec9ba06c73ccad235b32d8b8f.tar.gz |
Minor whitespace changes and `require' fixes.
Diffstat (limited to 'lisp/cedet/semantic/bovine')
-rw-r--r-- | lisp/cedet/semantic/bovine/c.el | 12 | ||||
-rw-r--r-- | lisp/cedet/semantic/bovine/el.el | 6 | ||||
-rw-r--r-- | lisp/cedet/semantic/bovine/make.el | 10 | ||||
-rw-r--r-- | lisp/cedet/semantic/bovine/scm.el | 2 |
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) |