[Emacs-diffs] emacs/lisp ChangeLog files.el cedet/ede.el cede...

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      09/10/03 19:28:09

Modified files:
        lisp           : ChangeLog files.el 
        lisp/cedet     : ede.el semantic.el 
        lisp/cedet/ede : cpp-root.el pmake.el proj-comp.el srecode.el 
        lisp/cedet/semantic: util-modes.el 
        lisp/cedet/srecode: map.el srt-mode.el template.el 

Log message:
        * cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
        
        * files.el (auto-mode-alist): Add .srt and Project.ede.
        
        * cedet/semantic.el (semantic-mode): Handle
        srecode-template-mode-hook as well.
        
        * cedet/srecode/template.el: Remove hook variable.
        
        * cedet/ede/proj-comp.el: Require ede/pmake when compiling.
        
        * cedet/ede.el (ede-target-forms-menu): Don't enable if no
        projects exist.
        
        * cedet/srecode/map.el (srecode-map-base-template-dir): Look for
        templates in data-directory.
        
        * cedet/ede/srecode.el (ede-srecode-setup): Use default templates
        directory.
        
        * cedet/semantic/util-modes.el (semantic-highlight-func-mode): Doc
        fix.
        
        * cedet/ede/proj-comp.el (ede-proj-makefile-insert-variables):
        Only insert each variable once.
        
        * cedet/ede/pmake.el (ede-pmake-insert-variable-once): New macro.
        (ede-pmake-insert-variable-shared): Use it.
        
        * cedet/ede/cpp-root.el (ede-preprocessor-map): Do not deref table
        for lexical table iff table is nil.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16335&r2=1.16336
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/files.el?cvsroot=emacs&r1=1.1090&r2=1.1091
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede/cpp-root.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede/pmake.el?cvsroot=emacs&r1=1.3&r2=1.4
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede/proj-comp.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede/srecode.el?cvsroot=emacs&r1=1.5&r2=1.6
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic/util-modes.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/srecode/map.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/srecode/srt-mode.el?cvsroot=emacs&r1=1.4&r2=1.5
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/srecode/template.el?cvsroot=emacs&r1=1.4&r2=1.5

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16335
retrieving revision 1.16336
diff -u -b -r1.16335 -r1.16336
--- ChangeLog   3 Oct 2009 18:29:22 -0000       1.16335
+++ ChangeLog   3 Oct 2009 19:28:05 -0000       1.16336
@@ -1,3 +1,39 @@
+2009-10-03  Chong Yidong  <address@hidden>
+
+       * cedet/srecode/srt-mode.el (srecode-template-mode): Doc fix.
+
+       * files.el (auto-mode-alist): Add .srt and Project.ede.
+
+       * cedet/semantic.el (semantic-mode): Handle
+       srecode-template-mode-hook as well.
+
+       * cedet/srecode/template.el: Remove hook variable.
+
+       * cedet/ede/proj-comp.el: Require ede/pmake when compiling.
+
+       * cedet/ede.el (ede-target-forms-menu): Don't enable if no
+       projects exist.
+
+       * cedet/srecode/map.el (srecode-map-base-template-dir): Look for
+       templates in data-directory.
+
+       * cedet/ede/srecode.el (ede-srecode-setup): Use default templates
+       directory.
+
+2009-09-30  Eric Ludlam  <address@hidden>
+
+       * cedet/semantic/util-modes.el (semantic-highlight-func-mode): Doc
+       fix.
+
+       * cedet/ede/proj-comp.el (ede-proj-makefile-insert-variables):
+       Only insert each variable once.
+
+       * cedet/ede/pmake.el (ede-pmake-insert-variable-once): New macro.
+       (ede-pmake-insert-variable-shared): Use it.
+
+       * cedet/ede/cpp-root.el (ede-preprocessor-map): Do not deref table
+       for lexical table iff table is nil.
+
 2009-10-03  Dan Nicolaescu  <address@hidden>
 
        * vc.el: Remove commented out code.

Index: files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/files.el,v
retrieving revision 1.1090
retrieving revision 1.1091
diff -u -b -r1.1090 -r1.1091
--- files.el    2 Oct 2009 03:48:40 -0000       1.1090
+++ files.el    3 Oct 2009 19:28:08 -0000       1.1091
@@ -2178,6 +2178,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)
@@ -2237,6 +2238,7 @@
      ("\\.f9[05]\\'" . f90-mode)
      ("\\.indent\\.pro\\'" . fundamental-mode) ; to avoid idlwave-mode
      ("\\.\\(pro\\|PRO\\)\\'" . idlwave-mode)
+     ("\\.srt\\'" . srecode-template-mode)
      ("\\.prolog\\'" . prolog-mode)
      ("\\.tar\\'" . tar-mode)
      ;; The list of archive file extensions should be in sync with

Index: cedet/ede.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/ede.el        2 Oct 2009 10:53:34 -0000       1.4
+++ cedet/ede.el        3 Oct 2009 19:28:08 -0000       1.5
@@ -659,7 +659,9 @@
     "Target Forms"
     (let ((obj (or ede-selected-object ede-object)))
       (append
-       '([ "Add File" ede-add-file (ede-current-project) ]
+       '([ "Add File" ede-add-file
+          (and (ede-current-project)
+               (oref (ede-current-project) targets)) ]
         [ "Remove File" ede-remove-file
           (and ede-object
                (or (listp ede-object)

Index: cedet/semantic.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/semantic.el   2 Oct 2009 10:53:34 -0000       1.4
+++ cedet/semantic.el   3 Oct 2009 19:28:09 -0000       1.5
@@ -176,7 +176,7 @@
 
 This hook should not be used any more.
 Use `semantic-after-toplevel-cache-change-hook' instead.")
-(make-obsolete-variable 'semantic-after-toplevel-bovinate-hook nil)
+(make-obsolete-variable 'semantic-after-toplevel-bovinate-hook nil "23.2")
 
 (defvar semantic-after-toplevel-cache-change-hook nil
   "Hooks run after the buffer tag list has changed.
@@ -661,7 +661,7 @@
 (defun semantic-bovinate-toplevel (&optional ignored)
   "Backward Compatibility Function."
   (semantic-fetch-tags))
-(make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags)
+(make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags "23.2")
 
 ;; Another approach is to let Emacs call the parser on idle time, when
 ;; needed, use `semantic-fetch-available-tags' to only retrieve
@@ -793,7 +793,7 @@
 commands, use `semantic-bovinate-from-nonterminal-full'."
   (semantic-parse-region start end nonterm depth t))
 (make-obsolete 'semantic-bovinate-region-until-error
-               'semantic-parse-region)
+               'semantic-parse-region "23.2")
 
 (defsubst semantic-bovinate-from-nonterminal
   (start end nonterm &optional depth length)
@@ -821,7 +821,7 @@
 a START and END part."
   (semantic-parse-region start end nonterm (or depth 1)))
 (make-obsolete 'semantic-bovinate-from-nonterminal-full
-               'semantic-parse-region)
+               'semantic-parse-region "23.2")
 
 ;;; User interface
 
@@ -1055,7 +1055,9 @@
        (add-hook 'makefile-mode-hook 'semantic-default-make-setup)
        (add-hook 'c-mode-hook 'semantic-default-c-setup)
        (add-hook 'c++-mode-hook 'semantic-default-c-setup)
-       (add-hook 'html-mode-hook 'semantic-default-html-setup))
+       (add-hook 'html-mode-hook 'semantic-default-html-setup)
+       (add-hook 'html-mode-hook 'semantic-default-html-setup)
+       (add-hook 'srecode-template-mode-hook 'srecode-template-setup-parser))
     ;; Disable all Semantic features.
     (remove-hook 'mode-local-init-hook 'semantic-new-buffer-fcn)
     (remove-hook 'javascript-mode-hook 'wisent-javascript-setup-parser)
@@ -1066,6 +1068,7 @@
     (remove-hook 'c-mode-hook 'semantic-default-c-setup)
     (remove-hook 'c++-mode-hook 'semantic-default-c-setup)
     (remove-hook 'html-mode-hook 'semantic-default-html-setup)
+    (remove-hook 'srecode-template-mode-hook 'srecode-template-setup-parser)
 
     ;; FIXME: handle semanticdb-load-ebrowse-caches
     (dolist (mode semantic-submode-list)
@@ -1104,6 +1107,9 @@
 the current buffer was set up for parsing.  Return non-nil if the
 minor mode is enabled." t nil)
 
+(autoload 'srecode-template-setup-parser "srecode/srecode-template"
+  "Set up buffer for parsing SRecode template files." t nil)
+
 (provide 'semantic)
 
 ;; Semantic-util is a part of the semantic API.  Include it last

Index: cedet/ede/cpp-root.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede/cpp-root.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/ede/cpp-root.el       2 Oct 2009 10:53:34 -0000       1.4
+++ cedet/ede/cpp-root.el       3 Oct 2009 19:28:09 -0000       1.5
@@ -491,8 +491,8 @@
         (when (not table)
           (message "Cannot find file %s in project." F))
         (when (and table (semanticdb-needs-refresh-p table))
-          (semanticdb-refresh-table table))
-        (setq spp (append spp (oref table lexical-table)))))
+          (semanticdb-refresh-table table)
+          (setq spp (append spp (oref table lexical-table))))))
      (oref this spp-files))
     spp))
 

Index: cedet/ede/pmake.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede/pmake.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- cedet/ede/pmake.el  2 Oct 2009 10:53:34 -0000       1.3
+++ cedet/ede/pmake.el  3 Oct 2009 19:28:09 -0000       1.4
@@ -255,6 +255,18 @@
        (goto-char (point-max))))
 (put 'ede-pmake-insert-variable-shared 'lisp-indent-function 1)
 
+(defmacro ede-pmake-insert-variable-once (varname &rest body)
+  "Add VARNAME into the current Makefile if it doesn't exist.
+Execute BODY in a location where a value can be placed."
+  `(let ((addcr t) (v ,varname))
+     (unless (re-search-backward (concat "^" v "\\s-*=") nil t)
+       (insert v "=")
+       ,@body
+       (if addcr (insert "\n"))
+       (goto-char (point-max)))
+     ))
+(put 'ede-pmake-insert-variable-once 'lisp-indent-function 1)
+
 ;;; SOURCE VARIABLE NAME CONSTRUCTION
 
 (defsubst ede-pmake-varname (obj)

Index: cedet/ede/proj-comp.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede/proj-comp.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/ede/proj-comp.el      2 Oct 2009 10:53:34 -0000       1.4
+++ cedet/ede/proj-comp.el      3 Oct 2009 19:28:09 -0000       1.5
@@ -46,6 +46,7 @@
 
 (require 'ede)                         ;source object
 (require 'ede/autoconf-edit)
+(eval-when-compile (require 'ede/pmake))
 
 ;;; Types:
 (defclass ede-compilation-program (eieio-instance-inheritor)
@@ -256,12 +257,11 @@
       (with-slots (variables) this
        (mapcar
         (lambda (var)
-          (insert (car var) "=")
+          (ede-pmake-insert-variable-once (car var)
          (let ((cd (cdr var)))
            (if (listp cd)
                (mapc (lambda (c) (insert " " c)) cd)
-             (insert cd)))
-         (insert "\n"))
+                (insert cd)))))
         variables))))
 
 (defmethod ede-compiler-intermediate-objects-p ((this ede-compiler))

Index: cedet/ede/srecode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede/srecode.el,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -b -r1.5 -r1.6
--- cedet/ede/srecode.el        2 Oct 2009 10:53:35 -0000       1.5
+++ cedet/ede/srecode.el        3 Oct 2009 19:28:09 -0000       1.6
@@ -37,27 +37,13 @@
 
 ;;; Code:
 (defun ede-srecode-setup ()
-  "Update various paths to get SRecode to identify our macros."
-  (let* ((lib (locate-library "ede.el" t))
-        (ededir (file-name-directory lib))
-        (tmpdir (file-name-as-directory
-                 (expand-file-name "templates" ededir))))
-    (when (not tmpdir)
-      (error "Unable to location EDE Templates directory"))
-
-    ;; Rig up the map.
+  "Initialize Srecode for EDE."
     (require 'srecode/map)
     (require 'srecode/find)
-    (add-to-list 'srecode-map-load-path tmpdir)
     (srecode-map-update-map t)
-
     ;; We don't call this unless we need it.  Load in the templates.
     (srecode-load-tables-for-mode 'makefile-mode)
-    (srecode-load-tables-for-mode 'makefile-mode 'ede)
-
-    ;; @todo - autoconf files.
-
-    ))
+  (srecode-load-tables-for-mode 'makefile-mode 'ede))
 
 (defmacro ede-srecode-insert-with-dictionary (template &rest forms)
   "Insert TEMPLATE after executing FORMS with a dictionary.

Index: cedet/semantic/util-modes.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic/util-modes.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/semantic/util-modes.el        2 Oct 2009 10:53:35 -0000       1.4
+++ cedet/semantic/util-modes.el        3 Oct 2009 19:28:09 -0000       1.5
@@ -874,7 +874,7 @@
   "Setup option `semantic-stickyfunc-mode'.
 For semantic enabled buffers, make the function declaration for the top most
 function \"sticky\".  This is accomplished by putting the first line of
-text for that function in Emacs 21's header line."
+text for that function in the header line."
   (if semantic-stickyfunc-mode
       (progn
        (unless (and (featurep 'semantic) (semantic-active-p))
@@ -911,7 +911,7 @@
 A function (or other tag class specified by
 `semantic-stickyfunc-sticky-classes') has a header line, meaning the
 first line which describes the rest of the construct.  This first
-line is what is displayed in the Emacs 21 header line.
+line is what is displayed in the header line.
 
 With prefix argument ARG, turn on if positive, otherwise off.  The
 minor mode can be turned on only if semantic feature is available and
@@ -1149,7 +1149,7 @@
 ;;;###autoload
 (defun semantic-highlight-func-mode (&optional arg)
   "Minor mode to highlight the first line of the current tag.
-Enables/disables making the header line of functions sticky.
+Enables/disables making the current function's first line light up.
 A function (or other tag class specified by
 `semantic-stickyfunc-sticky-classes') is highlighted, meaning the
 first line which describes the rest of the construct.

Index: cedet/srecode/map.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/srecode/map.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/srecode/map.el        2 Oct 2009 10:53:37 -0000       1.4
+++ cedet/srecode/map.el        3 Oct 2009 19:28:09 -0000       1.5
@@ -36,10 +36,7 @@
 
 (defun srecode-map-base-template-dir ()
   "Find the base template directory for SRecode."
-  (let* ((lib (locate-library "srecode.el"))
-        (dir (file-name-directory lib)))
-    (expand-file-name "templates/" dir)
-    ))
+  (expand-file-name "srecode" data-directory))
 
 ;;; Current MAP
 ;;
@@ -399,7 +396,7 @@
   (list (srecode-map-base-template-dir)
        (expand-file-name "~/.srecode/")
        )
-  "*Global load path for SRecode template files."
+  "Global load path for SRecode template files."
   :group 'srecode
   :type '(repeat file)
   :set 'srecode-map-load-path-set)

Index: cedet/srecode/srt-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/srecode/srt-mode.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/srecode/srt-mode.el   2 Oct 2009 10:53:37 -0000       1.4
+++ cedet/srecode/srt-mode.el   3 Oct 2009 19:28:09 -0000       1.5
@@ -184,7 +184,7 @@
 
 ;;;###autoload
 (defun srecode-template-mode ()
-  "Major-mode for writing srecode macros."
+  "Major-mode for writing SRecode macros."
   (interactive)
   (kill-all-local-variables)
   (setq major-mode 'srecode-template-mode

Index: cedet/srecode/template.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/srecode/template.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- cedet/srecode/template.el   2 Oct 2009 10:53:37 -0000       1.4
+++ cedet/srecode/template.el   3 Oct 2009 19:28:09 -0000       1.5
@@ -39,6 +39,7 @@
       ans)
     ))
 
+;;;###autoload
 (defun srecode-template-setup-parser ()
   "Setup buffer for parse."
   (srecode-template-wy--install-parser)
@@ -61,10 +62,13 @@
    senator-step-at-tag-classes '(function variable)
    ))
 
-;;;;###autoload
-(add-hook 'srecode-template-mode-hook 'srecode-template-setup-parser)
-
 (provide 'srecode/template)
 
+;; Local variables:
+;; generated-autoload-file: "loaddefs.el"
+;; generated-autoload-feature: srecode/loaddefs
+;; generated-autoload-load-name: "srecode/template"
+;; End:
+
 ;; arch-tag: 037fbca7-e846-4521-b801-3463f50c3080
 ;;; srecode/template.el ends here