qbit/go
1
0
Fork 0
mirror of https://github.com/golang/go synced 2024-11-11 22:40:22 -07:00
Code Releases Activity

misc/emacs: Replace replace-{string|regexp} for XEmacs compatible code

Browse Source 
Use code to be used in lisp programs as suggested in the doc strings for
replace-{string|regexp}. Bonus: This code works for XEmacs.

R=golang-dev, sameer, jmeurin
CC=golang-dev
https://golang.org/cl/6296073
This commit is contained in:
Mats Lidell 2012-06-21 13:01:54 -04:00 committed by Sameer Ajmani
parent 7f689864d8
commit cbcf358d29
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -819,8 +819,9 @@ Replace the current buffer on success; display errors on failure."
(require 'diff-mode)
;; apply all the patch hunks
(with-current-buffer patchbuf
(replace-regexp "^--- /tmp/gofmt[0-9]*" (concat "--- " filename)
nil (point-min) (point-max))
(goto-char (point-min))
(if (re-search-forward "^--- \\(/tmp/gofmt[0-9]*\\)" nil t)
(replace-match filename nil nil nil 1))
(condition-case nil
(while t
(diff-hunk-next)
@ -831,9 +832,10 @@ Replace the current buffer on success; display errors on failure."
(defun gofmt-process-errors (filename errbuf)
;; Convert the gofmt stderr to something understood by the compilation mode.
(with-current-buffer errbuf
(beginning-of-buffer)
(goto-char (point-min))
(insert "gofmt errors:\n")
(replace-string gofmt-stdin-tag (file-name-nondirectory filename) nil (point-min) (point-max))
(if (search-forward gofmt-stdin-tag nil t)
(replace-match (file-name-nondirectory filename) nil t))
(display-buffer errbuf)
(compilation-mode)))