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

go.tools/cmd/oracle: cosmetic tweaks to Emacs.

Browse Source 
1. call display-buffer after the postprocessing step to avoid display glitch.
2. suppress the postprocessing progress message---it's too verbose.
   (instead I should just make the postprocessing loop faster)

Also: rename channel-peers to just peers for consistency with other commands and documentation.

R=dominik.honnef
CC=golang-dev
https://golang.org/cl/13388044
This commit is contained in:
Alan Donovan 2013-09-03 15:41:05 -04:00
parent d2cdbefbfc
commit 48d14ded32
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
cmd/oracle/oracle.el
View File

@ -106,10 +106,6 @@ result."
(insert "\n")
(compilation-mode)
(setq compilation-error-screen-columns nil)
(let ((w (display-buffer (current-buffer))))
(balance-windows)
(shrink-window-if-larger-than-buffer w)
(set-window-point w (point-min)))
;; Hide the file/line info to save space.
;; Replace each with a little widget.
@ -121,7 +117,7 @@ result."
(while (not (null p))
(let ((np (compilation-next-single-property-change p 'compilation-message)))
;; TODO(adonovan): this can be verbose in the *Messages* buffer.
(message "Post-processing link (%d%%)" (/ (* p 100) (point-max)))
;; (message "Post-processing link (%d%%)" (/ (* p 100) (point-max)))
(if np
(when (equal (line-number-at-pos p) (line-number-at-pos np))
;; np is (typically) the space following ":"; consume it too.
@ -129,7 +125,12 @@ result."
(goto-char np)
(insert " ")))
(setq p np)))
(message nil)))))
(message nil))
(let ((w (display-buffer (current-buffer))))
(balance-windows)
(shrink-window-if-larger-than-buffer w)
(set-window-point w (point-min))))))
(defun go-oracle-callees ()
"Show possible callees of the function call at the current point."
@ -168,7 +169,7 @@ containing the current point."
(interactive)
(go-oracle--run "freevars"))
(defun go-oracle-channel-peers ()
(defun go-oracle-peers ()
"Enumerate the set of possible corresponding sends/receives for
this channel receive/send operation."
(interactive)