From ea9d637111b8ee28406b766397e2d623a54fb2bd Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 17 May 1999 01:37:04 +0000 Subject: [PATCH] (byte-optimize-plus): Fix 1-arg case. --- lisp/emacs-lisp/byte-opt.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index cfec516056c..4f399f4b4cf 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -700,6 +700,10 @@ ;;; (actually, it would be safe if we know the sole arg ;;; is not a marker). ;; ((null (cdr (cdr form))) (nth 1 form)) + ((null (cddr form)) + (if (numberp (nth 1 form)) + (nth 1 form) + form)) ((and (null (nthcdr 3 form)) (or (memq (nth 1 form) '(1 -1)) (memq (nth 2 form) '(1 -1)))) -- 2.39.2