Commit 7541f689 authored by David Kågedal's avatar David Kågedal
Browse files

Fixade en liten bug i edit-text.el

parent 6e461207
...@@ -5,6 +5,10 @@ Mon Mar 25 06:48:01 1996 David K ...@@ -5,6 +5,10 @@ Mon Mar 25 06:48:01 1996 David K
* review.el (lyskom-review-comments): Se fotnoter frst. * review.el (lyskom-review-comments): Se fotnoter frst.
Fri Mar 22 12:48:06 1996 David Kgedal <davidk@lysator.liu.se>
* edit-text.el (lyskom-edit-send): Felhanteringen buggade.
Thu Mar 21 20:51:58 1996 David Kgedal <davidk@lysator.liu.se> Thu Mar 21 20:51:58 1996 David Kgedal <davidk@lysator.liu.se>
* view-text.el (lyskom-view-text): Markera filtrerade texter som * view-text.el (lyskom-view-text): Markera filtrerade texter som
......
...@@ -374,7 +374,7 @@ Entry to this mode runs lyskom-edit-mode-hook." ...@@ -374,7 +374,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
nil t) nil t)
(end-of-line) (end-of-line)
(if (/= (point) old) (if (/= (point) old)
(signal 'lyskom-no-subject 'enter-subject-idi)))) (signal 'lyskom-no-subject '(enter-subject-idi)))))
(setq message (lyskom-edit-extract-text)) (setq message (lyskom-edit-extract-text))
(setq mode-name "LysKOM sending") (setq mode-name "LysKOM sending")
(save-excursion (save-excursion
...@@ -402,7 +402,7 @@ Entry to this mode runs lyskom-edit-mode-hook." ...@@ -402,7 +402,7 @@ Entry to this mode runs lyskom-edit-mode-hook."
(if (cdr (cdr err)) (if (cdr (cdr err))
(goto-char (car (cdr (cdr err))))) (goto-char (car (cdr (cdr err)))))
(lyskom-beep lyskom-ding-on-no-subject) (lyskom-beep lyskom-ding-on-no-subject)
(lyskom-message (lyskom-get-string (cdr err)))))) (lyskom-message (lyskom-get-string (car (cdr err)))))))
(defun kom-edit-quit () (defun kom-edit-quit ()
......
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