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 |