Mercurial > emacs
changeset 104493:a4e1a12c8b97
* files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede.
* cedet/semantic/bovine/gcc.el (semantic-gcc-test-output-parser)
(semantic-gcc-test-output-parser-this-machine):
* cedet/semantic/symref/filter.el (semantic-symref-test-count-hits-in-tag):
* cedet/semantic/db-global.el (semanticdb-test-gnu-global):
* cedet/semantic/tag-write.el (semantic-tag-write-test)
(semantic-tag-write-list-test):
* cedet/semantic/lex-spp.el (semantic-lex-spp-write-test)
(semantic-lex-spp-write-utest):
* cedet/semantic/lex.el (semantic-lex-test-region)
(semantic-lex-test-full-depth):
* cedet/semantic/idle.el (semantic-idle-pnf-test):
* cedet/semantic/fw.el (semantic-test-data-cache)
(semantic-test-throw-on-input):
* cedet/semantic/format.el (semantic-test-all-format-tag-functions):
* cedet/semantic/complete.el (semantic-complete-test):
* cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-run-tests)
(semanticdb-ebrowse-dump): Test functions moved to
semantic-tests.el in the test/ directory.
* cedet/semantic/db-ref.el (semanticdb-ref-test): Doc fix.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 20 Sep 2009 03:44:02 +0000 |
| parents | 8db96f200ac8 |
| children | e480034314ce |
| files | lisp/ChangeLog lisp/cedet/semantic.el lisp/cedet/semantic/bovine/gcc.el lisp/cedet/semantic/complete.el lisp/cedet/semantic/db-ebrowse.el lisp/cedet/semantic/db-global.el lisp/cedet/semantic/db-ref.el lisp/cedet/semantic/format.el lisp/cedet/semantic/fw.el lisp/cedet/semantic/idle.el lisp/cedet/semantic/lex-spp.el lisp/cedet/semantic/lex.el lisp/cedet/semantic/symref/filter.el lisp/cedet/semantic/tag-write.el lisp/files.el |
| diffstat | 15 files changed, 30 insertions(+), 363 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/ChangeLog Sun Sep 20 03:44:02 2009 +0000 @@ -1,3 +1,28 @@ +2009-09-20 Chong Yidong <cyd@stupidchicken.com> + + * files.el (auto-mode-alist): Use emacs-lisp-mode for Project.ede. + + * cedet/semantic/bovine/gcc.el (semantic-gcc-test-output-parser) + (semantic-gcc-test-output-parser-this-machine): + * cedet/semantic/symref/filter.el (semantic-symref-test-count-hits-in-tag): + * cedet/semantic/db-global.el (semanticdb-test-gnu-global): + * cedet/semantic/tag-write.el (semantic-tag-write-test) + (semantic-tag-write-list-test): + * cedet/semantic/lex-spp.el (semantic-lex-spp-write-test) + (semantic-lex-spp-write-utest): + * cedet/semantic/lex.el (semantic-lex-test-region) + (semantic-lex-test-full-depth): + * cedet/semantic/idle.el (semantic-idle-pnf-test): + * cedet/semantic/fw.el (semantic-test-data-cache) + (semantic-test-throw-on-input): + * cedet/semantic/format.el (semantic-test-all-format-tag-functions): + * cedet/semantic/complete.el (semantic-complete-test): + * cedet/semantic/db-ebrowse.el (semanticdb-ebrowse-run-tests) + (semanticdb-ebrowse-dump): Test functions moved to + semantic-tests.el in the test/ directory. + + * cedet/semantic/db-ref.el (semanticdb-ref-test): Doc fix. + 2009-09-19 Chong Yidong <cyd@stupidchicken.com> Synch to Eric Ludlam's upstream CEDET repository.
--- a/lisp/cedet/semantic.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic.el Sun Sep 20 03:44:02 2009 +0000 @@ -29,15 +29,13 @@ ;; implementations. Each parser outputs a parse tree in a similar format ;; designed to handle typical functional and object oriented languages. -(eval-and-compile - ;; Other package depend on this value at compile time via inversion. - (defvar semantic-version "2.0pre7" - "Current version of Semantic.")) - (require 'assoc) (require 'semantic/tag) (require 'semantic/lex) +(defvar semantic-version "2.0pre7" + "Current version of Semantic.") + (declare-function inversion-test "inversion") (defun semantic-require-version (major minor &optional beta)
--- a/lisp/cedet/semantic/bovine/gcc.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/bovine/gcc.el Sun Sep 20 03:44:02 2009 +0000 @@ -213,111 +213,6 @@ (semantic-c-reset-preprocessor-symbol-map)) nil)) -;;; TESTING -;; -;; Example output of "gcc -v" -(defvar semantic-gcc-test-strings - '(;; My old box: - "Reading specs from /usr/lib/gcc-lib/i386-redhat-linux/3.2.2/specs -Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --host=i386-redhat-linux -Thread model: posix -gcc version 3.2.2 20030222 (Red Hat Linux 3.2.2-5)" - ;; Alex Ott: - "Using built-in specs. -Target: i486-linux-gnu -Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.3.1-9ubuntu1' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-targets=all --enable-checking=release --build=i486-linux-gnu --host=i486-linux-gnu --target=i486-linux-gnu -Thread model: posix -gcc version 4.3.1 (Ubuntu 4.3.1-9ubuntu1)" - ;; My debian box: - "Using built-in specs. -Target: x86_64-unknown-linux-gnu -Configured with: ../../../sources/gcc/configure --prefix=/usr/local/glibc-2.3.6/x86_64/apps/gcc-4.2.3 --with-gmp=/usr/local/gcc/gmp --with-mpfr=/usr/local/gcc/mpfr --enable-languages=c,c++,fortran --with-as=/usr/local/glibc-2.3.6/x86_64/apps/gcc-4.2.3/bin/as --with-ld=/usr/local/glibc-2.3.6/x86_64/apps/gcc-4.2.3/bin/ld --disable-multilib -Thread model: posix -gcc version 4.2.3" - ;; My mac: - "Using built-in specs. -Target: i686-apple-darwin8 -Configured with: /private/var/tmp/gcc/gcc-5341.obj~1/src/configure --disable-checking -enable-werror --prefix=/usr --mandir=/share/man --enable-languages=c,objc,c++,obj-c++ --program-transform-name=/^[cg][^.-]*$/s/$/-4.0/ --with-gxx-include-dir=/include/c++/4.0.0 --with-slibdir=/usr/lib --build=powerpc-apple-darwin8 --with-arch=pentium-m --with-tune=prescott --program-prefix= --host=i686-apple-darwin8 --target=i686-apple-darwin8 -Thread model: posix -gcc version 4.0.1 (Apple Computer, Inc. build 5341)" - ;; Ubuntu Intrepid - "Using built-in specs. -Target: x86_64-linux-gnu -Configured with: ../src/configure -v --with-pkgversion='Ubuntu 4.3.2-1ubuntu12' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-checking=release --build=x86_64-linux-gnu --host=x86_64-linux-gnu --target=x86_64-linux-gnu -Thread model: posix -gcc version 4.3.2 (Ubuntu 4.3.2-1ubuntu12)" - ;; Red Hat EL4 - "Reading specs from /usr/lib/gcc/x86_64-redhat-linux/3.4.6/specs -Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-java-awt=gtk --host=x86_64-redhat-linux -Thread model: posix -gcc version 3.4.6 20060404 (Red Hat 3.4.6-10)" - ;; Red Hat EL5 - "Using built-in specs. -Target: x86_64-redhat-linux -Configured with: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --enable-checking=release --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-libgcj-multifile --enable-languages=c,c++,objc,obj-c++,java,fortran,ada --enable-java-awt=gtk --disable-dssi --enable-plugin --with-java-home=/usr/lib/jvm/java-1.4.2-gcj-1.4.2.0/jre --with-cpu=generic --host=x86_64-redhat-linux -Thread model: posix -gcc version 4.1.2 20080704 (Red Hat 4.1.2-44)" - ;; David Engster's german gcc on ubuntu 4.3 - "Es werden eingebaute Spezifikationen verwendet. -Ziel: i486-linux-gnu -Konfiguriert mit: ../src/configure -v --with-pkgversion='Ubuntu 4.3.2-1ubuntu12' --with-bugurl=file:///usr/share/doc/gcc-4.3/README.Bugs --enable-languages=c,c++,fortran,objc,obj-c++ --prefix=/usr --enable-shared --with-system-zlib --libexecdir=/usr/lib --without-included-gettext --enable-threads=posix --enable-nls --with-gxx-include-dir=/usr/include/c++/4.3 --program-suffix=-4.3 --enable-clocale=gnu --enable-libstdcxx-debug --enable-objc-gc --enable-mpfr --enable-targets=all --enable-checking=release --build=i486-linux-gnu --host=i486-linux-gnu --target=i486-linux-gnu -Thread-Modell: posix -gcc-Version 4.3.2 (Ubuntu 4.3.2-1ubuntu12)" - ;; Damien Deville bsd - "Using built-in specs. -Target: i386-undermydesk-freebsd -Configured with: FreeBSD/i386 system compiler -Thread model: posix -gcc version 4.2.1 20070719 [FreeBSD]" - ) - "A bunch of sample gcc -v outputs from different machines.") - -(defvar semantic-gcc-test-strings-fail - '(;; A really old solaris box I found - "Reading specs from /usr/local/gcc-2.95.2/lib/gcc-lib/sparc-sun-solaris2.6/2.95.2/specs -gcc version 2.95.2 19991024 (release)" - ) - "A bunch of sample gcc -v outputs that fail to provide the info we want.") - -(defun semantic-gcc-test-output-parser () - "Test the output parser against some collected strings." - (interactive) - (let ((fail nil)) - (dolist (S semantic-gcc-test-strings) - (let* ((fields (semantic-gcc-fields S)) - (v (cdr (assoc 'version fields))) - (h (or (cdr (assoc 'target fields)) - (cdr (assoc '--target fields)) - (cdr (assoc '--host fields)))) - (p (cdr (assoc '--prefix fields))) - ) - ;; No longer test for prefixes. - (when (not (and v h)) - (let ((strs (split-string S "\n"))) - (message "Test failed on %S\nV H P:\n%S %S %S" (car strs) v h p)) - (setq fail t)) - )) - (dolist (S semantic-gcc-test-strings-fail) - (let* ((fields (semantic-gcc-fields S)) - (v (cdr (assoc 'version fields))) - (h (or (cdr (assoc '--host fields)) - (cdr (assoc 'target fields)))) - (p (cdr (assoc '--prefix fields))) - ) - (when (and v h p) - (message "Negative test failed on %S" S) - (setq fail t)) - )) - (if (not fail) (message "Tests passed.")) - )) - -(defun semantic-gcc-test-output-parser-this-machine () - "Test the output parser against the machine currently running Emacs." - (interactive) - (let ((semantic-gcc-test-strings (list (semantic-gcc-query "gcc" "-v")))) - (semantic-gcc-test-output-parser)) - ) - (provide 'semantic/bovine/gcc) ;; Local variables:
--- a/lisp/cedet/semantic/complete.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/complete.el Sun Sep 20 03:44:02 2009 +0000 @@ -1992,17 +1992,6 @@ )) -;;; ------------------------------------------------------------ -;;; Testing/Samples -;; -(defun semantic-complete-test () - "Test completion mechanisms." - (interactive) - (message "%S" - (semantic-format-tag-prototype - (semantic-complete-read-tag-project "Symbol: ") - ))) - ;;;###autoload (defun semantic-complete-jump-local () "Jump to a semantic symbol."
--- a/lisp/cedet/semantic/db-ebrowse.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/db-ebrowse.el Sun Sep 20 03:44:02 2009 +0000 @@ -59,8 +59,6 @@ (require 'semantic/find) (declare-function semantic-add-system-include "semantic/dep") -(declare-function data-debug-new-buffer "data-debug") -(declare-function data-debug-insert-thing "data-debug") (eval-and-compile ;; Hopefully, this will allow semanticdb-ebrowse to compile under @@ -668,47 +666,6 @@ nil )) -;;; TESTING -;; -;; This is a complex bit of stuff. Here are some tests for the -;; system. - -(defun semanticdb-ebrowse-run-tests () - "Run some tests of the semanticdb-ebrowse system. -All systems are different. Ask questions along the way." - (interactive) - (let ((doload nil)) - (when (y-or-n-p "Create a system database to test with? ") - (call-interactively 'semanticdb-create-ebrowse-database) - (setq doload t)) - ;; Should we load in caches - (when (if doload - (y-or-n-p "New database created. Reload system databases? ") - (y-or-n-p "Load in all system databases? ")) - (semanticdb-load-ebrowse-caches))) - ;; Ok, databases were creatd. Lets try some searching. - (when (not (or (eq major-mode 'c-mode) - (eq major-mode 'c++-mode))) - (error "Please make your default buffer be a C or C++ file, then -run the test again..") - ) - - ) - -(defun semanticdb-ebrowse-dump () - "Find the first loaded ebrowse table, and dump out the contents." - (interactive) - (require 'data-debug) - (let ((db semanticdb-database-list) - (ab nil)) - (while db - (when (semanticdb-project-database-ebrowse-p (car db)) - (setq ab (data-debug-new-buffer "*EBROWSE Database*")) - (data-debug-insert-thing (car db) "*" "") - (setq db nil) - ) - (setq db (cdr db))))) - (provide 'semantic/db-ebrowse) ;;; semantic/db-ebrowse.el ends here
--- a/lisp/cedet/semantic/db-global.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/db-global.el Sun Sep 20 03:44:02 2009 +0000 @@ -216,40 +216,6 @@ Like `semanticdb-find-tags-for-completion-method' for global." (semanticdb-find-tags-for-completion-method table prefix tags)) -;;; TEST -;; -;; Here is a testing fcn to try out searches via the GNU Global database. -(defvar semanticdb-test-gnu-global-startfile "~/src/global-5.7.3/global/global.c" - "File to use for testing.") - -(defun semanticdb-test-gnu-global (searchfor &optional standardfile) - "Test the GNU Global semanticdb. -Argument SEARCHFOR is the text to search for. -If optional arg STANDARDFILE is non nil, use a standard file w/ global enabled." - (interactive "sSearch For Tag: \nP") - - (require 'data-debug) - (save-excursion - (when standardfile - (save-match-data - (set-buffer (find-file-noselect semanticdb-test-gnu-global-startfile)))) - - (condition-case err - (semanticdb-enable-gnu-global-in-buffer) - (error (if standardfile - (error err) - (save-match-data - (set-buffer (find-file-noselect semanticdb-test-gnu-global-startfile))) - (semanticdb-enable-gnu-global-in-buffer)))) - - (let* ((db (semanticdb-project-database-global "global")) - (tab (semanticdb-file-table db (buffer-file-name))) - (result (semanticdb-deep-find-tags-for-completion-method tab searchfor)) - ) - (data-debug-new-buffer "*SemanticDB Gnu Global Result*") - (data-debug-insert-thing result "?" "") - ))) - (provide 'semantic/db-global) ;; Local variables:
--- a/lisp/cedet/semantic/db-ref.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/db-ref.el Sun Sep 20 03:44:02 2009 +0000 @@ -150,7 +150,7 @@ (defun semanticdb-ref-test (refresh) "Dump out the list of references for the current buffer. -If REFRESH is non-nil, cause the current table to have it's references +If REFRESH is non-nil, cause the current table to have its references refreshed before dumping the result." (interactive "p") (require 'eieio-datadebug)
--- a/lisp/cedet/semantic/format.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/format.el Sun Sep 20 03:44:02 2009 +0000 @@ -730,33 +730,6 @@ (setq text (semantic--format-uml-post-colorize text tag parent))) text )) - - -;;; Test routines -;; -(defun semantic-test-all-format-tag-functions (&optional arg) - "Test all outputs from `semantic-format-tag-functions'. -Output is generated from the function under `point'. -Optional argument ARG specifies not to use color." - (interactive "P") - (semantic-fetch-tags) - (let* ((tag (semantic-current-tag)) - (par (semantic-current-tag-parent)) - (fns semantic-format-tag-functions)) - (with-output-to-temp-buffer "*format-tag*" - (princ "Tag->format function tests:") - (while fns - (princ "\n") - (princ (car fns)) - (princ ":\n ") - (let ((s (funcall (car fns) tag par (not arg)))) - (save-excursion - (set-buffer "*format-tag*") - (goto-char (point-max)) - (insert s))) - (setq fns (cdr fns)))) - )) - ;;; Compatibility and aliases ;;
--- a/lisp/cedet/semantic/fw.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/fw.el Sun Sep 20 03:44:02 2009 +0000 @@ -239,22 +239,6 @@ (when ans (semantic-overlay-get ans 'cached-value))))) -(defun semantic-test-data-cache () - "Test the data cache." - (interactive) - (let ((data '(a b c))) - (save-excursion - (set-buffer (get-buffer-create " *semantic-test-data-cache*")) - (erase-buffer) - (insert "The Moose is Loose") - (goto-char (point-min)) - (semantic-cache-data-to-buffer (current-buffer) (point) (+ (point) 5) - data 'moose 'exit-cache-zone) - (if (equal (semantic-get-cache-data 'moose) data) - (message "Successfully retrieved cached data.") - (error "Failed to retrieve cached data")) - ))) - ;;; Obsoleting various functions & variables ;; (defun semantic-overload-symbol-from-function (name) @@ -396,23 +380,6 @@ (or (input-pending-p) (accept-process-output))) (throw semantic-current-input-throw-symbol ,from))) -(defun semantic-test-throw-on-input () - "Test that throw on input will work." - (interactive) - (semantic-throw-on-input 'done-die) - (message "Exit Code: %s" - (semantic-exit-on-input 'testing - (let ((inhibit-quit nil) - (message-log-max nil)) - (while t - (message "Looping ... press a key to test") - (semantic-throw-on-input 'test-inner-loop)) - 'exit))) - (when (input-pending-p) - (if (fboundp 'read-event) - (read-event) - (read-char))) - ) ;;; Special versions of Find File ;;
--- a/lisp/cedet/semantic/idle.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/idle.el Sun Sep 20 03:44:02 2009 +0000 @@ -481,15 +481,6 @@ )))) )) -(defun semantic-idle-pnf-test () - "Test `semantic-idle-scheduler-work-parse-neighboring-files' and time it." - (interactive) - (let ((start (current-time)) - (junk (semantic-idle-scheduler-work-parse-neighboring-files)) - (end (current-time))) - (message "Work took %.2f seconds." (semantic-elapsed-time start end))) - ) - ;;; REPARSING ;;
--- a/lisp/cedet/semantic/lex-spp.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/lex-spp.el Sun Sep 20 03:44:02 2009 +0000 @@ -1141,26 +1141,6 @@ (princ ")\n")) ) -;;; TESTS -;; -(defun semantic-lex-spp-write-test () - "Test the semantic tag writer against the current buffer." - (interactive) - (with-output-to-temp-buffer "*SPP Write Test*" - (semantic-lex-spp-table-write-slot-value - (semantic-lex-spp-save-table)))) - -(defun semantic-lex-spp-write-utest () - "Unit test using the test spp file to test the slot write fcn." - (interactive) - (let* ((sem (locate-library "semantic-lex-spp.el")) - (dir (file-name-directory sem))) - (save-excursion - (set-buffer (find-file-noselect - (expand-file-name "tests/testsppreplace.c" - dir))) - (semantic-lex-spp-write-test)))) - ;;; MACRO TABLE DEBUG ;; (defun semantic-lex-spp-describe (&optional buffer)
--- a/lisp/cedet/semantic/lex.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/lex.el Sun Sep 20 03:44:02 2009 +0000 @@ -693,38 +693,6 @@ (goto-char (point-min)) )) -(defun semantic-lex-test-full-depth (arg) - "Test the semantic lexer in the current buffer parsing through lists. -Usually the lexer parses -If universal argument ARG, then try the whole buffer." - (interactive "P") - (let* ((start (current-time)) - (result (semantic-lex - (if arg (point-min) (point)) - (point-max) - 100)) - (end (current-time))) - (message "Elapsed Time: %.2f seconds." - (semantic-elapsed-time start end)) - (pop-to-buffer "*Lexer Output*") - (require 'pp) - (erase-buffer) - (insert (pp-to-string result)) - (goto-char (point-min)) - )) - -(defun semantic-lex-test-region (beg end) - "Test the semantic lexer in the current buffer. -Analyze the area between BEG and END." - (interactive "r") - (let ((result (semantic-lex beg end))) - (pop-to-buffer "*Lexer Output*") - (require 'pp) - (erase-buffer) - (insert (pp-to-string result)) - (goto-char (point-min)) - )) - (defvar semantic-lex-debug nil "When non-nil, debug the local lexical analyzer.")
--- a/lisp/cedet/semantic/symref/filter.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/symref/filter.el Sun Sep 20 03:44:02 2009 +0000 @@ -82,28 +82,6 @@ (funcall hookfcn start end prefix))))) (point))))))) -;;;###autoload -(defun semantic-symref-test-count-hits-in-tag () - "Lookup in the current tag the symbol under point. -the count all the other references to the same symbol within the -tag that contains point, and return that." - (interactive) - (let* ((ctxt (semantic-analyze-current-context)) - (target (car (reverse (oref ctxt prefix)))) - (tag (semantic-current-tag)) - (start (current-time)) - (Lcount 0)) - (when (semantic-tag-p target) - (semantic-symref-hits-in-region - target (lambda (start end prefix) (setq Lcount (1+ Lcount))) - (semantic-tag-start tag) - (semantic-tag-end tag)) - (when (interactive-p) - (message "Found %d occurances of %s in %.2f seconds" - Lcount (semantic-tag-name target) - (semantic-elapsed-time start (current-time)))) - Lcount))) - (defun semantic-symref-rename-local-variable () "Fancy way to rename the local variable under point. Depends on the SRecode Field editing API." @@ -156,10 +134,4 @@ (provide 'semantic/symref/filter) -;; Local variables: -;; generated-autoload-file: "../loaddefs.el" -;; generated-autoload-feature: semantic/loaddefs -;; generated-autoload-load-name: "semantic/symref/filter" -;; End: - ;;; semantic/symref/filter.el ends here
--- a/lisp/cedet/semantic/tag-write.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/cedet/semantic/tag-write.el Sun Sep 20 03:44:02 2009 +0000 @@ -168,21 +168,6 @@ (semantic-tag-write-tag-list value 10 t) )) -;;; TESTING. - -(defun semantic-tag-write-test () - "Test the semantic tag writer against the tag under point." - (interactive) - (with-output-to-temp-buffer "*Tag Write Test*" - (semantic-tag-write-one-tag (semantic-current-tag)))) - -(defun semantic-tag-write-list-test () - "Test the semantic tag writer against the tag under point." - (interactive) - (with-output-to-temp-buffer "*Tag Write Test*" - (semantic-tag-write-tag-list (semantic-fetch-tags)))) - - (provide 'semantic/tag-write) ;; Local variables:
--- a/lisp/files.el Sat Sep 19 17:25:30 2009 +0000 +++ b/lisp/files.el Sun Sep 20 03:44:02 2009 +0000 @@ -2144,6 +2144,7 @@ ("\\.dtx\\'" . doctex-mode) ("\\.org\\'" . org-mode) ("\\.el\\'" . emacs-lisp-mode) + ("Project\\.ede\\'" . emacs-lisp-mode) ("\\.\\(scm\\|stk\\|ss\\|sch\\)\\'" . scheme-mode) ("\\.l\\'" . lisp-mode) ("\\.li?sp\\'" . lisp-mode)