From 19c6feac9f26e53328e84410393c81175c1bbc44 Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Wed, 15 Oct 1997 23:40:43 +0000 Subject: [PATCH] (toggle-scroll-bar): Call prefix-numeric-value. --- lisp/scroll-bar.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 2.39.2