Commit aef90af9 authored by David Byers's avatar David Byers
Browse files

Fixed compatibility problems with new face code and date reading.

Everything should be functional with Emacs 21.x, 20.7 and XEmacs 21.1.
Other versions have not been tested yet.

Detailed changes:
> 2003-01-02  David Byers  <david.byers@swipnet.se>
>
> 	Cosmetics:
> 	* commands2.el (kom-set-unread): Don't include range in prompt. It
> 	will be included by lyskom-read-num-range-or-date.
>
> 	Compatibility issues with date reading:
> 	* compatibility.el (lyskom-minibuffer-contents): Provide an alias
> 	for minibuffer-contents.
>
> 	* lyskom-rest.el (lyskom-verified-read-enter): Use
> 	lyskom-minibuffer-contents instead of minibuffer-contents.
>
> 	Work on new face code:
> 	* faces.el: Fixed bug in call to defface that worked in Gnu Emacs
> 	but not in XEmacs.
>
parent 5b04897f
2003-01-02 David Byers <david.byers@swipnet.se>
Cosmetics:
* commands2.el (kom-set-unread): Don't include range in prompt. It
will be included by lyskom-read-num-range-or-date.
Compatibility issues with date reading:
* compatibility.el (lyskom-minibuffer-contents): Provide an alias
for minibuffer-contents.
* lyskom-rest.el (lyskom-verified-read-enter): Use
lyskom-minibuffer-contents instead of minibuffer-contents.
Work on new face code:
* faces.el: Fixed bug in call to defface that worked in Gnu Emacs
but not in XEmacs.
2003-01-01 David Byers <david.byers@swipnet.se>
Work on new face code:
......
......@@ -745,7 +745,6 @@ send. If DONTSHOW is non-nil, don't display the sent message."
narg
(lyskom-read-num-range-or-date 0 (conf-stat->no-of-texts conf-stat)
(lyskom-format 'only-last
(conf-stat->no-of-texts conf-stat)
(conf-stat->name conf-stat)))))
(membership nil))
(cond ((listp n)
......
......@@ -424,11 +424,18 @@ string to search in."
read
hist)))))
(if (fboundp 'minibuffer-contents)
(defalias 'lyskom-minibuffer-contents 'minibuffer-contents)
(defalias 'lyskom-minibuffer-contents 'buffer-string))
(lyskom-external-function temp-minibuffer-message)
(lyskom-provide-function minibuffer-message (message)
(temp-minibuffer-message message))
(lyskom-provide-function last (x &optional n)
"Returns the last link in the list LIST.
With optional argument N, returns the Nth-to-last link (default 1)."
......
......@@ -722,7 +722,7 @@ Read all about it at http://www.lysator.liu.se/history/")
"Unable to send the message. Perhaps the recipient isn't logged on.
The message you were sending to %#1M was:
%#2t\n")
(only-last . "Last (0 - %#1d) texts in %#2s: ")
(only-last . "Last texts in %#1s: ")
(only-error . "Something went wrong. Sorry.\n")
(you-have-unreads . "You have %#1d unread text%#1?d%[%]%[s%] in %#2M\n")
......
......@@ -389,10 +389,10 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--active-face
'((((background light))
:foreground "blue4"
(:foreground "blue4")
)
(((background dark))
:foreground "lightblue"
(:foreground "lightblue")
)
)
"Face used for most \"clickable\" areas."
......@@ -402,10 +402,10 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--url-face
'((((background light))
:foreground "blueviolet"
(:foreground "blueviolet")
)
(((background dark))
:foreground "moccasin"
(:foreground "moccasin")
)
)
"Face used for URLs."
......@@ -415,14 +415,14 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--me-face
'((((background light))
:foreground "blue3"
(:foreground "blue3"
:background "lavender"
:weight bold
:weight bold)
)
(((background dark))
:foreground "gold"
(:foreground "gold"
:background "black"
:weight bold
:weight bold)
)
)
"Face used to show your own name."
......@@ -432,10 +432,10 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--highlight-face
'((((background light))
:background "seagreen"
(:background "seagreen")
)
(((background dark))
:background "darkblue"
(:background "darkblue")
)
)
"Face used for various highlights."
......@@ -456,10 +456,10 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--text-no-face
'((((background light))
:foreground "blue4"
(:foreground "blue4")
)
(((background dark))
:foreground "lightblue"
(:foreground "lightblue")
)
)
"Face used for text numbers."
......@@ -468,11 +468,11 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--friends-face
'((((background light))
:foreground "blue3"
:background "lavender"
(:foreground "blue3"
:background "lavender")
)
(((background dark))
:foreground "red"
(:foreground "red")
)
)
"Face used for people in kom-friends."
......@@ -481,11 +481,11 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--morons-face
'((((background light))
:foreground "blue3"
:background "yellow"
(:foreground "blue3"
:background "yellow")
)
(((background dark))
:foreground "yellow"
(:foreground "yellow")
)
)
"Face used for people in kom-morons."
......@@ -494,12 +494,12 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--presence-face
'((((background light))
:foreground "dim gray"
:slant italic
(:foreground "dim gray"
:slant italic)
)
(((background dark))
:foreground "gray"
:slant italic
(:foreground "gray"
:slant italic)
)
)
"Face used for presence messages."
......@@ -509,12 +509,12 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--mark-face
'((((background light))
:foreground "blue3"
:background "lavender"
(:foreground "blue3"
:background "lavender")
)
(((background dark))
:foreground "gold"
:background "black"
(:foreground "gold"
:background "black")
)
)
"Face used for temporary marks."
......@@ -523,19 +523,19 @@ for `lyskom-background-colors' for more information."
(defface kom-face--plain--first-line-face
'((t :weight bold))
'((t (:weight bold)))
"Face used for the first line header of each text."
:group 'lyskom-faces
)
(defface kom-face--plain--warning-face
'((t :weight bold :foreground "red"))
'((t (:weight bold :foreground "red")))
"Face used to display important warnings."
:group 'lyskom-faces
)
(defface kom-face--plain--dim-face
'((t :foreground "gray"))
'((t (:foreground "gray")))
"Face used to display dimmed items, such as passive memberships."
:group 'lyskom-faces
)
......@@ -3340,7 +3340,7 @@ VECTOR has to be sorted with regard to <."
(defvar lyskom-verified-read-predicate nil)
(defun lyskom-verified-read-enter ()
(interactive)
(let* ((val (minibuffer-contents))
(let* ((val (lyskom-minibuffer-contents))
(err (funcall lyskom-verified-read-predicate val)))
(if err
(minibuffer-message (format " [%s]" err))
......
......@@ -718,7 +718,7 @@ Ditt alarmmeddelande l
. "Du kunde inte skicka meddelandet. Mottagaren var kanske inte inloggad.
Meddelandet du frskte snda till %#1M var:
%#2t\n")
(only-last . "Endast lsa senaste (0 - %#1d) i %#2s: ")
(only-last . "Endast lsa senaste i %#1s: ")
(only-error . "Ngot gick galet. Ledsen.\n")
(you-have-unreads . "Du har %#1d olst%#1?d%[%]%[a%] inlgg i %#2M\n")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment