diff options
| author | Glenn Morris | 2010-10-02 19:17:47 -0700 |
|---|---|---|
| committer | Glenn Morris | 2010-10-02 19:17:47 -0700 |
| commit | 6abfe35f16d4f99bd3f3240e0a2988758f7f5c68 (patch) | |
| tree | 8f56ccc5cc79f609f102fd37e921c8f29244dd27 | |
| parent | 0f810fbf3e409ad01353c8a62e727da4f5e42455 (diff) | |
| download | emacs-6abfe35f16d4f99bd3f3240e0a2988758f7f5c68.tar.gz emacs-6abfe35f16d4f99bd3f3240e0a2988758f7f5c68.zip | |
* lisp/printing.el: Drop Emacs 20 code.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/printing.el | 21 |
2 files changed, 5 insertions, 18 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b252e5b47d7..901516cfeae 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,7 @@ | |||
| 1 | 2010-10-03 Glenn Morris <rgm@gnu.org> | 1 | 2010-10-03 Glenn Morris <rgm@gnu.org> |
| 2 | 2 | ||
| 3 | * printing.el: Drop Emacs 20 code. | ||
| 4 | |||
| 3 | * calendar/appt.el (appt-delete): Don't autoload it (you can't use it | 5 | * calendar/appt.el (appt-delete): Don't autoload it (you can't use it |
| 4 | without having used appt.el already). | 6 | without having used appt.el already). |
| 5 | 7 | ||
diff --git a/lisp/printing.el b/lisp/printing.el index 2cbf39f1967..aacd8d42ae4 100644 --- a/lisp/printing.el +++ b/lisp/printing.el | |||
| @@ -1,7 +1,7 @@ | |||
| 1 | ;;; printing.el --- printing utilities | 1 | ;;; printing.el --- printing utilities |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 | 3 | ;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009, |
| 4 | ;; Free Software Foundation, Inc. | 4 | ;; 2010 Free Software Foundation, Inc. |
| 5 | 5 | ||
| 6 | ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> | 6 | ;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
| 7 | ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> | 7 | ;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br> |
| @@ -1387,20 +1387,6 @@ Used by `pr-menu-bind' and `pr-update-menus'.") | |||
| 1387 | (require 'easymenu)) ; to avoid compilation gripes | 1387 | (require 'easymenu)) ; to avoid compilation gripes |
| 1388 | 1388 | ||
| 1389 | (eval-and-compile | 1389 | (eval-and-compile |
| 1390 | (cond | ||
| 1391 | ;; GNU Emacs 20 | ||
| 1392 | ((< emacs-major-version 21) | ||
| 1393 | (defun pr-global-menubar (pr-menu-spec) | ||
| 1394 | (require 'easymenu) | ||
| 1395 | (easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item) | ||
| 1396 | (when pr-menu-print-item | ||
| 1397 | (easy-menu-remove-item nil '("tools") pr-menu-print-item) | ||
| 1398 | (setq pr-menu-print-item nil | ||
| 1399 | pr-menu-bar (vector 'menu-bar 'tools | ||
| 1400 | (pr-get-symbol "Printing"))))) | ||
| 1401 | ) | ||
| 1402 | ;; GNU Emacs 21 & 22 | ||
| 1403 | (t | ||
| 1404 | (defun pr-global-menubar (pr-menu-spec) | 1390 | (defun pr-global-menubar (pr-menu-spec) |
| 1405 | (require 'easymenu) | 1391 | (require 'easymenu) |
| 1406 | (let ((menu-file (if (= emacs-major-version 21) | 1392 | (let ((menu-file (if (= emacs-major-version 21) |
| @@ -1422,8 +1408,7 @@ Used by `pr-menu-bind' and `pr-update-menus'.") | |||
| 1422 | (t | 1408 | (t |
| 1423 | (easy-menu-add-item global-map menu-file | 1409 | (easy-menu-add-item global-map menu-file |
| 1424 | (easy-menu-create-menu "Print" pr-menu-spec))) | 1410 | (easy-menu-create-menu "Print" pr-menu-spec))) |
| 1425 | ))) | 1411 | )))) |
| 1426 | ))) | ||
| 1427 | 1412 | ||
| 1428 | (eval-and-compile | 1413 | (eval-and-compile |
| 1429 | (cond | 1414 | (cond |