What is the status of the "future" package? I have a function I'd like
to put in there to simplify an Emacs synch I'm working on.
;; XEmacs < 2.5.16 supports only 2 parameters to pos-visible-in-window-p.
;; Ignoring the third argument (PARTIALLY) is safe, in the sense that it may
;; make the display slightly less pretty than it would be if the argument were
;; supported, but nothing will crash or return incorrect results.
(when (eq (function-max-args #'pos-visible-in-window-p) 2)
(defconst internal-pos-visible-in-window-p
(symbol-function 'pos-visible-in-window-p)
"The builtin function originally named `pos-visible-in-window-p'.")
(fset 'pos-visible-in-window-p
#'(lambda (&optional pos window partially)
"Returns t if position POS is currently on the frame in WINDOW.
Returns nil if that position is scrolled vertically out of view.
If a character is only partially visible, nil is returned, unless the
optional argument PARTIALLY is non-nil.
POS defaults to point in WINDOW's buffer; WINDOW, to the selected window."
(funcall internal-pos-visible-in-window-p pos window))))
Should I use defadvice instead? (FWIW, I first used lexical-let instead
of the defconst above, but that mangled the docstring of
pos-visible-in-window-p. This is essentially what lexical-let expands
to, anyway.)
--
Jerry James
http://www.ittc.ku.edu/~james/