Browse Source

Fix "Symbol’s function definition is void: case"

* lisp/org-macs.el (org-scroll): Use `cl-case' instead of `case'.
Nicolas Goaziou 5 years ago
parent
commit
0fadd06b72
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-macs.el

+ 1 - 1
lisp/org-macs.el

@@ -1210,7 +1210,7 @@ window."
   (let ((scrlup (if additional-keys '(?\s 22) 22))
 	(scrldn (if additional-keys `(?\d 134217846) 134217846)))
     (eval
-     `(case ,key
+     `(cl-case ,key
 	;; C-n
 	(14 (if (not (pos-visible-in-window-p (point-max)))
 		(ignore-errors (scroll-up 1))