diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-16 21:11:26 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-16 21:16:29 +0200 |
| commit | 74df87704380779ac86b97a39d8500943990efb5 (patch) | |
| tree | 63d0d1ac6a7979af1f12432930ca135c69e01e77 /lisp/progmodes/cperl-mode.el | |
| parent | dc5c8274409fe37199fa20659b55a40b1e47928a (diff) | |
| download | emacs-74df87704380779ac86b97a39d8500943990efb5.tar.gz emacs-74df87704380779ac86b97a39d8500943990efb5.tar.bz2 emacs-74df87704380779ac86b97a39d8500943990efb5.zip | |
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'.
Diffstat (limited to 'lisp/progmodes/cperl-mode.el')
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 85229250ee0..55900a1b62a 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 |