That's a lot simpler, thanks for the patch. (I remember there was some
issue involving the default major-mode that the new emacs on my machine
complained about, I made everything complicated somehow trying to comply
with emac's warning messages)
On Tue, 2011-08-02 at 22:28 +0200, [email protected] wrote:
> 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
------------------------------------------------------------------------------
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
