Commits

Ivan Andrus  committed 2449570

Include ## documentation in defun

  • Participants
  • Parent commits 6acf5d0

Comments (0)

Files changed (1)

               (gap-find-matching "\\<function\\>" "\\<end\\>" "\\<end\\>" -1 t)
               (gap-match-group))
     (setq arg (1- arg)))
-  (beginning-of-line)
+  ;; Skip backwards past the documentation
+  (forward-line -1)
+  (while (and (> (point) (point-min))
+              (looking-at "^#[#A-Z]"))
+    (forward-line -1))
+  (unless (looking-at "^#[#A-Z]")
+    (forward-line 1))
   ;; Signal that we found one
   t)