diff options
| author | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2013-11-04 08:39:27 +0100 |
|---|---|---|
| committer | Thierry Volpiatto <thierry.volpiatto@gmail.com> | 2013-11-04 08:39:27 +0100 |
| commit | b82caa80eaa937adc1246298865bb52cc4534fc1 (patch) | |
| tree | b6874f14a385c0085bad02fe10f2624d103d0496 /helm-misc.el | |
| parent | 82d3cde7d7708b62b9524a75fdd5fe2ddffbfdd9 (diff) | |
replace all cl symbol by their cl-lib equivalent.
Diffstat (limited to 'helm-misc.el')
| -rw-r--r-- | helm-misc.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/helm-misc.el b/helm-misc.el index 5e21de96..a65a8264 100644 --- a/helm-misc.el +++ b/helm-misc.el @@ -43,9 +43,9 @@ ;;; Latex completion (defun helm-latex-math-candidates () "Collect candidates for latex math completion." - (declare (special LaTeX-math-menu)) - (loop for i in (cddr LaTeX-math-menu) - for elm = (loop for s in i when (vectorp s) + (cl-declare (special LaTeX-math-menu)) + (cl-loop for i in (cddr LaTeX-math-menu) + for elm = (cl-loop for s in i when (vectorp s) collect (cons (aref s 0) (aref s 1))) append elm)) @@ -121,7 +121,7 @@ http://www.emacswiki.org/cgi-bin/wiki/download/linkd.el") . (lambda () (ignore-errors (with-helm-current-buffer - (loop initially (goto-char (point-min)) + (cl-loop initially (goto-char (point-min)) while (re-search-forward (format ee-anchor-format "\\([^\.].+\\)") nil t) for anchor = (match-string-no-properties 1) @@ -140,7 +140,7 @@ http://www.emacswiki.org/cgi-bin/wiki/download/linkd.el") "List online Jabber contacts." (with-no-warnings (let (jids) - (dolist (item (jabber-concat-rosters) jids) + (cl-dolist (item (jabber-concat-rosters) jids) (when (get item 'connected) (push (if (get item 'name) (cons (get item 'name) item) @@ -159,7 +159,7 @@ http://www.emacswiki.org/cgi-bin/wiki/download/linkd.el") ;;; World time ;; (defun helm-time-zone-transformer (candidates sources) - (loop for i in candidates + (cl-loop for i in candidates collect (cond ((string-match (format-time-string "%H:%M" (current-time)) i) (propertize i 'face 'helm-time-zone-current)) @@ -214,7 +214,7 @@ It is added to `extended-command-history'. (format "%s (%s)" name minibuffer-history-variable))) (candidates . (lambda () - (let ((history (loop for i in + (let ((history (cl-loop for i in (symbol-value minibuffer-history-variable) unless (string= "" i) collect i))) (if (consp (car history)) |