Hi David.
Since may or so, the fomus-run function has set emacs' default
major-mode for some reason. In my emacs this results in breaks in
certain other modes, when setting up temporary buffers (fex. setting up
a new message in message-mode).
Perhaps consider replacing with something based on the patched
fomus-run below?
[andersvi@josefk data]$ pwd
/site/FOMUS/fomus-svn/trunk/src/data
[andersvi@josefk data]$ svn di
Index: fomus.el.in
===================================================================
--- fomus.el.in (revision 817)
+++ fomus.el.in (working copy)
@@ -187,21 +187,12 @@
"Run FOMUS executable on file in current buffer."
(interactive)
(save-some-buffers)
- (let ((b (get-buffer-create "*FOMUS Output*"))
- (c (concat fomus-pathname " ")))
+ (let ((c (concat fomus-pathname " ")))
(if (> (length fomus-args) 0) (setq c (concat c fomus-args " ")))
- ;; (setq fomus-current-error 0)
- (save-excursion
- ;; (set-buffer b)
- (with-current-buffer b
- (setq-default major-mode 'compilation-mode)
- (set-buffer-major-mode b)
- (toggle-read-only -1)
- (erase-buffer)))
- (display-buffer b)
- (let ((process-connection-type nil))
- (start-process-shell-command "fomus" b (concat c (shell-quote-argument
(buffer-file-name)))))
- ))
+ (let ((compilation-scroll-output t))
+ (compilation-start (concat c (shell-quote-argument (buffer-file-name)))
+ 'compilation-mode
+ (lambda (mode) "*FOMUS Output*")))))
(defun fomus-run-args ()
"Run FOMUS on file in current buffer, prompting for additional arguments."
(interactive)
------------------------------------------------------------------------------
BlackBerry® DevCon Americas, Oct. 18-20, San Francisco, CA
The must-attend event for mobile developers. Connect with experts.
Get tools for creating Super Apps. See the latest technologies.
Sessions, hands-on labs, demos & much more. Register early & save!
http://p.sf.net/sfu/rim-blackberry-1
_______________________________________________
fomus-user mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/fomus-user
