Commit f6e96253 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Wrote kom-private-answer-previous.

parent 24532099
Sat Feb 29 00:37:24 1992 Per Cederqvist (ceder@lysator)
* swedish-strings.el (lyskom-mode-map): Bound
kom-private-answer-previous to "P".
* commands1.el (kom-private-answer-previous): New command.
Sat Jan 25 00:47:53 1992 Linus Tolke Y (linus at ruben)
* swedish-strings.el (kom-page-next-command): Nu {ven bunden till
......
......@@ -832,6 +832,7 @@ that text instead."
(defun lyskom-private-answer-soon (text-stat text)
"Write a private answer to TEXT-STAT, TEXT."
(lyskom-start-of-command 'kom-private-answer)
(if (string-match "\n" (text->text-mass text))
(lyskom-private-answer text-stat
(substring (text->text-mass text)
......@@ -841,7 +842,6 @@ that text instead."
(defun lyskom-private-answer (text-stat subject)
"Write a private answer. Args: TEXT-STAT SUBJECT."
(lyskom-start-of-command 'kom-private-answer)
(if (null text-stat)
(progn
(lyskom-insert-string 'confusion-what-to-answer-to)
......@@ -856,6 +856,33 @@ that text instead."
subject ""))))
;;; ================================================================
;;; Personligt svar p} f|reg}ende - kom-private-answer-previous
;;; Author: ceder
(defun kom-private-answer-previous ()
"Write a private answer to previously viewed text."
(interactive)
(lyskom-start-of-command 'kom-private-answer-previous)
(if lyskom-previous-text
(progn
(lyskom-collect 'main)
(initiate-get-text-stat 'main nil lyskom-previous-text)
(initiate-get-text 'main nil lyskom-previous-text)
(lyskom-use 'main 'lyskom-private-answer-soon-prev))
(lyskom-insert-string 'confusion-who-to-reply-to)
(lyskom-end-of-command)))
(defun lyskom-private-answer-soon-prev (text-stat text)
"Write a private answer to TEXT-STAT, TEXT."
(if (string-match "\n" (text->text-mass text))
(lyskom-private-answer text-stat
(substring (text->text-mass text)
0 (match-beginning 0)))
(lyskom-private-answer text-stat "")))
;;; ================================================================
;;; Sluta - quit
......
......@@ -715,6 +715,8 @@ Felmeddelande: %#1s**************************************************")
(kom-comment-previous "Kommentera fregende inlgg")
(kom-write-footnote "Fotnot till inlgg")
(kom-private-answer "Personligt svar")
(kom-private-answer-previous
"Personligt svar p fregende inlgg")
(kom-set-unread "Endast lsa senaste")
(kom-write-text "Skriva ett inlgg")
(kom-send-letter "Skicka brev")
......@@ -810,6 +812,7 @@ Cf. paragraph-start.")
(define-key lyskom-mode-map "K" 'kom-comment-previous)
(define-key lyskom-mode-map "F" 'kom-write-footnote)
(define-key lyskom-mode-map "p" 'kom-private-answer)
(define-key lyskom-mode-map "P" 'kom-private-answer-previous)
(define-key lyskom-mode-map "h" 'kom-jump)
(define-key lyskom-mode-map "lm" 'kom-list-conferences)
(define-key lyskom-mode-map "ln" 'kom-list-news)
......
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