]> git.eshelyaron.com Git - emacs.git/commitdiff
(byte-optimize-plus): Fix 1-arg case.
authorRichard M. Stallman <rms@gnu.org>
Mon, 17 May 1999 01:37:04 +0000 (01:37 +0000)
committerRichard M. Stallman <rms@gnu.org>
Mon, 17 May 1999 01:37:04 +0000 (01:37 +0000)
lisp/emacs-lisp/byte-opt.el

index cfec516056c9838e0e778bcaf4bf72834a49ccbe..4f399f4b4cf90856692d6f33af781defd69869fd 100644 (file)
 ;;; (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))))