 (defun go--match-func (end)
   "Search for identifiers used as type names from a function
 parameter list, and set the identifier positions as the results
-of last search. Return t if search succeeded."
+of last search.  Return t if search succeeded."
   (when (re-search-forward (go--regexp-enclose-in-symbol "func") end t)
     (let ((regions (go--match-func-type-names end)))
       (if (null regions)

         (point-min))))

(defun go--match-raw-string-literal (end)
  "Search for a raw string literal. Set point to the end of the
occurence found on success. Returns nil on failure."
  (unless (go-in-string-or-comment-p)
    (when (search-forward "`" end t)
      (goto-char (match-beginning 0))

(defmacro go--xemacs-p ()
  `(featurep 'xemacs))

(defun go--delete-whole-line (&optional arg)
  "Delete the current line without putting it in the `kill-ring'.
Derived from function `kill-whole-line'.  ARG is defined as for that
function."
  (setq arg (or arg 1))
  (if (and (> arg 0)
           (eobp)
