From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 17 May 1999 01:37:04 +0000 (+0000)
Subject: (byte-optimize-plus): Fix 1-arg case.
X-Git-Tag: emacs-20.4~215
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ea9d637111b8ee28406b766397e2d623a54fb2bd;p=emacs.git

(byte-optimize-plus): Fix 1-arg case.
---

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))))