Faces in Perl POD

[Daniel Pfeiffer]

Hi,

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))))

coralament / best Grötens / liebe Grüße / best regards / elkorajn salutojn
Daniel Pfeiffer

-- 
lerne / learn / apprends / läramå    Esperanto:
                              http://lernu.net/