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

Fixed bug 1064 and some other minor stuff.

Detailed changes:
> 2003-07-02  David Byers  <byers@lysator.liu.se>
>
> 	Removed unused variables:
> 	* commands1.el (lyskom-get-marked-texts): Removed variable
> 	mark-list.
>
> 	* commands2.el (kom-leave-all-conferences): Removed variable
> 	unsubscribed.
>
> 	* lyskom-rest.el (lyskom-format-x-kom/user-area): Removed variable
> 	tmpbuf.
>
> 	* lyskom-buttons.el (lyskom-generate-button): Removed variable
> 	persno.
>
> 	Fixed empty lines in nameday display:
> 	* names.el (lyskom-nameday-2): Say so when there are no namedays
> 	(we more or less have to when showing names from more than one
> 	list, and it ain't bad
>
> 	Fixed bug 1064:
> 	* lyskom-buttons.el (kom-button-click): Handle null position
> 	properly.
>
> 2003-07-01  David Byers  <byers@lysator.liu.se>
>
> 	* commands1.el (lyskom-write-text): Handle prefix args correctly
> 	(so C-u i works).
>
parent bbddee06
2003-07-02 David Byers <byers@lysator.liu.se>
Removed unused variables:
* commands1.el (lyskom-get-marked-texts): Removed variable
mark-list.
* commands2.el (kom-leave-all-conferences): Removed variable
unsubscribed.
* lyskom-rest.el (lyskom-format-x-kom/user-area): Removed variable
tmpbuf.
* lyskom-buttons.el (lyskom-generate-button): Removed variable
persno.
Fixed empty lines in nameday display:
* names.el (lyskom-nameday-2): Say so when there are no namedays
(we more or less have to when showing names from more than one
list, and it ain't bad
Fixed bug 1064:
* lyskom-buttons.el (kom-button-click): Handle null position
properly.
2003-07-01 David Byers <byers@lysator.liu.se>
* commands1.el (lyskom-write-text): Handle prefix args correctly
(so C-u i works).
2003-06-04 David Byers <byers@lysator.liu.se>
Fix bug 1054:
......
......@@ -1814,13 +1814,13 @@ recipients are handled."
"Start writing a new text."
(when default
(setq default (uconf-stat->name (blocking-do 'get-uconf-stat default))))
(let* ((tono (or arg
(lyskom-read-conf-no
(lyskom-get-string prompt)
'(pers conf)
nil
(and default (cons default 0))
t)))
(let* ((tono (if (and arg lyskom-current-conf (not (zerop lyskom-current-conf)))
lyskom-current-conf
(lyskom-read-conf-no (lyskom-get-string prompt)
'(pers conf)
nil
(and default (cons default 0))
t)))
(conf-stat (blocking-do 'get-conf-stat tono)))
(cache-del-conf-stat tono)
(if (if (zerop (conf-stat->msg-of-day conf-stat))
......@@ -2475,8 +2475,7 @@ If MARK-NO is nil, review all marked texts."
(defun lyskom-get-marked-texts (mark-no)
"Return a list of all texts marked with MARK-NO."
(let ((mark-list (cache-get-marked-texts))
(text-list nil))
(let ((text-list nil))
(lyskom-traverse mark (cache-get-marked-texts)
(if (and mark
(or (null mark-no)
......
......@@ -3239,8 +3239,7 @@ that this command could take a very long time to complete."
(while confs
(let* ((conf (car confs))
(conf-stat (blocking-do 'get-conf-stat conf))
(conf-type (conf-stat->conf-type conf-stat))
(unsubscribe nil))
(conf-type (conf-stat->conf-type conf-stat)))
(setq lyskom-last-viewed (point-max))
(lyskom-format-insert 'unsubscribe-to-2
conf-stat
......
......@@ -1885,6 +1885,7 @@ environment to one that uses \"%#2s\" to encode text.
(has-nameday-1 . "Today's name is %#1s%#2?b%[ (%#2s)%]%[%].")
(has-nameday-2 . "Today's names are %#1s and %#2s%#3?b%[ (%#3s)%]%[%].")
(no-nameday . "No nameday today%#2?b%[ (%#2s)%]%[%]")
(invalid-date-entry . "Invalid date")
(number-out-of-range . "Invalid number")
......
......@@ -124,9 +124,9 @@ this-command-keys."
(and parent (widget-get parent ':href))
(and widget (widget-get widget 'href))
(and parent (widget-get parent 'href))))
(type (get-text-property pos 'lyskom-button-type))
(data (assq type lyskom-button-actions))
(hint (get-text-property pos 'lyskom-button-hint))
(type (and pos (get-text-property pos 'lyskom-button-type)))
(data (and type (assq type lyskom-button-actions)))
(hint (and pos (get-text-property pos 'lyskom-button-hint)))
(act (or (and kom-use-button-hints hint)
(and data (elt data 2)))))
(cond (href (require 'w3)
......@@ -474,13 +474,7 @@ means don't set the lyskom-button property if non-nil. that means
kom-next- and -previous-link won't notice the button"
(setq lyskom-dummy-variable-to-fool-the-byte-compiler
(car menu-title)) ; produce error if menu-title not cons
(let* ((persno (cond ((boundp 'lyskom-pers-no) lyskom-pers-no)
((and (boundp 'lyskom-buffer) lyskom-buffer)
(save-excursion
(set-buffer lyskom-buffer)
lyskom-pers-no))
(t -1)))
(numarg (cond ((numberp arg) arg)
(let* ((numarg (cond ((numberp arg) arg)
((stringp arg) (string-to-number arg))
((lyskom-conf-stat-p arg) (conf-stat->conf-no arg))
((lyskom-uconf-stat-p arg) (uconf-stat->conf-no arg))
......
......@@ -2225,8 +2225,7 @@ in lyskom-messages."
(defun lyskom-format-x-kom/user-area (text text-stat)
; (condition-case nil
(let ((tmpbuf (lyskom-generate-new-buffer "lyskom-user-area"))
(result "")
(let ((result "")
(user-area (lyskom-split-user-area text)))
(while user-area
(let ((key (car (car user-area)))
......
......@@ -86,7 +86,8 @@ DATA is nameday data"
(mlist (cdr (assq (time->mon time) alist)))
(dlist (cdr (assq (time->mday time) mlist))))
(if data
(cond ((null dlist) nil)
(cond ((null dlist)
(lyskom-format 'no-nameday nil (and show-list-name (nameday-data->name data))))
((eq 1 (length dlist))
(lyskom-format 'has-nameday-1
(car dlist)
......
......@@ -1919,6 +1919,7 @@ teckenkodning.
(has-nameday-1 . "%#1s har namnsdag i dag%#2?b%[ (%#2s)%]%[%].")
(has-nameday-2 . "%#1s och %#2s har namnsdag i dag%#3?b%[ (%#3s)%]%[%].")
(no-nameday . "Ingen namnsdag i dag%#2?b%[ (%#2s)%]%[%]")
(invalid-date-entry . "Ogiltigt datum")
(number-out-of-range . "Otilltet tal")
......
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