Check set-mark in edts-find-local-function

sebastiw · Feb 19, 2013 · c41d72a · c41d72a
1 parent cc44826
commit c41d72a
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/elisp/edts/edts-navigate.el b/elisp/edts/edts-navigate.el
@@ -38,7 +38,7 @@
           (edts-find-local-function nil))
         (error "No module found"))))
 
-(defun edts-find-local-function(set-mark)
+(defun edts-find-local-function (set-mark)
   "Find a function in the current module."
   (interactive '(t))
   (let* ((functions (ferl-local-functions))
@@ -48,7 +48,7 @@
     (if (string= "-Top of Module-" choice)
         (goto-char 0)
         (goto-char (cdr (assoc choice functions))))
-    (when (not (eq (point) (marker-position mark)))
+    (when (and set-mark (not (eq (point) (marker-position mark))))
       (ring-insert-at-beginning (edts-window-history-ring) mark))))
 
 ;; Borrowed from distel