Remove some face aliases obsoleted in 22.1

[gnu-emacs] / lisp / printing.el

diff --git a/lisp/printing.el b/lisp/printing.el
index ae0f3fdbc67215b2caba0544410eb18db1362fba..d9cc2a3614a8cda2660273be1d54ff3d0524526d 100644 (file)
--- a/lisp/printing.el
+++ b/lisp/printing.el
@@ -1,6 +1,6 @@
 ;;; printing.el --- printing utilities
 
-;; Copyright (C) 2000-2001, 2003-2015 Free Software Foundation, Inc.
+;; Copyright (C) 2000-2001, 2003-2016 Free Software Foundation, Inc.
 
 ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
 ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@@ -2929,7 +2929,7 @@ INHERITS  Specify the inheritance for SYMBOL group.  It's a symbol name
                Let's see an example to illustrate the inheritance mechanism:
 
                (setq pr-setting-database
-                     '((no-duplex      ; setting symbol name
+                     \\='((no-duplex   ; setting symbol name
                         nil            ; inherits
                         nil nil        ; local  kill-local
                         (pr-file-duplex . nil) ; settings
@@ -2979,9 +2979,9 @@ SETTING           It's a cons like:
                This setting is ignored if VARIABLE is equal to keyword
                `inherits-from:'.
                Examples:
-                       '(ps-landscape-mode . nil)
-                       '(ps-spool-duplex . t)
-                       '(pr-gs-device . (my-gs-device t))"
+                       (ps-landscape-mode . nil)
+                       (ps-spool-duplex . t)
+                       (pr-gs-device . (my-gs-device t))"
   :type '(repeat
          (list
           :tag ""
@@ -5673,7 +5673,7 @@ If menu binding was not done, calls `pr-menu-bind'."
   (or (listp switches)
       (error "%S should have a list of strings" mess))
   (lpr-flatten-list                    ; dynamic evaluation
-   (mapcar 'ps-eval-switch switches)))
+   (mapcar #'lpr-eval-switch switches)))
 
 
 (defun pr-ps-preview (kind n-up filename mess)