add autoload

Author: markgdawson

src/el/sayid.el

@@ -718,19 +718,56 @@ Disable traces, load buffer, enable traces, clear log."
         (setq paths (cdr paths)))
       (car paths))))
 
-;;;###autoload
-(defun sayid-buffer-nav-from-point ()
-  "Navigate from sayid buffer to function source."
+(defun sayid-buffer-file-at-point ()
+  "Return file path for function at point in sayid buffer."
   (interactive)
   (let* ((file (get-text-property (point) 'src-file))
-         (line (get-text-property (point) 'src-line))
          (xfile (sayid-find-existing-file file)))
     (if xfile
-        (progn
-          (pop-to-buffer (find-file-noselect xfile))
-          (goto-char (point-min))
-          (forward-line (- line 1)))
-      (message (concat "File not found: " file)))))
+        xfile
+      (user-error (concat "File not found: " file)))))
+
+(defun sayid-buffer-line-at-point ()
+  "Return line number for function at point in sayid buffer."
+  (get-text-property (point) 'src-line))
+
+(defun sayid-buffer--source-buffer-at-point ()
+  "Fetch buffer showing function currently under point in sayid buffer."
+  (let ((line (sayid-buffer-line-at-point))
+        (file (sayid-buffer-file-at-point)))
+    (when file
+      (save-excursion
+        (switch-to-buffer
+         (find-file-noselect file))
+        (goto-char (point-min))
+        (forward-line (- line 1))
+        (current-buffer)))))
+
+(defun sayid-buffer--buffer-display-fn (buffer)
+  "Default function which sayid uses to display BUFFER."
+  (display-buffer
+   buffer
+   '((display-buffer-use-some-window . ((inhibit-same-window . t))))))
+
+;;;###autoload
+(defun sayid-buffer-nav-from-point ()
+  "Navigate from sayid buffer to function source."
+  (interactive)
+  (pop-to-buffer (sayid-buffer--source-buffer-at-point)))
+
+;;;###autoload
+(defun sayid-buffer-follow-next ()
+  "Navigate from sayid buffer to function source."
+  (interactive)
+  (sayid-buffer-nav-to-next)
+  (sayid-buffer--buffer-display-fn (sayid-buffer--source-buffer-at-point)))
+
+;;;###autoload
+(defun sayid-buffer-follow-prev ()
+  "Navigate from sayid buffer to function source."
+  (interactive)
+  (sayid-buffer-nav-to-prev)
+  (sayid-buffer--buffer-display-fn (sayid-buffer--source-buffer-at-point)))
 
 ;;;###autoload
 (defun sayid-buffer-nav-to-prev ()