mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-24 07:20:37 +00:00
Code Issues Releases Activity

* lisp/printing.el: Drop Emacs 20 code.

Browse Source
This commit is contained in:
Glenn Morris 2010-10-02 19:17:47 -07:00
parent 0f810fbf3e
commit 6abfe35f16
2 changed files with 5 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -1,5 +1,7 @@
2010-10-03 Glenn Morris <rgm@gnu.org>
* printing.el: Drop Emacs 20 code.
* calendar/appt.el (appt-delete): Don't autoload it (you can't use it
without having used appt.el already).

21
lisp/printing.el
View File

@ -1,7 +1,7 @@
;;; printing.el --- printing utilities
;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;; Free Software Foundation, Inc.
;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
;; 2010 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Maintainer: Vinicius Jose Latorre <viniciusjl@ig.com.br>
@ -1387,20 +1387,6 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
(require 'easymenu)) ; to avoid compilation gripes
(eval-and-compile
(cond
;; GNU Emacs 20
((< emacs-major-version 21)
(defun pr-global-menubar (pr-menu-spec)
(require 'easymenu)
(easy-menu-change '("tools") "Printing" pr-menu-spec pr-menu-print-item)
(when pr-menu-print-item
(easy-menu-remove-item nil '("tools") pr-menu-print-item)
(setq pr-menu-print-item nil
pr-menu-bar (vector 'menu-bar 'tools
(pr-get-symbol "Printing")))))
)
;; GNU Emacs 21 & 22
(t
(defun pr-global-menubar (pr-menu-spec)
(require 'easymenu)
(let ((menu-file (if (= emacs-major-version 21)
@ -1422,8 +1408,7 @@ Used by `pr-menu-bind' and `pr-update-menus'.")
(t
(easy-menu-add-item global-map menu-file
(easy-menu-create-menu "Print" pr-menu-spec)))
)))
)))
))))
(eval-and-compile
(cond