SCM Repository
| [smlnj] / sml / trunk / sml-mode / sml-proc.el |
Diff of /sml/trunk/sml-mode/sml-proc.el
Parent Directory
| 
Revision Log
| 
Patch
| revision 887, Thu Jul 19 20:18:58 2001 UTC | revision 888, Thu Jul 19 20:24:21 2001 UTC | |
|---|---|---|
| # | Line 280 | Line 280 |
| 280 | ;; buffer-name returns nil if the buffer has been killed | ;; buffer-name returns nil if the buffer has been killed |
| 281 | (and buf (buffer-name buf) buf))) | (and buf (buffer-name buf) buf))) |
| 282 | ;; no buffer found, make a new one | ;; no buffer found, make a new one |
| 283 | (call-interactively 'run-sml))) | (save-excursion (call-interactively 'run-sml)))) |
| 284 | ||
| 285 | (defun sml-buffer (echo) | (defun sml-buffer (echo) |
| 286 | "Make the current buffer the current `sml-buffer' if that is sensible. | "Make the current buffer the current `sml-buffer' if that is sensible. |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
