Permalink
Browse files

Fix the defjump macro root expansion

The macro expansion for the root parameter was broken. It caused rinari to fail
jumping.
  • Loading branch information...
vhallac committed Jul 23, 2011
1 parent 820bb7d commit 948a60704cb974255d769dfcff901dd6c7981b3e
Showing with 2 additions and 2 deletions.
  1. +2 −2 jump.el
View
@@ -289,7 +289,7 @@ find the current method which defaults to `which-function'."
`(defun ,name (&optional create)
,(concat doc "\n\nautomatically created by `defjump'")
(interactive "P")
- (let ((root ,(if (functionp root) (root) root))
+ (let ((root ,(if (functionp root) `(,root) root))
(method-command ,(or method-command 'which-function))
matches)
(loop ;; try every rule in mappings
@@ -319,4 +319,4 @@ find the current method which defaults to `which-function'."
(jump-to (cdr spec) matches (when create ,make)))))))))
(provide 'jump)
-;;; jump.el ends here
+;;; jump.el ends here

0 comments on commit 948a607

Please sign in to comment.