diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-08-07 18:12:20 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-08-07 18:12:20 +0200 |
| commit | 651eaf36f227ac6067263fe1fb9a7c56984a9b6d (patch) | |
| tree | 63f5f8839f74c768b85cbfc204cf8d15c45045fa /lisp/cedet/ede | |
| parent | c644523bd8a23e518c91b61a1b8520e866b715b9 (diff) | |
| download | emacs-651eaf36f227ac6067263fe1fb9a7c56984a9b6d.tar.gz | |
* calc/calc-prog.el (math-do-defmath): Use backquote forms. Fix
handling of interactive spec when the body uses return.
(math-do-arg-check, math-define-function-body): Use backquote forms.
* calc/calc-ext.el (math-defcache): Likewise.
* calc/calc-rewr.el (math-rwfail, math-rweval): Likewise.
* allout.el (allout-new-exposure): Likewise.
* calc/calcalg2.el (math-tracing-integral): Likewise.
* info.el (Info-last-menu-item): Likewise.
* emulation/vip.el (vip-loop): Likewise.
* textmodes/artist.el (artist-funcall): Likewise.
* menu-bar.el (menu-bar-make-mm-toggle, menu-bar-make-toggle):
Construct menu-item directly.
* cedet/ede/base.el (ede-with-projectfile): Use backquote forms.
Diffstat (limited to 'lisp/cedet/ede')
| -rw-r--r-- | lisp/cedet/ede/base.el | 28 |
1 files changed, 12 insertions, 16 deletions
diff --git a/lisp/cedet/ede/base.el b/lisp/cedet/ede/base.el index 4365fdc2190..ce3d4a036f3 100644 --- a/lisp/cedet/ede/base.el +++ b/lisp/cedet/ede/base.el @@ -285,22 +285,18 @@ All specific project types must derive from this project." ;; (defmacro ede-with-projectfile (obj &rest forms) "For the project in which OBJ resides, execute FORMS." - (list 'save-window-excursion - (list 'let* (list - (list 'pf - (list 'if (list 'obj-of-class-p - obj 'ede-target) - ;; @todo -I think I can change - ;; this to not need ede-load-project-file - ;; but I'm not sure how to test well. - (list 'ede-load-project-file - (list 'oref obj 'path)) - obj)) - '(dbka (get-file-buffer (oref pf file)))) - '(if (not dbka) (find-file (oref pf file)) - (switch-to-buffer dbka)) - (cons 'progn forms) - '(if (not dbka) (kill-buffer (current-buffer)))))) + `(save-window-excursion + (let* ((pf (if (obj-of-class-p ,obj ede-target) + ;; @todo -I think I can change + ;; this to not need ede-load-project-file + ;; but I'm not sure how to test well. + (ede-load-project-file (oref ,obj path)) + ,obj)) + (dbka (get-file-buffer (oref pf file)))) + (if (not dbka) (find-file (oref pf file)) + (switch-to-buffer dbka)) + ,@forms + (if (not dbka) (kill-buffer (current-buffer)))))) (put 'ede-with-projectfile 'lisp-indent-function 1) ;;; The EDE persistent cache. |