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

Teach emacs M-x gofmt to save region/restrictions

Browse Source 
R=agl, agl1
https://golang.org/cl/152078
This commit is contained in:
Kevin Ballard 2009-11-12 18:40:42 -08:00 committed by Adam Langley
parent 780dbdc024
commit 6c2ae1a625
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -475,4 +475,15 @@ Useful for development work."
"Pipe the current buffer through the external tool `gofmt`."
(interactive)
(shell-command-on-region 1 (+ (buffer-size) 1) "gofmt" t t shell-command-default-error-buffer))
;; for some reason save-excursion isn't working
;; probably because shell-command-on-region deletes the contents of the
;; region before filling in the new values
;; so we will save the point/mark by hand
;; similarly we can't use push-mark/pop-mark
(let ((old-mark (mark t)) (old-point (point)))
(save-restriction
(let (deactivate-mark)
(widen)
(shell-command-on-region (point-min) (point-max) "gofmt" t t shell-command-default-error-buffer)))
(goto-char (min old-point (point-max)))
(if old-mark (set-mark (min old-mark (point-max))))))