qbit/go
1
0
Fork 0
mirror of https://github.com/golang/go synced 2024-11-15 09:20:58 -07:00
Code Releases Activity

[release-branch.go1] go-mode: Works for both GNU-Emacs and XEmacs-21.5

Browse Source 
««« backport 83f7ee1fa792
go-mode: Works for both GNU-Emacs and XEmacs-21.5

Fixes some portability issues between the Emacsen.

R=golang-dev, sameer, bradfitz, ryanb
CC=golang-dev
https://golang.org/cl/6206043

»»»
This commit is contained in:
Mats Lidell 2012-06-13 16:24:30 -04:00 committed by Sameer Ajmani
parent 56ef99d910
commit 19af0b28c5
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
misc/emacs/go-mode.el
View File

@ -33,8 +33,8 @@
;; Operators (punctuation)
(modify-syntax-entry ?+ "." st)
(modify-syntax-entry ?- "." st)
(modify-syntax-entry ?* ". 23" st) ; also part of comments
(modify-syntax-entry ?/ ". 124b" st) ; ditto
(modify-syntax-entry ?* ". 23" st) ; also part of comments
(modify-syntax-entry ?/ (if (featurep 'xemacs) ". 1456" ". 124b") st) ; ditto
(modify-syntax-entry ?% "." st)
(modify-syntax-entry ?& "." st)
(modify-syntax-entry ?| "." st)
@ -442,7 +442,7 @@ if no further tokens of the type exist."
(when (search-forward "\n" (cdr cs) t)
(put-text-property
(car cs) (cdr cs) 'font-lock-multline t))
(set-match-data (list (car cs) (cdr cs) (current-buffer)))
(set-match-data (list (car cs) (copy-marker (cdr cs))))
(goto-char (cdr cs))
(setq result t))
;; Wrong type. Look for next comment/string after this one.
@ -554,7 +554,7 @@ token on the line."
(defun go-mode-whitespace-p (char)
"Is newline, or char whitespace in the syntax table for go."
(or (eq char ?\n)
(eq 32 (char-syntax char))))
(= (char-syntax char) ?\ )))
(defun go-mode-backward-skip-comments ()
"Skip backward over comments and whitespace."