Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
07239461
Commit
07239461
authored
Nov 30, 2006
by
Vinicius Jose Latorre
Browse files
Fix maintainer email. Emacs 20/21 compatibility.
parent
65dc67a9
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
58 additions
and
11 deletions
+58
-11
lisp/ChangeLog
lisp/ChangeLog
+12
-0
lisp/ps-bdf.el
lisp/ps-bdf.el
+1
-1
lisp/ps-mule.el
lisp/ps-mule.el
+33
-6
lisp/ps-print.el
lisp/ps-print.el
+12
-4
No files found.
lisp/ChangeLog
View file @
07239461
2006-11-29 Vinicius Jose Latorre <viniciusjl@ig.com.br>
* ps-bdf.el : Fix maintainer email.
* ps-mule.el : Fix maintainer email. Define functions for Emacs 20
compatibility.
* ps-print.el : Fix maintainer email. Define functions for Emacs 20 &
21 compatibility.
(ps-print-quote): Replace '?\s' by '?\ ' to keep compatibility with
Emacs 20 & 21.
2006-11-29 J.D. Smith <jdsmith@as.arizona.edu>
* progmodes/idlwave.el (idlwave-auto-fill): Remove
lisp/ps-bdf.el
View file @
07239461
...
...
@@ -6,7 +6,7 @@
;; Registration Number H14PRO021
;; Keywords: wp, BDF, font, PostScript
;; Maintainer: Kenichi Handa <handa@
etl.go.jp
>
;; Maintainer: Kenichi Handa <handa@
m17n.org
>
;; Time-stamp: <2003/07/11 21:13:44 vinicius>
;; This file is part of GNU Emacs.
...
...
lisp/ps-mule.el
View file @
07239461
...
...
@@ -3,12 +3,12 @@
;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006 Free Software Foundation, Inc.
;; Author: Vinicius Jose Latorre <vinicius
@cpqd
.com.br>
;; Kenichi Handa <handa@
etl.go.jp
> (multi-byte characters)
;; Maintainer: Kenichi Handa <handa@
etl.go.jp
> (multi-byte characters)
;; Vinicius Jose Latorre <vinicius
@cpqd
.com.br>
;; Author: Vinicius Jose Latorre <vinicius
jl@ig
.com.br>
;; Kenichi Handa <handa@
m17n.org
> (multi-byte characters)
;; Maintainer: Kenichi Handa <handa@
m17n.org
> (multi-byte characters)
;; Vinicius Jose Latorre <vinicius
jl@ig
.com.br>
;; Keywords: wp, print, PostScript, multibyte, mule
;; Time-stamp: <200
3/05/14 22:19:41
vinicius>
;; Time-stamp: <200
6/11/11 16:58:10
vinicius>
;; This file is part of GNU Emacs.
...
...
@@ -163,7 +163,34 @@
(
defalias
'string-make-multibyte
'copy-sequence
))
(
or
(
fboundp
'encode-char
)
(
defun
encode-char
(
ch
ccs
)
ch
)))
ch
))
;; For Emacs 20 compatibility
(
if
(
and
(
boundp
'mule-version
)
(
string<
(
symbol-value
'mule-version
)
"5.0"
))
;; mule package is loaded and mule version is lesser than 5.0
(
progn
(
or
(
fboundp
'encode-composition-rule
)
(
defun
encode-composition-rule
(
rule
)
(
if
(
=
(
car
rule
)
4
)
(
setcar
rule
10
))
(
if
(
=
(
cdr
rule
)
4
)
(
setcdr
rule
10
))
(
+
(
*
(
car
rule
)
12
)
(
cdr
rule
))))
(
or
(
fboundp
'find-composition
)
(
defun
find-composition
(
pos
&rest
ignore
)
(
let
((
ch
(
char-after
pos
)))
(
and
ch
(
eq
(
char-charset
ch
)
'composition
)
(
let
((
components
(
decompose-composite-char
ch
'vector
t
)))
(
list
pos
(
ps-mule-next-point
pos
)
components
(
integerp
(
aref
components
1
))
nil
(
char-width
ch
))))))))
;; mule package isn't loaded
(
or
(
fboundp
'encode-composition-rule
)
(
defun
encode-composition-rule
(
rule
)
130
))
(
or
(
fboundp
'find-composition
)
(
defun
find-composition
(
pos
&rest
ignore
)
nil
))
))
;;;###autoload
...
...
lisp/ps-print.el
View file @
07239461
...
...
@@ -6,8 +6,8 @@
;; Author: Jim Thompson (was <thompson@wg2.waii.com>)
;; Jacques Duthen (was <duthen@cegelec-red.fr>)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Kenichi Handa <handa@
etl.go.jp
> (multi-byte characters)
;; Maintainer: Kenichi Handa <handa@
etl.go.jp
> (multi-byte characters)
;; Kenichi Handa <handa@
m17n.org
> (multi-byte characters)
;; Maintainer: Kenichi Handa <handa@
m17n.org
> (multi-byte characters)
;; Vinicius Jose Latorre <viniciusjl@ig.com.br>
;; Keywords: wp, print, PostScript
;; Time-stamp: <2005/06/27 00:57:22 vinicius>
...
...
@@ -1545,7 +1545,13 @@ Please send all bug fixes and enhancements to
(
defun
ps-face-background-name
(
face
)
(
ps-xemacs-color-name
(
face-background
face
)))
)
(
t
; emacs
((
<=
emacs-major-version
21
)
; emacs 20 & 21
(
defvar
mark-active
nil
)
(
defun
ps-mark-active-p
()
mark-active
)
(
defalias
'ps-face-foreground-name
'face-foreground
)
(
defalias
'ps-face-background-name
'face-background
))
(
t
; emacs 22 or higher
(
defvar
mark-active
nil
)
(
defun
ps-mark-active-p
()
mark-active
)
...
...
@@ -3760,7 +3766,9 @@ If `ps-prefix-quote' is nil, it's set to t after generating string."
"(setq "
)
key
(
if
(
>
col
len
)
(
make-string
(
-
col
len
)
?\s
)
;; to keep compatibility with Emacs 20 & 21:
;; DO NOT REPLACE `?\ ' BY `?\s'
(
make-string
(
-
col
len
)
?\
)
" "
)
(
ps-value-string
val
))))
(
t
""
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment