   (interactive)
   (when (eq major-mode 'go-mode) (gofmt)))
 
-(defun godoc-read-query ()
+(defun godoc--read-query ()
   "Read a godoc query from the minibuffer."
   ;; Compute the default query as the symbol under the cursor.
   ;; TODO: This does the wrong thing for e.g. multipart.NewReader (it only grabs

(defun go-goto-beginning-of-string-or-comment ()
  (goto-char (nth 8 (syntax-ppss))))

(defun go-backward-irrelevant ()
  (let (pos (start-pos (point)))
    (skip-chars-backward "\n[:blank:]")
    (if (looking-back "`")

            (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))))))
