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
abb27d10
Commit
abb27d10
authored
May 29, 2000
by
Johan Sundström
Browse files
(Your) marks are now shown as an intetger when reading a text.
parent
81235303
Changes
4
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
abb27d10
2000-05-29 Johan Sundström <jhs@lysator.liu.se>
* view-text.el (lyskom-view-text): Marks now show themselves,
always. Perhaps ought not to when kom-default-mark is set, and
this really ought to be done as a %m or something flag to
lyskom-format with context menus to change or remove a mark, but
that will have to wait for the time being.
* swedish-strings.el, english-strings.el (lyskom-message): Altered
the strings marked-by-you and marked-by-you-and-others somewhat.
2000-05-28 Johan Sundström <jhs@lysator.liu.se>
* commands2.el (kom-list-news): Rehacked from scratch. Now
...
...
src/english-strings.el
View file @
abb27d10
...
...
@@ -787,8 +787,8 @@ Help: \\[describe-mode] ---")
(line . "
/1
line/
")
(lines ."
/%#1d
lines/
")
(marked-by-you . "
Marked
by
you.\n
")
(marked-by-you-and-others . "
Marked
by
you
and
%#1?d%[someone
else%]%[%#1d
others%].\n
")
(marked-by-you . "
Marked
by
you
(
%#1d
)
.
\n
")
(marked-by-you-and-others . "
Marked
by
you
(
%#2d
)
and
%#1?d%[someone
else%]%[%#1d
others%].\n
")
(marked-by-several . "
Marked
by
%#1d
user%#1?d%[%]%[s%].\n
")
(time-yyyy-mm-dd-hh-mm . "
%4#1d-%02#2d-%02#3d
%02#4d:%02#5d
")
...
...
src/swedish-strings.el
View file @
abb27d10
...
...
@@ -793,8 +793,8 @@ Annat se \\[describe-mode] ---")
(line . "
/1
rad/
")
(lines ."
/%#1d
rader/
")
(marked-by-you . "
Markerad
av
dig.\n
")
(marked-by-you-and-others . "
Markerad
av
dig
och
%#1?d%[ngon
annan%]%[%#1d
andra%].\n
")
(marked-by-you . "
Markerad
av
dig
(
%#1d
)
.
\n
")
(marked-by-you-and-others . "
Markerad
av
dig
(
%#2d
)
och
%#1?d%[ngon
annan%]%[%#1d
andra%].\n
")
(marked-by-several . "
Markerad
av
%#1d
person%#1?d%[%]%[er%].\n
")
(time-yyyy-mm-dd-hh-mm . "
%4#1d-%02#2d-%02#3d
%02#4d:%02#5d
")
...
...
src/view-text.el
View file @
abb27d10
...
...
@@ -269,15 +269,18 @@ Note that this function must not be called asynchronously."
(
let
((
num-marks
(
text-stat->no-of-marks
text-stat
))
(
is-marked-by-me
(
cache-text-is-marked
(
text-stat->text-no
text-stat
))))
(
if
(
>
num-marks
0
)
(
lyskom-insert
(
if
is-marked-by-me
(
if
(
=
num-marks
1
)
(
lyskom-get-string
'marked-by-you
)
(
lyskom-format
'marked-by-you-and-others
(
1-
num-marks
)))
(
lyskom-format
'marked-by-several
num-marks
)))))
(
when
(
>
num-marks
0
)
(
if
is-marked-by-me
(
if
(
=
num-marks
1
)
(
lyskom-format-insert
'marked-by-you
(
mark->mark-type
is-marked-by-me
))
(
lyskom-format-insert
'marked-by-you-and-others
(
1-
num-marks
)
(
mark->mark-type
is-marked-by-me
)))
(
lyskom-format-insert
'marked-by-several
num-marks
))))
(
lyskom-print-text
text-stat
text
mark-as-read
text-no
flat-review
))
...
...
@@ -329,8 +332,8 @@ Note that this function must not be called asynchronously."
(
setq
aux-items
(
cdr
aux-items
))))
)))
todo
))
(
defun
lyskom-follow-comments
(
text-stat
conf-stat
...
...
Write
Preview
Markdown
is supported
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