Browse files

Remove use of CL

  • Loading branch information...
nonsequitur committed Aug 11, 2012
1 parent 7c6fb9c commit fdb3f2b401c3cba9c76622e6b975ae8acb5e4c81
Showing with 2 additions and 4 deletions.
  1. +2 −4 smex.el
@@ -27,8 +27,6 @@
;;; Code:
(require 'ido)
-;; Provides `union', `dolist' and `delete-if'.
-(require 'cl)
(defgroup smex nil
"M-x interface with Ido-style fuzzy matching and ranking heuristics."
@@ -117,8 +115,8 @@ Set this to nil to disable fuzzy matching."
(defun smex-major-mode-commands ()
"Like `smex', but limited to commands that are relevant to the active major mode."
- (let ((commands (union (extract-commands-from-keymap (current-local-map))
- (extract-commands-from-features major-mode))))
+ (let ((commands (delete-dups (append (extract-commands-from-keymap (current-local-map))
+ (extract-commands-from-features major-mode)))))
(setq commands (smex-sort-according-to-cache commands))
(setq commands (mapcar (lambda (command) (symbol-name command)) commands))
(smex-read-and-run commands)))

0 comments on commit fdb3f2b

Please sign in to comment.