Fix some cl-lib function with prefix
Since emacs 24.3, function in cl-lib should with cl- prefix. Signed-off-by: Yen-Chin Lee <coldnew.tw@gmail.com>
This commit is contained in:
parent
4b8a5ffb1b
commit
2a983671af
|
@ -355,7 +355,7 @@ Properties that can be copied are `:location', `:step' and `:excluded'."
|
|||
|
||||
(defun configuration-layer/filter-objects (objects ffunc)
|
||||
"Return a filtered OBJECTS list where each element satisfies FFUNC."
|
||||
(reverse (reduce (lambda (acc x)
|
||||
(reverse (cl-reduce (lambda (acc x)
|
||||
(if (funcall ffunc x) (push x acc) acc))
|
||||
objects
|
||||
:initial-value nil)))
|
||||
|
|
|
@ -105,7 +105,7 @@ and its values are removed."
|
|||
;; From http://stackoverflow.com/questions/2321904/elisp-how-to-save-data-in-a-file
|
||||
(defun spacemacs/dump (varlist buffer)
|
||||
"insert into buffer the setq statement to recreate the variables in VARLIST"
|
||||
(loop for var in varlist do
|
||||
(cl-loop for var in varlist do
|
||||
(print (list 'setq var (list 'quote (symbol-value var)))
|
||||
buffer)))
|
||||
|
||||
|
|
|
@ -203,7 +203,7 @@ It runs `tabulated-list-revert-hook', then calls `tabulated-list-print'."
|
|||
(null dotspacemacs-auto-save-file-location))
|
||||
(make-directory autosave-dir t)))
|
||||
;; Choose auto-save location
|
||||
(case dotspacemacs-auto-save-file-location
|
||||
(cl-case dotspacemacs-auto-save-file-location
|
||||
(cache (let ((autosave-dir (concat spacemacs-auto-save-directory "site/")))
|
||||
(add-to-list 'auto-save-file-name-transforms
|
||||
`(".*" ,autosave-dir t) 'append)
|
||||
|
|
|
@ -51,7 +51,7 @@
|
|||
current session"
|
||||
(and erc-sasl-use-sasl
|
||||
(boundp 'erc-session-server)
|
||||
(loop for re in erc-sasl-server-regexp-list
|
||||
(cl-loop for re in erc-sasl-server-regexp-list
|
||||
thereis (integerp (string-match re erc-session-server)))))
|
||||
|
||||
(define-erc-response-handler (CAP)
|
||||
|
|
Loading…
Reference in New Issue