haskal
/
utop
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #111 from mads379/master 

#108 Enable utop-command to be buffer-local
This commit is contained in:
Jérémie Dimino 2014-11-05 11:59:39 +01:00
parent 35419a3284 137151cca9
commit b7259ae286
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/top/utop.el
View File

@ -1229,10 +1229,14 @@ Special keys for utop:
(utop-query-arguments) (utop-query-arguments)
;; Create the buffer ;; Create the buffer
(setq buf (get-buffer-create utop-buffer-name)) (setq buf (get-buffer-create utop-buffer-name))
;; Jump to the buffer ;; Jump to the buffer - If utop-command is used as a
(pop-to-buffer buf) ;; buffer-local variable we pass the value along to the utop
;; Put it in utop mode ;; buffer.
(with-current-buffer buf (utop-mode)))) (let ((cmd utop-command))
(pop-to-buffer buf)
(setq utop-command cmd)
;; Put it in utop mode
(with-current-buffer buf (utop-mode)))))
buf)) buf))
(provide 'utop) (provide 'utop)