Commit daa2e298 authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

Some prompt fiddling.

parent e2219901
2001-04-21 Joel Rosdahl <joel@rosdahl.net>
* option-edit.el (lyskom-widget-string-action): Nicer prompt
strings.
(lyskom-widget-number-action): Ditto.
* swedish-strings.el (lyskom-custom-strings): Nicer prompt
strings.
* option-edit.el (lyskom-widget-mark-association-action): Set
default values.
......
......@@ -2313,9 +2313,9 @@ Select whether to execute command or keyboard macro.")
(ask-every-time . "Ask every time ")
(fixed-priority . "Fixed priority")
(messages-in-lyskom-buffer . "In the LysKOM buffer ")
(messages-in-lyskom-buffer . "In the LysKOM buffer")
(discard-messages . "Nowhere - discard them")
(in-named-buffer . "In a named buffer ")
(in-named-buffer . "In a named buffer:")
(everybody-rcpt . "Everybody ")
(group-rcpt . "The recipient of the last group message ")
......@@ -2354,9 +2354,9 @@ Select whether to execute command or keyboard macro.")
(specific-placement . "Specific location")
(priority . "Priority")
(same-as-conf . "Same as current conference")
(custom-format . "Custom format")
(custom-format . "Custom format:")
(default-format . "Standard format")
(a-string . "The string")
(a-string . "A string:")
(some-string . "A random string")
(unspecified . "Unspecified")
......@@ -3316,7 +3316,7 @@ be saved in the server. Otherwise it will be saved in your .emacs.")
(kom-symbolic-marks-alist-tag . "Symbolic mark types:")
(kom-cite-string-tag . "Quotation indicator: ")
(kom-cite-string-tag . "Quotation indicator:")
(kom-confirm-multiple-recipients-tag .
"Confirm multiple recipients: ")
(kom-check-commented-author-membership-tag .
......
......@@ -1360,7 +1360,7 @@ customize buffer but do not save them to the server."
(defun lyskom-widget-string-action (widget &optional event)
(let ((tmp (lyskom-read-from-minibuffer
(format "%s: " (widget-get widget ':tag))
(format "%s " (widget-get widget ':tag))
(widget-value widget))))
(widget-value-set widget tmp)
(widget-setup)))
......@@ -1382,10 +1382,10 @@ customize buffer but do not save them to the server."
widget
(if (and min max)
(lyskom-read-num-range min max
(concat (widget-get widget ':tag) ": ")
(widget-get widget ':tag)
t
(widget-value widget))
(lyskom-read-number (concat (widget-get widget ':tag) ": ")
(lyskom-read-number (widget-get widget ':tag)
(widget-value widget))))
(widget-setup)))
......
......@@ -2350,9 +2350,9 @@ Du m
(ask-every-time . "Frga varje gng ")
(fixed-priority . "Fast prioritet")
(messages-in-lyskom-buffer . "I LysKOM-bufferten ")
(discard-messages . "Ingenstans ")
(in-named-buffer . "I namngiven buffert")
(messages-in-lyskom-buffer . "I LysKOM-bufferten ")
(discard-messages . "Ingenstans ")
(in-named-buffer . "I namngiven buffert:")
(everybody-rcpt . "Alla ")
(group-rcpt . "Senaste gruppmeddelandes mottagare")
......@@ -2392,9 +2392,9 @@ Du m
(specific-placement . "Specifik plats")
(priority . "Prioritet")
(same-as-conf . "Samma som aktuellt mte")
(custom-format . "Eget format")
(custom-format . "Eget format:")
(default-format . "Standardformat")
(a-string . "En text")
(a-string . "En text:")
(some-string . "En slumpmssig text")
(unspecified . "Ospecificerat")
......@@ -3357,7 +3357,7 @@ i servern. Annars sparas det i din .emacs.")
(kom-symbolic-marks-alist-tag . "Symboliska markeringstyper:")
(kom-cite-string-tag . "Citatmarkering: ")
(kom-cite-string-tag . "Citatmarkering:")
(kom-confirm-multiple-recipients-tag .
"Bekrfta multipla mottagare: ")
(kom-check-commented-author-membership-tag .
......
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