Mercurial > emacs
comparison lisp/printing.el @ 50017:0ee18dc00572
vinicius: copyright date fix. Move pr-get-symbol into eval-and-compile.
author | Vinicius Jose Latorre <viniciusjl@ig.com.br> |
---|---|
date | Mon, 03 Mar 2003 20:03:18 +0000 |
parents | 31cb523592a1 |
children | 695cf19ef79e |
comparison
equal
deleted
inserted
replaced
50016:03e0aadb68a0 | 50017:0ee18dc00572 |
---|---|
1 ;;; printing.el --- printing utilities | 1 ;;; printing.el --- printing utilities |
2 | 2 |
3 ;; Copyright (C) 2000, 2001, 2002 | 3 ;; Copyright (C) 2000, 2001, 2002, 2003 |
4 ;; Free Software Foundation, Inc. | 4 ;; Free Software Foundation, Inc. |
5 | 5 |
6 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 6 ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
7 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> | 7 ;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br> |
8 ;; Keywords: wp, print, PostScript | 8 ;; Keywords: wp, print, PostScript |
2342 ;; be sure to access global menubar | 2342 ;; be sure to access global menubar |
2343 (set-buffer temp) | 2343 (set-buffer temp) |
2344 ,@body | 2344 ,@body |
2345 (kill-buffer temp)))) | 2345 (kill-buffer temp)))) |
2346 | 2346 |
2347 (eval-and-compile | |
2348 (defun pr-get-symbol (name) | |
2349 ;; Recent versions of easy-menu downcase names before interning them. | |
2350 (and (fboundp 'easy-menu-name-match) | |
2351 (setq name (downcase name))) | |
2352 (or (intern-soft name) | |
2353 (make-symbol name))) | |
2354 ) | |
2355 | |
2356 | 2347 |
2357 (defsubst pr-visible-p (key) | 2348 (defsubst pr-visible-p (key) |
2358 (memq key pr-visible-entry-list)) | 2349 (memq key pr-visible-entry-list)) |
2359 | 2350 |
2360 | 2351 |
2369 (defsubst pr-using-ghostscript-p () | 2360 (defsubst pr-using-ghostscript-p () |
2370 (and pr-print-using-ghostscript (not pr-spool-p))) | 2361 (and pr-print-using-ghostscript (not pr-spool-p))) |
2371 | 2362 |
2372 | 2363 |
2373 (eval-and-compile | 2364 (eval-and-compile |
2365 (defun pr-get-symbol (name) | |
2366 ;; Recent versions of easy-menu downcase names before interning them. | |
2367 (and (fboundp 'easy-menu-name-match) | |
2368 (setq name (downcase name))) | |
2369 (or (intern-soft name) | |
2370 (make-symbol name))) | |
2371 | |
2374 (cond | 2372 (cond |
2375 ((eq ps-print-emacs-type 'emacs) ; GNU Emacs | 2373 ((eq ps-print-emacs-type 'emacs) ; GNU Emacs |
2376 (defsubst pr-region-active-p () | 2374 (defsubst pr-region-active-p () |
2377 (and pr-auto-region transient-mark-mode mark-active))) | 2375 (and pr-auto-region transient-mark-mode mark-active))) |
2378 | 2376 |