Fixed cl-case, symbol.

Author: jcs090218

better-scroll.el

@@ -88,18 +88,18 @@
 (defun better-scroll--do-by-type (rel-ln)
   "Do scroll action by passing all needed params, REL-LN."
   (cl-case better-scroll-align-type
-    ('center
+    (center
      (better-scroll--move-to-window-line-top-bottom 'middle)
      (when (= (point) (point-max)) (better-scroll--recenter-top-bottom 'middle)))
-    ('relative (better-scroll--do-relative rel-ln))))
+    (relative (better-scroll--do-relative rel-ln))))
 
 (defun better-scroll--move-boundry (dc fnc)
   "Move boundry by direction (DC) and function (FNC)."
   (let ((prev-pt (point)) (prev-col (current-column)))
     (funcall fnc)
     (move-to-column prev-col)
     (when (and better-scroll-allow-boundary-movement (= (point) prev-pt))
-      (goto-char (cl-case dc ('down (point-min)) ('up (point-max)))))))
+      (goto-char (cl-case dc (down (point-min)) (up (point-max)))))))
 
 ;;;###autoload
 (defun better-scroll-down ()