Commit 07b7ad11 authored by David Byers's avatar David Byers

Omgärda alla initiate-anrop med lyskom-server-call.

Detta makro väljer lyskom-bufferten om en buffert utan köer är vald.
parent 5ed8fd6f
Sun Sep 28 13:09:28 1997 David Byers <davby@ida.liu.se>
* services.el (def-kom-service): Nytt makro.
(lyskom-server-call): Dito.
(initiate-add-recipient): Kan lgga till BCC-recpt.
(initiate-*): Omgrda med lyskom-server-call.
Sat Sep 27 18:19:12 1997 David Byers <davby@ida.liu.se>
* vars.el.in (kom-ding-pause-amount): Ny variabel.
* lyskom-rest.el (lyskom-beep): Anvnd kom-ding-pause-amount.
Fri Sep 26 11:18:57 1997 David Byers <davby@ida.liu.se>
* vars.el.in (kom-text-footer-format): Ny variabel.
......
......@@ -144,7 +144,7 @@ TAGS: $(HEADER) $(SOURCES)
install: lyskom.elc lyskom.el
cp lyskom.el lyskom.elc $(LISPDIR)
release: $(HEADER) $(SOURCES) $(DISTSRC) $(MISC)
release: $(HEADER) $(SOURCES) $(DISTSRC) $(MISC) lyskom.el
mkdir lyskom-$(CLIENTVERSION)
cp $(HEADER) $(SOURCES) $(MISC) lyskom-$(CLIENTVERSION)
for i in $(DISTFILES) ; do \
......@@ -159,6 +159,7 @@ release: $(HEADER) $(SOURCES) $(DISTSRC) $(MISC)
cp lyskom-$(CLIENTVERSION).tar.gz $(FTPDIR)
rm -rf lyskom-$(CLIENTVERSION)
rm -rf lyskom-$(CLIENTVERSION).tar.gz
mv lyskom.el $(FTPDIR)/lyskom-$(CLIENTVERSION).el
clean:
$(RM) *.el.gz *.elc.gz lyskom.el english-lyskom.el
......
......@@ -5,6 +5,13 @@ Att g
* BUGGAR
** VIKTIGA BUGGAR
Ingen av initiate-funktionerna fungerar i något annat än LysKOMs
huvudbuffert. De borde alla undersöka om det finns några köer i
den aktuella bufferten, och om det inte gör det, försöka hitta en
LysKOM-buffert att göra anropet i.
** DEFERRED INSERT
lyskom-replace-deferred verkar inte använda lyskom-last-viewed i
......
......@@ -1816,7 +1816,7 @@ A symbol other than t means call it as a function."
((eq t arg) (ding t))
((numberp arg) (while (> arg 0)
(ding t)
(sit-for 0.1)
(sit-for kom-ding-pause-amount)
(setq arg (1- arg))))
((stringp arg)
(start-process "audio"
......@@ -1904,7 +1904,8 @@ The name of the file is read using the minibuffer and the default is kom-text."
lyskom-saved-file-name))))
(append-to-file (point-min) (point-max) (expand-file-name name))
(setq lyskom-saved-file-name name))
(kill-buffer buf))))
; (kill-buffer buf)
)))
......
This diff is collapsed.
......@@ -428,6 +428,9 @@ nonexistent) buffer in which the message is inserted."
kom-show-personal-messages-in-buffer decides which buffer to pop."
server)
(def-kom-var kom-ding-pause-amount 0.1
"*Amount of time to wait between successive beeps.")
(def-kom-var kom-ding-on-new-letter nil
"*Non-nil means ding if a message arrives in the letter box. See
kom-ding-on-priority-break for valid values."
......
......@@ -472,7 +472,7 @@ the user is a member of. Uses blocking-do. Returns t if TEXT-STAT is nil."
(t (string-to-int field-width)))))
(lyskom-format
(format "%%%s#1s" field-width)
"%#1s"
(if have-author
(if (< (length author-name) width)
(make-string (- width (length author-name)) ?-)
......@@ -659,19 +659,21 @@ Args: TEXT-STAT of the text being read."
(blocking-do 'get-text-stat text))))
;; Print information about the link
(if text-stat
(progn
(lyskom-insert-header-comm text-stat misc))
(let ((defer-info (lyskom-create-defer-info
'get-text-stat
text
'lyskom-insert-deferred-header-comm
(point-max-marker)
(length lyskom-defer-indicator)
nil ; Filled in later
misc)))
(lyskom-format-insert "%#1s\n" lyskom-defer-indicator)
(lyskom-defer-insertion defer-info)))
(cond (text-stat
(lyskom-insert-header-comm text-stat misc))
((not kom-deferred-printing)
(lyskom-insert-header-comm text-stat misc))
(t
(let ((defer-info (lyskom-create-defer-info
'get-text-stat
text
'lyskom-insert-deferred-header-comm
(point-max-marker)
(length lyskom-defer-indicator)
nil ; Filled in later
misc)))
(lyskom-format-insert "%#1s\n" lyskom-defer-indicator)
(lyskom-defer-insertion defer-info))))
;; Print information about who added the link
(if (misc-info->sent-at misc)
......@@ -723,7 +725,7 @@ Args: TEXT-STAT of the text being read."
(lyskom-format-insert 'footnote-in-text (misc-info->footn-in misc))))
(if author
(lyskom-format-insert 'written-by author)
(lyskom-insert-at-point "\n"))))
(lyskom-insert "\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