From a2c501b84eae05b1c7cb820537c12f201379648c Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 19 Sep 2013 16:31:54 -0400 Subject: [PATCH] * lisp/emacs-lisp/cl-macs.el (cl-defsubst): Remove unused local `pbody'. --- lisp/ChangeLog | 2 ++ lisp/emacs-lisp/cl-macs.el | 6 ++++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index f0d7480371b..2da4ea8f360 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2013-09-19 Glenn Morris + * emacs-lisp/cl-macs.el (cl-defsubst): Remove unused local `pbody'. + * simple.el (x-selection-owner-p, x-selection-exists-p): Declare. * emacs-lisp/eieio.el (class-parent): Undo previous change. 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 -- 2.39.2