From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 15 Oct 1997 23:40:43 +0000 (+0000)
Subject: (toggle-scroll-bar): Call prefix-numeric-value.
X-Git-Tag: emacs-20.3~3012
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=19c6feac9f26e53328e84410393c81175c1bbc44;p=emacs.git

(toggle-scroll-bar): Call prefix-numeric-value.
---

diff --git a/lisp/scroll-bar.el b/lisp/scroll-bar.el
index 6a2660626d1..ccdf34909c7 100644
--- a/lisp/scroll-bar.el
+++ b/lisp/scroll-bar.el
@@ -126,7 +126,8 @@ when they are turned on; if it is nil, they go on the left."
       (setq arg
 	    (if (cdr (assq 'vertical-scroll-bars
 			   (frame-parameters (selected-frame))))
-		-1 1)))
+		-1 1))
+    (setq arg (prefix-numeric-value arg)))
   (modify-frame-parameters (selected-frame)
 			   (list (cons 'vertical-scroll-bars
 				       (if (> arg 0)