/[emacs]/emacs/lisp/printing.el
ViewVC logotype

Diff of /emacs/lisp/printing.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by kfstorm, Fri Feb 7 23:10:24 2003 UTC revision 1.3 by viniciusjl, Mon Mar 3 20:03:18 2003 UTC
# Line 1  Line 1 
1  ;;; printing.el --- printing utilities  ;;; printing.el --- printing utilities
2    
3  ;; Copyright (C) 2000, 2001, 2002  ;; Copyright (C) 2000, 2001, 2002, 2003
4  ;; Free Software Foundation, Inc.  ;; Free Software Foundation, Inc.
5    
6  ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>  ;; Author: Vinicius Jose Latorre <vinicius@cpqd.com.br>
# Line 2344  See `pr-ps-printer-alist'.") Line 2344  See `pr-ps-printer-alist'.")
2344         ,@body         ,@body
2345         (kill-buffer temp))))         (kill-buffer temp))))
2346    
 (eval-and-compile  
 (defun pr-get-symbol (name)  
   ;; Recent versions of easy-menu downcase names before interning them.  
   (and (fboundp 'easy-menu-name-match)  
        (setq name (downcase name)))  
   (or (intern-soft name)  
       (make-symbol name)))  
 )  
   
2347    
2348  (defsubst pr-visible-p (key)  (defsubst pr-visible-p (key)
2349    (memq key pr-visible-entry-list))    (memq key pr-visible-entry-list))
# Line 2371  See `pr-ps-printer-alist'.") Line 2362  See `pr-ps-printer-alist'.")
2362    
2363    
2364  (eval-and-compile  (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    
2372    (cond    (cond
2373     ((eq ps-print-emacs-type 'emacs)     ; GNU Emacs     ((eq ps-print-emacs-type 'emacs)     ; GNU Emacs
2374      (defsubst pr-region-active-p ()      (defsubst pr-region-active-p ()

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26