Delete some commented out code in cperl-mode.el

The differences between this and the existing `cperl-ps-print-init'
are that some faces had been moved from italic to bold or vice versa,
and that there were some obsolete or non-existent face names
mentioned.  So there is no point to keeping it given that it's been
commented out since 1999.

* lisp/progmodes/cperl-mode.el: Delete code commented out since 1999:
a slightly different, duplicate definition of `cperl-ps-print-init'.

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 85229250ee005bda5ee6608eed98c45ea652cc87..55900a1b62afc24b327ef2ad1ddc7238252cb72a 100644 (file)
--- a/lisp/progmodes/cperl-mode.el
+++ b/lisp/progmodes/cperl-mode.el
@@ -6045,39 +6045,6 @@ Style of printout regulated by the variable `cperl-ps-print-face-properties'."
     (ps-extend-face-list cperl-ps-print-face-properties)
     (ps-print-buffer-with-faces file)))
 
-;; (defun cperl-ps-print-init ()
-;;   "Initialization of `ps-print' components for faces used in CPerl."
-;;   ;; Guard against old versions
-;;   (defvar ps-underlined-faces nil)
-;;   (defvar ps-bold-faces nil)
-;;   (defvar ps-italic-faces nil)
-;;   (setq ps-bold-faces
-;;     (append '(font-lock-emphasized-face
-;;               cperl-array-face
-;;               font-lock-keyword-face
-;;               font-lock-variable-name-face
-;;               font-lock-constant-face
-;;               font-lock-reference-face
-;;               font-lock-other-emphasized-face
-;;               cperl-hash-face)
-;;             ps-bold-faces))
-;;   (setq ps-italic-faces
-;;     (append '(cperl-nonoverridable-face
-;;               font-lock-constant-face
-;;               font-lock-reference-face
-;;               font-lock-other-emphasized-face
-;;               cperl-hash-face)
-;;             ps-italic-faces))
-;;   (setq ps-underlined-faces
-;;     (append '(font-lock-emphasized-face
-;;               cperl-array-face
-;;               font-lock-other-emphasized-face
-;;               cperl-hash-face
-;;               cperl-nonoverridable-face font-lock-type-face)
-;;             ps-underlined-faces))
-;;   (cons 'font-lock-type-face ps-underlined-faces))
-
-
 (cperl-windowed-init)
 
 (defconst cperl-styles-entries