[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r101740: Remove some unused ps-def de
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r101740: Remove some unused ps-def definitions. |
Date: |
Sat, 02 Oct 2010 18:35:07 -0700 |
User-agent: |
Bazaar (2.0.3) |
------------------------------------------------------------
revno: 101740
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2010-10-02 18:35:07 -0700
message:
Remove some unused ps-def definitions.
* lisp/ps-def.el (leading-code-private-22, charset-bytes, charset-id)
(charset-width, find-charset-region, chars-in-region, forward-point)
(encode-coding-string, coding-system-p, ccl-execute-on-string)
(define-ccl-program, multibyte-string-p, string-make-multibyte):
Remove compatibility cruft (none of these are used by ps*.el).
modified:
lisp/ChangeLog
lisp/ps-def.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-10-03 01:11:20 +0000
+++ b/lisp/ChangeLog 2010-10-03 01:35:07 +0000
@@ -1,3 +1,11 @@
+2010-10-03 Glenn Morris <address@hidden>
+
+ * ps-def.el (leading-code-private-22, charset-bytes, charset-id)
+ (charset-width, find-charset-region, chars-in-region, forward-point)
+ (encode-coding-string, coding-system-p, ccl-execute-on-string)
+ (define-ccl-program, multibyte-string-p, string-make-multibyte):
+ Remove compatibility cruft (none of these are used by ps*.el).
+
2010-10-03 Kevin Rodgers <address@hidden>
* subr.el (booleanp): Return t instead of a list (Bug#7086).
=== modified file 'lisp/ps-def.el'
--- a/lisp/ps-def.el 2010-10-02 02:46:13 +0000
+++ b/lisp/ps-def.el 2010-10-03 01:35:07 +0000
@@ -50,90 +50,25 @@
(cond
((featurep 'xemacs) ; XEmacs
-
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ps-bdf
(defvar installation-directory nil)
(defvar coding-system-for-read)
-
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ps-mule
- (defvar leading-code-private-22 157)
-
- (or (fboundp 'charset-bytes)
- (defun charset-bytes (charset) 1)) ; ascii
-
(or (fboundp 'charset-dimension)
(defun charset-dimension (charset) 1)) ; ascii
- (or (fboundp 'charset-id)
- (defun charset-id (charset) 0)) ; ascii
-
- (or (fboundp 'charset-width)
- (defun charset-width (charset) 1)) ; ascii
-
- (or (fboundp 'find-charset-region)
- (defun find-charset-region (beg end &optional table)
- (list 'ascii)))
-
(or (fboundp 'char-width)
(defun char-width (char) 1)) ; ascii
- (or (fboundp 'chars-in-region)
- (defun chars-in-region (beg end)
- (- (max beg end) (min beg end))))
-
- (or (fboundp 'forward-point)
- (defun forward-point (arg)
- (save-excursion
- (let ((count (abs arg))
- (step (if (zerop arg)
- 0
- (/ arg arg))))
- (while (and (> count 0)
- (< (point-min) (point)) (< (point) (point-max)))
- (forward-char step)
- (setq count (1- count)))
- (+ (point) (* count step))))))
-
- (or (fboundp 'encode-coding-string)
- (defun encode-coding-string (string coding-system &optional nocopy)
- (if nocopy
- string
- (copy-sequence string))))
-
- (or (fboundp 'coding-system-p)
- (defun coding-system-p (obj) nil))
-
- (or (fboundp 'ccl-execute-on-string)
- (defun ccl-execute-on-string (ccl-prog status str
- &optional contin unibyte-p)
- str))
-
- (or (fboundp 'define-ccl-program)
- (defmacro define-ccl-program (name ccl-program &optional doc)
- `(defconst ,name nil ,doc)))
-
- (or (fboundp 'multibyte-string-p)
- (defun multibyte-string-p (str)
- (let ((len (length str))
- (i 0)
- multibyte)
- (while (and (< i len) (not (setq multibyte (> (aref str i) 255))))
- (setq i (1+ i)))
- multibyte)))
-
- (or (fboundp 'string-make-multibyte)
- (defalias 'string-make-multibyte 'copy-sequence))
-
(or (fboundp 'encode-char)
(defun encode-char (ch ccs)
ch))
-
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ps-print
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r101740: Remove some unused ps-def definitions.,
Glenn Morris <=