Skip to content
GitLab
Menu
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
b753aedc
Commit
b753aedc
authored
Apr 14, 1996
by
David Kågedal
Browse files
Bugfixar.
parent
df147057
Changes
7
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
b753aedc
Sun Apr 14 23:44:45 1996 David Kågedal <davidk@lysator.liu.se>
* view-text.el (lyskom-follow-comments): Felaktiga parametrar i
ett anrop till lyskom-view-text.
Thu Apr 4 10:36:06 1996 David Byers <davby@sen2.ida.liu.se>
* lyskom-rest.el (lyskom-insert): Gör lyskom-scroll i lyskom-insert
...
...
@@ -20,6 +25,11 @@ Thu Apr 4 10:36:06 1996 David Byers <davby@sen2.ida.liu.se>
(lyskom-get-texts-by): Ny funktion som hämtar texter av en person.
(lyskom-get-texts-to): Ny funktion som hämtar texter till ett möte.
Wed Apr 3 12:33:45 1996 David Kågedal <davidk@lysator.liu.se>
* commands1.el (lyskom-create-conf-handler-2): Testa inte om mötet
är hemligt. Detta görs i kom-create-conf istället.
Wed Apr 3 12:56:19 1996 David Byers <davby@sen2.ida.liu.se>
* english-strings.el, swedish-strings.el (lyskom-strings): Lade till
...
...
@@ -84,6 +94,15 @@ Tue Apr 2 15:15:11 1996 David Byers <davby@sen2.ida.liu.se>
referenser till debugger-old-buffer för att slippa
kompileringsvarningar.
Tue Apr 2 00:45:27 1996 David Kågedal <davidk@lysator.liu.se>
* view-text.el (lyskom-follow-comments): Anropa lyskom-view-text
med fler argument.
* commands1.el (kom-create-conf): Slog ihop med
lyskom-create-conf-handler. Skriv inga presentationer till hemliga
möten.
Mon Apr 1 14:57:53 1996 David Byers <davby@sen2.ida.liu.se>
* commands1.el: Prioritet sätts mellan 1 och 255, aldrig till noll.
...
...
@@ -113,6 +132,14 @@ Mon Apr 1 14:57:53 1996 David Byers <davby@sen2.ida.liu.se>
nil om man inte är vid sista prompten. lyskom-is-waiting måste vara
nil om asynkrona texter skall sparas och inte skrivas ut.
Sat Mar 30 00:33:32 1996 David Kågedal <davidk@lysator.liu.se>
* lyskom-rest.el (lyskom-start-of-command): Fungerade dåligt om
man hade satt kom-page-before-command.
* review.el (kom-review-comments): Bakade in
lyskom-review-comments.
Fri Mar 29 03:26:34 1996 David Kågedal <davidk@lysator.liu.se>
* review.el (lyskom-review-comments,kom-review-comments): Skrev om
...
...
src/TODO
View file @
b753aedc
...
...
@@ -30,13 +30,17 @@ Buggar
(FIXAT)
När du skapar ett hemligt möte bör Elispklienten inte erbjuda dig
att skriva en presentation i "Presentation (av nya) möten".
att skriva en presentation i "Presentation (av nya) möten".
(FIXAT)
text 1306568
kom-review-tree på en text med fotnoter visar fotnoterna på en
gång. Är det en bug?
Fotnoter som visas på en gång filtreras inte.
M-> i prioritera-bufferten. Text 1320736.
Allmänna förbättringar
Visa fotnoter på ett bättre sätt.
...
...
@@ -66,6 +70,10 @@ Allm
text 1306827 (FIXAT)
text 1319383
text 1321912
Varför står det "anonym person" på ett ställe, men "Person 0" på
ett annat? Och vad menar Rickard?
...
...
src/commands1.el
View file @
b753aedc
...
...
@@ -521,45 +521,38 @@ of the person."
;;; Author: ???
(
def
un
kom-create-conf
(
conf-
name
)
(
def
-kom-command
kom-create-conf
(
&optional
name
)
"Create a conference."
(
interactive
(
list
(
lyskom-read-string
(
lyskom-get-string
'name-of-conf
))))
(
let*
((
open
(
j-or-n-p
(
lyskom-get-string
'anyone-member
)))
(
interactive
)
(
let*
((
conf-name
(
or
name
(
lyskom-read-string
(
lyskom-get-string
'name-of-conf
))))
(
open
(
j-or-n-p
(
lyskom-get-string
'anyone-member
)))
(
secret
(
if
(
not
open
)
(
j-or-n-p
(
lyskom-get-string
'secret-conf
))))
(
orig
(
j-or-n-p
(
lyskom-get-string
'comments-allowed
))))
(
lyskom-start-of-command
'kom-create-conf
)
(
unwind-protect
(
lyskom-create-conf-handler
(
blocking-do
'create-conf
conf-name
(
lyskom-create-conf-type
(
not
open
)
(
not
orig
)
secret
nil
))
conf-name
)
(
lyskom-end-of-command
))))
(
defun
lyskom-create-conf-handler
(
conf-no
conf-name
)
"Deal with the answer from an attempt to create a conference.
Add the person creating and execute lyskom-end-of-command."
(
if
(
null
conf-no
)
(
lyskom-format-insert
'could-not-create-conf
conf-name
lyskom-errno
)
(
progn
(
let
((
conf-stat
(
blocking-do
'get-conf-stat
conf-no
)))
(
lyskom-format-insert
'created-conf-no-name
(
or
conf-stat
conf-no
)
(
or
conf-stat
conf-name
)
(
if
conf-stat
(
lyskom-default-button
'conf
conf-stat
)
nil
)))
(
lyskom-scroll
)
(
lyskom-add-member-by-no
conf-no
lyskom-pers-no
'lyskom-create-conf-handler-2
conf-no
conf-name
))))
(
orig
(
j-or-n-p
(
lyskom-get-string
'comments-allowed
)))
(
conf-no
(
blocking-do
'create-conf
conf-name
(
lyskom-create-conf-type
(
not
open
)
(
not
orig
)
secret
nil
))))
(
if
(
null
conf-no
)
(
lyskom-format-insert
'could-not-create-conf
conf-name
lyskom-errno
)
(
progn
(
let
((
conf-stat
(
blocking-do
'get-conf-stat
conf-no
)))
(
lyskom-format-insert
'created-conf-no-name
(
or
conf-stat
conf-no
)
(
or
conf-stat
conf-name
)
(
if
conf-stat
(
lyskom-default-button
'conf
conf-stat
)
nil
)))
(
lyskom-scroll
)
(
lyskom-add-member-by-no
conf-no
lyskom-pers-no
(
if
secret
nil
; Don't write a presentation
'lyskom-create-conf-handler-2
)
conf-no
conf-name
)))))
(
defun
lyskom-create-conf-handler-2
(
conf-no
conf-name
)
...
...
@@ -567,8 +560,7 @@ Add the person creating and execute lyskom-end-of-command."
This does lyskom-end-of-command"
(
lyskom-tell-internat
'kom-tell-conf-pres
)
(
let
((
conf
(
blocking-do
'get-conf-stat
conf-no
)))
(
if
(
and
conf
(
not
(
conf-type->secret
(
conf-stat->conf-type
conf
))))
(
if
conf
(
lyskom-dispatch-edit-text
lyskom-proc
(
lyskom-create-misc-list
'recpt
...
...
src/edit-text.el
View file @
b753aedc
...
...
@@ -577,8 +577,8 @@ Entry to this mode runs lyskom-edit-mode-hook."
(
defun
lyskom-looking-at-header
(
header
match-number
)
"Check if point is at the beginning of a header of type HEADER.
Return the corresponding number (conf no etc.)
. If ANGLED is non-nil,
only match a number inside <>."
Return the corresponding number (conf no etc.)
if MATCH-NUMBER is
non-nil. If MATCH-NUMBER is 'angled,
only match a number inside <>."
(
if
(
looking-at
(
concat
(
lyskom-get-string
header
)
(
cond
((
eq
match-number
'angled
)
...
...
src/lyskom-rest.el
View file @
b753aedc
No preview for this file type
src/review.el
View file @
b753aedc
...
...
@@ -626,13 +626,8 @@ If the current text has comments in (footnotes in) some texts then the first
text is shown and a REVIEW list is built to shown the other ones."
(
interactive
)
(
lyskom-tell-internat
'kom-tell-review
)
(
lyskom-review-comments
(
blocking-do
'get-text-stat
lyskom-current-text
)))
(
defun
lyskom-review-comments
(
text-stat
)
"Handles the return from the initiate-get-text-stat, displays and builds list."
(
let*
((
misc-info-list
(
and
text-stat
(
let*
((
text-stat
(
blocking-do
'get-text-stat
lyskom-current-text
))
(
misc-info-list
(
and
text-stat
(
text-stat->misc-info-list
text-stat
)))
(
misc-infos
(
and
misc-info-list
(
append
(
lyskom-misc-infos-from-list
...
...
src/view-text.el
View file @
b753aedc
...
...
@@ -229,7 +229,8 @@ lyskom-reading-list."
(
>
(
misc-info->footn-in
misc
)
(
text-stat->text-no
text-stat
))
kom-show-footnotes-immediately
)
;; Show the footnote
(
lyskom-view-text
(
misc-info->footn-in
misc
)
mark-as-read
)
(
lyskom-view-text
(
misc-info->footn-in
misc
)
mark-as-read
t
conf-stat
priority
review-tree
)
(
lyskom-is-read
(
misc-info->footn-in
misc
)))
((
eq
(
misc-info->type
misc
)
'FOOTN-IN
)
(
setq
list
(
cons
(
misc-info->footn-in
misc
)
list
)))
...
...
Write
Preview
Supports
Markdown
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