mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-12 16:23:57 +00:00
Code Issues Releases Activity

Check for line-beginning-position definition.

Browse Source 
Fix counting lines in a region.
(ps-print-version): New version number (5.1.5).
(ps-spool-without-faces, ps-spool-with-faces): Adjust code.
(ps-printing-region): Fun code fix.
This commit is contained in:
Gerd Moellmann 2000-04-15 11:39:10 +00:00
parent ffc50f2aab
commit 712dc9e0f1
2 changed files with 25 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/ChangeLog
View File

@ -1,3 +1,12 @@
2000-04-15 Vinicius Jose Latorre <vinicius@cpqd.com.br>
* ps-print.el: Check for line-beginning-position definition.
* ps-print.el: Fix counting lines in a region.
(ps-print-version): New version number (5.1.5).
(ps-spool-without-faces, ps-spool-with-faces): Adjust code.
(ps-printing-region): Fun code fix.
2000-04-15 Gerd Moellmann <gerd@gnu.org>
* gud.el (gud-jdb-build-source-files-list): Change file-exists-p

24
lisp/ps-print.el
View File

@ -9,11 +9,11 @@
;; Maintainer: Kenichi Handa <handa@etl.go.jp> (multi-byte characters)
;; Maintainer: Vinicius Jose Latorre <vinicius@cpqd.com.br>
;; Keywords: wp, print, PostScript
;; Time-stamp: <2000/04/09 14:06:12 vinicius>
;; Version: 5.1.4
;; Time-stamp: <2000/04/14 11:07:23 vinicius>
;; Version: 5.1.5
(defconst ps-print-version "5.1.4"
"ps-print.el, v 5.1.4 <2000/04/09 vinicius>
(defconst ps-print-version "5.1.5"
"ps-print.el, v 5.1.5 <2000/04/14 vinicius>
Vinicius's last change version -- this file may have been edited as part of
Emacs without changes to the version number. When reporting bugs,
@ -1146,6 +1146,14 @@ Please send all bug fixes and enhancements to
(char-charset (char-after arg))))
(or (fboundp 'line-beginning-position)
(defun line-beginning-position (&optional n)
(save-excursion
(and n (/= n 1) (forward-line (1- n)))
(beginning-of-line)
(point))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; User Variables:
@ -2690,7 +2698,7 @@ If EXTENSION is any other symbol, it is ignored."
(defun ps-spool-without-faces (from to &optional region-p)
(run-hooks 'ps-print-hook)
(ps-printing-region region-p)
(ps-printing-region region-p from)
(ps-generate (current-buffer) from to 'ps-generate-postscript))
@ -2701,7 +2709,7 @@ If EXTENSION is any other symbol, it is ignored."
(defun ps-spool-with-faces (from to &optional region-p)
(run-hooks 'ps-print-hook)
(ps-printing-region region-p)
(ps-printing-region region-p from)
(ps-generate (current-buffer) from to 'ps-generate-postscript-with-faces))
@ -2725,11 +2733,11 @@ file.")
"Non-nil means ps-print is printing a region.")
(defun ps-printing-region (region-p)
(defun ps-printing-region (region-p from)
(setq ps-printing-region-p region-p
ps-printing-region
(cons (if region-p
(ps-count-lines (point-min) (region-beginning))
(ps-count-lines (point-min) from)
1)
(ps-count-lines (point-min) (point-max)))))