diff options
| author | Glenn Morris <rgm@gnu.org> | 2013-09-19 16:31:54 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2013-09-19 16:31:54 -0400 |
| commit | a2c501b84eae05b1c7cb820537c12f201379648c (patch) | |
| tree | 1b9b213fb9be3559c1d515c503e451d06044e6ee /lisp/emacs-lisp | |
| parent | c440407a90b70ef278113f502f6e2fd57ad38f26 (diff) | |
| download | emacs-a2c501b84eae05b1c7cb820537c12f201379648c.tar.gz emacs-a2c501b84eae05b1c7cb820537c12f201379648c.tar.bz2 emacs-a2c501b84eae05b1c7cb820537c12f201379648c.zip | |
* lisp/emacs-lisp/cl-macs.el (cl-defsubst): Remove unused local `pbody'.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index af7c41d5c4c..7e50b5bbc9e 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2701,8 +2701,10 @@ The function's arguments should be treated as immutable. \(fn NAME ARGLIST [DOCSTRING] BODY...)" (declare (debug cl-defun) (indent 2)) - (let* ((argns (cl--arglist-args args)) (p argns) - (pbody (cons 'progn body))) + (let* ((argns (cl--arglist-args args)) + (p argns) + ;; (pbody (cons 'progn body)) + ) (while (and p (eq (cl--expr-contains args (car p)) 1)) (pop p)) `(progn ,(if p nil ; give up if defaults refer to earlier args |