diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 13:21:22 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2021-03-11 13:21:22 -0500 |
| commit | fe844299a4432ef2443ac89b63df985fc58b2752 (patch) | |
| tree | 5ca93ba28f8eeb4cd1fa6e68ac6bc17a34c363eb /lisp/cedet/ede/project-am.el | |
| parent | 2c9594ae0626abe3838b8f0ec33122c94e02ddf1 (diff) | |
| download | emacs-fe844299a4432ef2443ac89b63df985fc58b2752.tar.gz | |
* lisp/cedet: Remove always-nil variables
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-variables):
Remove always-nil variable `conf-done`.
* lisp/cedet/ede/project-am.el: Use ref instead of dynbound var.
(project-rescan): Pass the ref.
(project-am-expand-subdirlist): Use it.
* lisp/cedet/semantic/idle.el (semantic-idle-work-core-handler):
Fix misuse of the wrong `errbuf `variable.
* lisp/cedet/semantic/scope.el (semantic-analyze-scoped-type-parts):
Remove always-nil variable `extmeth`.
* lisp/cedet/semantic/wisent/comp.el (wisent-context-name)
(wisent-context-bindings): Make them into functions.
(wisent-with-context): Use `dlet`.
Diffstat (limited to 'lisp/cedet/ede/project-am.el')
| -rw-r--r-- | lisp/cedet/ede/project-am.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index d676c5749c3..258917f01b9 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el @@ -596,10 +596,8 @@ Strip out duplicates, and recurse on variables." (project-am-expand-subdirlist place (makefile-macro-file-list var)) ;; Else, add SP in if it isn't a dup. - (if (member sp (symbol-value place)) - nil ; don't do it twice. - (set place (cons sp (symbol-value place))) ;; add - )))) + (cl-pushnew sp (gv-deref place) :test #'equal) ;; add + ))) subdirs) ) @@ -645,7 +643,7 @@ Strip out duplicates, and recurse on variables." ;; We still have a list of targets. For all buffers, make sure ;; their object still exists! ;; FIGURE THIS OUT - (project-am-expand-subdirlist 'csubprojexpanded csubproj) + (project-am-expand-subdirlist (gv-ref csubprojexpanded) csubproj) ;; Ok, now let's look at all our sub-projects. (mapc (lambda (sp) (let* ((subdir (file-name-as-directory |