chiark / gitweb /
dot-emacs: Fix the eval-when-compile stanza.
authorMark Wooding <mdw@distorted.org.uk>
Fri, 4 Apr 2008 20:13:18 +0000 (21:13 +0100)
committerMark Wooding <mdw@distorted.org.uk>
Fri, 4 Apr 2008 20:13:18 +0000 (21:13 +0100)
Firstly, it just wasn't spelt correctly!  Secondly, it didn't include
the cl macros, which are useful.  (I henceforth permit the use of CL
macros, but not functions, in dot-emacs.el, on condition that the
expansions don't require CL functions.)

Thirdly, fix mdw-regexps to quote its expansion.

dot-emacs.el

index 0f7cc5d16241e9d41824ceee3dce95ffbe16c813..5d650cf78832fcff3bbccd9302a1c84759d4b80c 100644 (file)
@@ -43,12 +43,14 @@ (let ((probe nil) (next command-line-args))
 
 ;;;----- Some general utilities ---------------------------------------------
 
-(evan-when-compile (or (fboundp 'make-regexp)
-                      (load "make-regexp")))
+(eval-when-compile
+  (unless (fboundp 'make-regexp)
+    (load "make-regexp"))
+  (require 'cl))
 
 (defmacro mdw-regexps (&rest list)
   "Turn a LIST of strings into a single regular expression at compile-time."
-  (make-regexp list))
+  `',(make-regexp list))
 
 ;; --- Some error trapping ---
 ;;