+ (if (or (not function) + (and (> (point) (1+ (point-min))) + (or (save-excursion (backward-char 2) (looking-at "'(")) + (keywordp (intern-soft function))) + (not (fboundp (intern-soft function)))))
The problem is, this will do the wrong thing when you edit a call to a function defined in a file that isn't loaded. It might be better to check for a quote in front of the current list or a surrounding list. That could work reliably. _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel