Permalink
Browse files

Merge purcell/master

  • Loading branch information...
2 parents 9d31706 + 8f4e641 commit 1d9ac204a99330222a3dddffb41247d36a2d65c3 @purcell purcell committed Jun 29, 2012
Showing with 6 additions and 7 deletions.
  1. +5 −6 inflections.el
  2. +1 −1 jump.el
View
@@ -27,12 +27,11 @@
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
;;; Code:
-(eval-when-compile
- (require 'cl)
- (defvar inflection-singulars nil)
- (defvar inflection-plurals nil)
- (defvar inflection-irregulars nil)
- (defvar inflection-uncountables nil))
+(require 'cl)
+(defvar inflection-singulars nil)
+(defvar inflection-plurals nil)
+(defvar inflection-irregulars nil)
+(defvar inflection-uncountables nil)
(defmacro define-inflectors (&rest specs)
(loop for (type . rest) in specs do
View
@@ -256,7 +256,7 @@ MAKE to create the target file."
(reverse matches)) t))))
((functionp spec) (eval (list spec)))
((equal t spec) t)
- (t (message (format "unrecognized jump-from specification format %s")))))
+ (t (message (format "unrecognized jump-from specification format %s" spec)))))
;;;###autoload
(defmacro defjump (name specs root &optional doc make method-command)

0 comments on commit 1d9ac20

Please sign in to comment.