Commit 7153ef52 authored by David Byers's avatar David Byers
Browse files

Fixed bug 1142 (show mark type in message when marking)

Detailed changes:
> 	Fix bug 1142:
> 	* commands1.el (lyskom-mark-text): Print the mark type in the
> 	marking message.
>
> 	* commands2.el (lyskom-symbolic-mark-type-string): Added argument
> 	STRICT.
>
parent 50128cff
2003-11-17 David Byers <byers@lysator.liu.se>
Fix bug 1142:
* commands1.el (lyskom-mark-text): Print the mark type in the
marking message.
* commands2.el (lyskom-symbolic-mark-type-string): Added argument
STRICT.
Minor bug fixes:
* commands2.el (kom-is-person-member-of-conference): When reading
pers-to-check-mship-for, only read persons.
......
......@@ -2272,7 +2272,9 @@ the user for what mark to use."
(or mark
kom-default-mark
(lyskom-read-mark-type (lyskom-get-string 'what-mark) nil t))))
(lyskom-format-insert 'marking-textno text-no)
(lyskom-format-insert 'marking-textno text-no
(lyskom-symbolic-mark-type-string mark t)
mark)
(if (blocking-do 'mark-text text-no mark)
(progn
......
......@@ -1346,10 +1346,12 @@ YYYY-MM-DD."
subject
(mark->symbolic-mark-type mark)))))
(defun lyskom-symbolic-mark-type-string (mark-no)
"Return a symbolic name string for the mark-type of MARK."
(defun lyskom-symbolic-mark-type-string (mark-no &optional strict)
"Return a symbolic name string for the mark-type of MARK.
If optional argument STRICT is non-nil, return nil if there is no symbolic
name for the mark type."
(or (car-safe (rassoc mark-no kom-symbolic-marks-alist))
(int-to-string mark-no)))
(and (not strict) (int-to-string mark-no))))
(defun lyskom-max-mark-width ()
"Return the maximum width of the user's symbolic mark strings."
......
......@@ -410,7 +410,7 @@ and you have finished reading. Please come back later.
(creating-symbolic-mark-type . "Creating mark type \"%#1s\" (%#2d).\n")
(no-mark-types-left . "Sorry, there are no free mark types. Remove an old one first.")
(unmarking-textno . "Unmarking text %#1n...")
(marking-textno . "Marking text %#1n...")
(marking-textno . "Marking text %#1n with mark %#2?b%[\"%#2s\" (%#3d)%]%[%#3d%]...")
(list-which-mark . "List texts with which mark type (name or 0-255, RET for all)? ")
(new-passwd-again . "Repeat the new password for confirmation: ")
......
......@@ -401,7 +401,7 @@ du har l
(creating-symbolic-mark-type . "Skapar markeringstypen \"%#1s\" (%#2d).\n")
(no-mark-types-left . "Ledsen, det finns inga lediga markeringstyper. Rensa bland de gamla frst.")
(unmarking-textno . "Avmarkering av text %#1n...")
(marking-textno . "Markering av text %#1n...")
(marking-textno . "Markering av text %#1n med markering %#2?b%[\"%#2s\" (%#3d)%]%[%#3d%]...")
(list-which-mark . "Lista vilken markeringstyp (namn eller 0-255, RET fr alla)? ")
(new-passwd-again . "Mata in det nya lsenordet igen fr kontroll: ")
......
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