From a55a6cb925639c9379b3cf53427d5205050a3b5b Mon Sep 17 00:00:00 2001 From: Sameer Ajmani Date: Mon, 5 Mar 2012 14:58:35 -0500 Subject: [PATCH] misc/emacs: fix extra indentation after comments that end with a period in emacs go mode. Thanks Alex Shinn for the patch. R=golang-dev, bradfitz CC=golang-dev https://golang.org/cl/5728063 --- misc/emacs/go-mode.el | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/misc/emacs/go-mode.el b/misc/emacs/go-mode.el index 7fe0934ff0..1af38e3d0e 100644 --- a/misc/emacs/go-mode.el +++ b/misc/emacs/go-mode.el @@ -406,6 +406,22 @@ token on the line." (when (/= (skip-chars-backward "[:word:]_") 0) (not (looking-at go-mode-non-terminating-keywords-regexp))))))) +(defun go-mode-backward-skip-comments () + "Skip backward over comments and whitespace." + (when (not (bobp)) + (backward-char)) + (while (and (not (bobp)) + (or (eq 32 (char-syntax (char-after (point)))) + (go-mode-cs))) + (skip-syntax-backward "-") + (when (and (not (bobp)) (eq 32 (char-syntax (char-after (point))))) + (backward-char)) + (when (go-mode-cs) + (let ((pos (previous-single-property-change (point) 'go-mode-cs))) + (if pos (goto-char pos) (goto-char (point-min)))))) + (when (and (not (go-mode-cs)) (eq 32 (char-syntax (char-after (1+ (point)))))) + (forward-char 1))) + (defun go-mode-indentation () "Compute the ideal indentation level of the current line. @@ -451,7 +467,8 @@ indented one level." (incf indent tab-width)) ((?\() (goto-char (car nest)) - (forward-comment (- (buffer-size))) + (beginning-of-line) + (go-mode-backward-skip-comments) ;; Really just want the token before (when (looking-back "\\