Re: bee-repl-other-frame
Robert Schubert <[email protected]>
| Newsgroups | gmane.lisp.scheme.bigloo |
|---|---|
| Message-ID | <[email protected]> |
Hello Joseph, > Am I crazy, or Is bee-repl-other-frame not defined anywhere in bmacs? > I looked back to at least version 3.7 and could not find a definition. I agree. It's autoloaded but neither defined nor used anywhere. I believe this autoload just needs to be removed, since ude-repl-other-frame already does the job. > This did not seem to cause me any problems until recently. Is anyone else > having trouble with bee-rpl? Just a guess - your problem might be caused by a recent change (attached) to bmacs/ude/ude-repl.el that I had proposed to Manuel. With beta23July13 for me bee-repl works just fine. What trouble exactly do you have (and using which version of Emacs)? Regards, Robert
bmacs-repl.patch
(text/x-patch, 1.5 KB)
--- bmacs/ude/ude-repl.el 2013-04-05
+++ bmacs/ude/ude-repl.el 2013-07-23
@@ -23,15 +23,20 @@
;*---------------------------------------------------------------------*/
;* ude-repl-buffer ... */
;*---------------------------------------------------------------------*/
-(defvar ude-repl-buffer nil)
+(defvar ude-repl-buffer nil
+ "The buffer interacting with `ude-repl-comint-process'.")
(defvar ude-repl-comint-process nil
- "The comint process running Bigloo.")
+ "The comint process running a Bigloo interpreter.")
+(defcustom ude-repl-args '()
+ "Additional arguments to the Bigloo interpreter."
+ :group 'bee
+ :type 'string)
;*---------------------------------------------------------------------*/
;* ude-repl ... */
;*---------------------------------------------------------------------*/
(defun ude-repl ()
- (setq ude-repl-buffer (make-comint ude-repl ude-repl))
+ (setq ude-repl-buffer (make-comint ude-repl ude-repl nil ude-repl-args))
(setq ude-repl-comint-process (get-buffer-process ude-repl-buffer))
(set-process-sentinel ude-repl-comint-process
@@ -81,7 +86,7 @@
;*---------------------------------------------------------------------*/
(defun ude-repl-other-frame ()
(interactive)
- (if (bufferp ude-repl-buffer)
+ (if (and (bufferp ude-repl-buffer) (buffer-name ude-repl-buffer))
(display-buffer ude-repl-buffer))
(ude-repl))