# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 926905024 0
# Node ID 1a05fdaa603bad3f875ca247345ea38e5c5101f1
# Parent  8f526771b25b6b679ac6b67e15c6d738d84f9fea
(byte-optimize-plus): Fix 1-arg case.

diff -r 8f526771b25b -r 1a05fdaa603b lisp/emacs-lisp/byte-opt.el
--- a/lisp/emacs-lisp/byte-opt.el	Sat May 15 17:39:26 1999 +0000
+++ b/lisp/emacs-lisp/byte-opt.el	Mon May 17 01:37:04 1999 +0000
@@ -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))))