Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
b9584630
Commit
b9584630
authored
Dec 17, 2000
by
Ulrik Haugen
Browse files
applied patch from Per Starbäck regarding definition of device-class
parent
56356464
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
b9584630
2000-12-17 Ulrik Haugen <qha@lysator.liu.se>
* utilities.el: applied patch from Per Starbck, device-class
isn't defined if it doesn't exist, lyskom-device-class is. Caller
changed. (Se text 5867166 in LysLysKOM.)
2000-12-12 David Byers <davby@sen5.ida.liu.se>
* Release av 0.46.1-BETA-4
...
...
src/utilities.el
View file @
b9584630
...
...
@@ -677,30 +677,26 @@ The order of the list a is kept."
(
lyskom-external-function
display-grayscale-p
)
(
eval-and-compile
(
if
(
fboundp
'device-class
)
nil
(
setq
lyskom-compatibility-definitions
(
cons
'device-class
lyskom-compatibility-definitions
))
(
if
(
and
(
fboundp
'display-color-p
)
(
fboundp
'display-grayscale-p
))
;; Emacs 21 can use color even when not running under
;; X-windows. Note that display-grayscale-p can be false when
;; using a color display! This happens when running on a
;; classic Linux tty console.
(
defun
device-class
(
&optional
device
)
(
cond
((
display-color-p
device
)
'color
)
((
display-grayscale-p
device
)
'grayscale
)
(
t
'mono
)))
;; This works in Emacs 20 and earlier.
(
defun
device-class
(
&optional
device
)
(
condition-case
nil
(
if
(
x-display-grayscale-p
device
)
(
if
(
x-display-color-p
device
)
'color
'grayscale
)
'mono
)
(
error
'mono
))))))
(
cond
((
fboundp
'device-class
)
; XEmacsism
(
defalias
'lyskom-device-class
'device-class
))
((
and
(
fboundp
'display-color-p
)
(
fboundp
'display-grayscale-p
))
;; Emacs 21 can use color even when not running under
;; X-windows. Note that display-grayscale-p can be false when
;; using a color display! This happens when running on a
;; classic Linux tty console.
(
defun
lyskom-device-class
(
&optional
device
)
(
cond
((
display-color-p
device
)
'color
)
((
display-grayscale-p
device
)
'grayscale
)
(
t
'mono
))))
(
t
;; This works in Emacs 20 and earlier.
(
defun
lyskom-device-class
(
&optional
device
)
(
condition-case
nil
(
if
(
x-display-grayscale-p
device
)
(
if
(
x-display-color-p
device
)
'color
'grayscale
)
'mono
)
(
error
'mono
))))))
(
lyskom-provide-function
frame-property
(
frame
property
&optional
default
)
(
or
(
cdr
(
assq
property
(
frame-parameters
frame
)))
...
...
@@ -909,7 +905,7 @@ also reads the proper X resources."
(
unless
kom-default-face-scheme
(
setq
kom-default-face-scheme
(
condition-case
nil
(
cond
((
eq
(
device-class
)
'mono
)
'monochrome
)
(
cond
((
eq
(
lyskom-
device-class
)
'mono
)
'monochrome
)
((
eq
(
lyskom-background-mode
)
'dark
)
'inverse
)
(
t
'default
))
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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