# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 876958843 0
# Node ID fb0d3082b28c323a4cc44033bdbebdbe8e8bf3f8
# Parent  36044c8b8aef1d96873ec53e14939483f2453911
(toggle-scroll-bar): Call prefix-numeric-value.

diff -r 36044c8b8aef -r fb0d3082b28c lisp/scroll-bar.el
--- a/lisp/scroll-bar.el	Wed Oct 15 23:36:30 1997 +0000
+++ b/lisp/scroll-bar.el	Wed Oct 15 23:40:43 1997 +0000
@@ -126,7 +126,8 @@
       (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)