Small fix to cdm-mode

1 files changed, 12 insertions, 12 deletions

diff --git a/emacs/scripts/acquiesce.el b/emacs/scripts/acquiesce.el
index 0dcf9fc..addbd8d 100644
--- a/emacs/scripts/acquiesce.el
+++ b/emacs/scripts/acquiesce.el
@@ -1,4 +1,4 @@
-(require 'cl)
+(require 'cl-lib)
 
 (defmacro default (expr default)
   "If `expr' evaluates to non-null then return the result, otherwise give `default'."
@@ -17,17 +17,17 @@
   (let ((dirs (list start-dir)) found)
     (cl-loop
      while (and (not found) (/= depth 0)) do
-     (let (ndirs) 
+     (let (ndirs)
        (cl-loop for dir in dirs unless found do
                 (let ((candidates (directory-files-and-attributes
                                    dir t
-                                   directory-files-no-dot-files-regexp))) 
+                                   directory-files-no-dot-files-regexp)))
                   (cl-loop for file in candidates unless found do
                            (let ((name (nth 0 file))
-                                 (is-dir (nth 1 file))) 
+                                 (is-dir (nth 1 file)))
                              (if is-dir (add-to-list 'ndirs name nil nil)
                                (when (string-match-p regexp name)
-                                 (setq found name) nil))))))       
+                                 (setq found name) nil))))))
        (setq depth (1- depth))
        (setq dirs ndirs)))
     found))
@@ -68,7 +68,7 @@ following in order:
            ((or col-s line-s) (found (acme--recursive-locate-file
                                       fn dir
                                       acme-find-file-recursive-depth)))
-           
+
            ))))))
 
 (defun acme--process-file (file)
@@ -129,7 +129,7 @@ buffers."
     (if (and existing-tags (not init))
         (setf (cdr (assoc cur-buff acme--tag-buffers-alist))
               (buffer-string)))
-    (erase-buffer) 
+    (erase-buffer)
     (if existing-tags (insert (cdr existing-tags))
       (let ((new-tags (concat default-directory " "
                               (buffer-name new-buff)
@@ -145,7 +145,7 @@ buffers."
       (setq acme--tag-buffer nil)))
   (when acme--tag-window
     (unless (window-live-p acme--tag-window)
-      (setq acme--tag-window nil)))  
+      (setq acme--tag-window nil)))
   (when acme-delete-other-windows (delete-other-windows))
   (let* ((tag-win (selected-window))
          (content-win (split-window-vertically 2)))
@@ -218,7 +218,7 @@ I/O (useful for piping through commands, for example)."
     (save-excursion
       (if (eq acme--input-pointer 'EMPTY)
           (call-process cmd nil `(:file ,out-file) nil args)
-        (let ((in-file (make-temp-file "acme--execute-command-input")))            
+        (let ((in-file (make-temp-file "acme--execute-command-input")))
           (set-buffer (plist-get acme--input-pointer :BUFFER))
           (write-region (plist-get acme--input-pointer :START)
                         (plist-get acme--input-pointer :END)
@@ -231,7 +231,7 @@ I/O (useful for piping through commands, for example)."
             (end-of-buffer))
         (let ((out-buffer (plist-get acme--output-pointer :BUFFER))
               (s (plist-get acme--output-pointer :START))
-              (e (plist-get acme--output-pointer :END))) 
+              (e (plist-get acme--output-pointer :END)))
           (set-buffer out-buffer)
           (beginning-of-buffer)
           (when e (delete-region s e))
@@ -266,7 +266,7 @@ URLS and other things"
 
 (defun acme-execute ()
   "A DWIM executor. The command to execute is retrieved with
-  `acme--extract-string'. 
+  `acme--extract-string'.
 
 If the command begins with a $, then it is interpreted as a shell
 command in the following ways:
@@ -292,7 +292,7 @@ If the command does not start with a $, then it shipped off to
 eshell where more magic happens.
 "
 
-  (interactive)  
+  (interactive)
   (let ((str (acme--extract-string)))
     (if (string-prefix-p "$" str)
         (acme--execute-command (subseq str 1))