Re: XEmacs equivalent of emacs mode line data?
Ar an naoú lá déag de mí Lúnasa, scríobh Raymond Toy:
Does xemacs have some equivalent of emacs :eval form for mode line
data, as mentioned here:
<http://www.gnu.org/software/emacs/elisp/html_node/Mode-Line-Data.html>
This shows up in slime where currently slime updates the modeline by
scanning every buffer to see if it is in slime-mode and updating the
modeline appropriately. When there are a dozen buffers or more, slime
drastically slows down.
There isn’t yet. I would be shocked if were absolutely necessary, though;
does replacing #'slime-recompute-modelines with the below (untested, I
haven’t used slime much) improve things for you? And yes, byte-compilation
is the way to go!
(defmacro slime-recompute-modelines ()
;; Avoid a needless runtime funcall on GNU Emacs:
(and (featurep 'xemacs) `(slime-xemacs-recompute-modelines)))
(defun slime-xemacs-recompute-modelines ()
(let (redraw-modeline)
(walk-windows
#'(lambda (object)
(setq object (window-buffer object))
(when (or (symbol-value-in-buffer 'slime-mode object)
(symbol-value-in-buffer 'slime-popup-buffer-mode object))
;; Only do the unwind-protect of #'with-current-buffer if we're
;; actually interested in this buffer:
(with-current-buffer object
(setq slime-modeline-string (slime-modeline-string)
redraw-modeline t))))
'never 'visible)
(and redraw-modeline (redraw-modeline t))))
--
“Apart from the nine-banded armadillo, man is the only natural host of
Mycobacterium leprae, although it can be grown in the footpads of mice.”
-- Kumar & Clark, Clinical Medicine, summarising improbable leprosy research
_______________________________________________
XEmacs-Beta mailing list
XEmacs-Beta(a)xemacs.org
http://calypso.tux.org/mailman/listinfo/xemacs-beta