master 74df877043: Delete some commented out code in cperl-mode.el

[Stefan Kangas]

branch: master
commit 74df87704380779ac86b97a39d8500943990efb5
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    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'.
---
 lisp/progmodes/cperl-mode.el | 33 ---------------------------------
 1 file changed, 33 deletions(-)

diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el
index 85229250ee..55900a1b62 100644
--- 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