Dear Daniel, I'm going through my TODO/cperl file, and found a reference to this message of you:
On Wed, Oct 29, 2003 at 10:35:51PM +0100, Daniel Pfeiffer wrote: > here's little goody for pod-writers, that should be integrated in cperl: > > ;; insert this in function cperl-mode instead: > (setq cperl-mode-hook > (lambda () (set (make-local-variable 'facemenu-add-face-function) > 'cperl-facemenu-add-face-function)) > > (defun cperl-facemenu-add-face-function (face end) > (or (get-text-property (point) 'in-pod) > (error "Faces can only be set within POD")) > (setq facemenu-end-add-face (if (eq face 'bold-italic) ">>" ">")) > (cdr (or (assq face '((bold . "B<") > (italic . "I<") > (bold-italic . "B<I<") > (underline . "U<"))) > (error "Face %s not configured for cperl-mode" > face)))) What is this supposed to do, and how to test it? Thanks, Ilya _______________________________________________ Emacs-pretest-bug mailing list [email protected] http://lists.gnu.org/mailman/listinfo/emacs-pretest-bug
