 (defun go-goto-beginning-of-string-or-comment ()
   (goto-char (nth 8 (syntax-ppss))))
 
-(defun go-backward-irrelevant ()
+(defun go--backward-irrelevant ()
   (let (pos (start-pos (point)))
     (skip-chars-backward "\n[:blank:]")
     (if (looking-back "`")

    (when buffer (kill-buffer buffer))
    (get-buffer-create buffer-name)))

(defun godoc-buffer-sentinel (proc event)
  "Sentinel function run when godoc command completes."
  (with-current-buffer (process-buffer proc)
    (cond ((string= event "finished\n")  ;; Successful exit.

            (let ((file (concat dir "/" file)))
              (when (file-directory-p file)
                (setq dirs (append (cons file
                                         (go--directory-dirs file))
                                   dirs))))))
        dirs)
    '()))

(defun go--flatten (lst)
  (if (atom lst)
      (list lst)
    (let ((item (car lst))
          (rest (cdr lst)))
      (if (not (atom item))
          (if rest
              (append (go--flatten item) (go--flatten rest))
            (let ((item-rest (cdr item)))
              (if item-rest
                  (append (go--flatten (car item))(go--flatten item-rest))
                (go--flatten (car item)))))
        (if rest
            (if item
                (append (list item) (go--flatten rest))
              (go--flatten rest))
          (if item
              (list item)
            nil))))))
