comparison lisp/printing.el @ 87206:44a37723f2a9

Fix pr-interface-map initialization

87205:c549a264e1f1

;;; printing.el --- printing utilities

;; Copyright (C) 2000, 2001, 2003, 2004, 2005,
;;   2006, 2007 Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; Version: 6.9.2
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst pr-version "6.9.2"
  "printing.el, v 6.9.2 <2007/10/26 vinicius>

Please send all bug fixes and enhancements to
	Vinicius Jose Latorre <[e-mail]>
")

  (defalias 'pr-menu-set-ps-title      'ignore)
  (defalias 'pr-menu-set-txt-title     'ignore)
  (defalias 'pr-region-active-p        'ignore)
  (defalias 'pr-do-update-menus        'ignore)
  (defalias 'pr-update-mode-line       'ignore)
  (defalias 'pr-f-read-string          'ignore)
  (defalias 'pr-f-set-keymap-parents   'ignore)
  (defalias 'pr-keep-region-active     'ignore))


;; Internal Vars --- defined here to avoid compiler warnings
(defvar pr-menu-print-item "print"

(cond
 ((featurep 'xemacs)			; XEmacs
  ;; XEmacs
  (defalias 'pr-f-set-keymap-parents 'set-keymap-parents)
  (defalias 'pr-f-set-keymap-name    'set-keymap-name)

  ;; XEmacs
  (defun pr-f-read-string (prompt initial history default)
    (let ((str (read-string prompt initial)))
      (if (and str (not (string= str "")))
	  str
	default)))

 ((featurep 'xemacs)			; XEmacs
  ;; Do nothing
  )
 (t					; GNU Emacs
  ;; GNU Emacs
  (defalias 'pr-f-set-keymap-parents 'set-keymap-parent)
  (defalias 'pr-f-set-keymap-name    'ignore)
  (defalias 'pr-f-read-string        'read-string)

  ;; GNU Emacs
  (defvar deactivate-mark)

  ;; GNU Emacs

		    (* (pr-menu-index entry index) pr-menu-char-height)))
	   (selected-frame))))		; frame
      )))

  (defvar pr-menu-position nil)
  (defvar pr-menu-state nil)

  ;; GNU Emacs
  (defun pr-menu-lookup (path)
    (lookup-key global-map
		(if path

(defun pr-interactive-n-up (mess)
  (or (stringp mess) (setq mess "*"))
  (save-match-data
    (let* ((fmt-prompt "%s[%s] N-up printing (default 1): ")
	   (prompt "")
	   (str (pr-f-read-string (format fmt-prompt prompt mess) "1" nil "1"))
	   int)
      (while (if (string-match "^\\s *[0-9]+$" str)
		 (setq int (string-to-number str)
		       prompt (cond ((< int 1)   "Integer below 1; ")
				    ((> int 100) "Integer above 100; ")
				    (t           nil)))
	       (setq prompt "Invalid integer syntax; "))
	(ding)
	(setq str
	      (pr-f-read-string (format fmt-prompt prompt mess) str nil "1")))
      int)))


(defun pr-interactive-dir (mess)
  (let* ((dir-name   (file-name-directory (or (buffer-file-name)

				     "" dir-name nil dir-name)))
    (file-name-as-directory dir)))


(defun pr-interactive-regexp (mess)
  (pr-f-read-string (format "[%s] File regexp to print: " mess) "" nil ""))


(defun pr-interactive-dir-args (mess)
  (list
   ;; get directory argument

(defvar pr-interface-map nil
  "Keymap for pr-interface.")

(unless pr-interface-map
  (setq pr-interface-map (make-sparse-keymap))
  (cond ((featurep 'xemacs)		; XEmacs
	 (pr-f-set-keymap-parents pr-interface-map (list widget-keymap))
	 (pr-f-set-keymap-name pr-interface-map 'pr-interface-map))
	(t				; GNU Emacs
	 (pr-f-set-keymap-parents pr-interface-map widget-keymap)))
  (define-key pr-interface-map "q" 'pr-interface-quit)
  (define-key pr-interface-map "?" 'pr-interface-help))


(defmacro pr-interface-save (&rest body)
  `(save-excursion
     (set-buffer pr-i-buffer)

87206:44a37723f2a9

;;; printing.el --- printing utilities

;; Copyright (C) 2000, 2001, 2003, 2004, 2005, 2006, 2007
;;   Free Software Foundation, Inc.

;; Author: Vinicius Jose Latorre <[e-mail]>
;; Maintainer: Vinicius Jose Latorre <[e-mail]>
;; Keywords: wp, print, PostScript
;; Version: 6.9.3
;; X-URL: http://www.emacswiki.org/cgi-bin/wiki/ViniciusJoseLatorre

(defconst pr-version "6.9.3"
  "printing.el, v 6.9.3 <2007/12/09 vinicius>

Please send all bug fixes and enhancements to
	Vinicius Jose Latorre <[e-mail]>
")

  (defalias 'pr-menu-set-ps-title      'ignore)
  (defalias 'pr-menu-set-txt-title     'ignore)
  (defalias 'pr-region-active-p        'ignore)
  (defalias 'pr-do-update-menus        'ignore)
  (defalias 'pr-update-mode-line       'ignore)
  (defalias 'pr-read-string            'ignore)
  (defalias 'pr-set-keymap-parents     'ignore)
  (defalias 'pr-keep-region-active     'ignore))


;; Internal Vars --- defined here to avoid compiler warnings
(defvar pr-menu-print-item "print"

(cond
 ((featurep 'xemacs)			; XEmacs
  ;; XEmacs
  (defalias 'pr-set-keymap-parents 'set-keymap-parents)
  (defalias 'pr-set-keymap-name    'set-keymap-name)

  ;; XEmacs
  (defun pr-read-string (prompt initial history default)
    (let ((str (read-string prompt initial)))
      (if (and str (not (string= str "")))
	  str
	default)))

 ((featurep 'xemacs)			; XEmacs
  ;; Do nothing
  )
 (t					; GNU Emacs
  ;; GNU Emacs
  (defalias 'pr-set-keymap-parents 'set-keymap-parent)
  (defalias 'pr-set-keymap-name    'ignore)
  (defalias 'pr-read-string        'read-string)

  ;; GNU Emacs
  (defvar deactivate-mark)

  ;; GNU Emacs

		    (* (pr-menu-index entry index) pr-menu-char-height)))
	   (selected-frame))))		; frame
      )))

  (defvar pr-menu-position nil)
  (defvar pr-menu-state    nil)

  ;; GNU Emacs
  (defun pr-menu-lookup (path)
    (lookup-key global-map
		(if path

(defun pr-interactive-n-up (mess)
  (or (stringp mess) (setq mess "*"))
  (save-match-data
    (let* ((fmt-prompt "%s[%s] N-up printing (default 1): ")
	   (prompt "")
	   (str (pr-read-string (format fmt-prompt prompt mess) "1" nil "1"))
	   int)
      (while (if (string-match "^\\s *[0-9]+$" str)
		 (setq int (string-to-number str)
		       prompt (cond ((< int 1)   "Integer below 1; ")
				    ((> int 100) "Integer above 100; ")
				    (t           nil)))
	       (setq prompt "Invalid integer syntax; "))
	(ding)
	(setq str
	      (pr-read-string (format fmt-prompt prompt mess) str nil "1")))
      int)))


(defun pr-interactive-dir (mess)
  (let* ((dir-name   (file-name-directory (or (buffer-file-name)

				     "" dir-name nil dir-name)))
    (file-name-as-directory dir)))


(defun pr-interactive-regexp (mess)
  (pr-read-string (format "[%s] File regexp to print: " mess) "" nil ""))


(defun pr-interactive-dir-args (mess)
  (list
   ;; get directory argument

(defvar pr-interface-map nil
  "Keymap for pr-interface.")

(unless pr-interface-map
  (let ((map (make-sparse-keymap)))
    (cond ((featurep 'xemacs)		; XEmacs
	   (pr-set-keymap-parents map (list widget-keymap))
	   (pr-set-keymap-name    map 'pr-interface-map))
	  (t				; GNU Emacs
	   (pr-set-keymap-parents map widget-keymap)))
    (define-key map "q" 'pr-interface-quit)
    (define-key map "?" 'pr-interface-help)
    (setq pr-interface-map map)))


(defmacro pr-interface-save (&rest body)
  `(save-excursion
     (set-buffer pr-i-buffer)