Commit 16be11db authored by Johan Sundström's avatar Johan Sundström
Browse files

More informative messages from kom-next-unread-kom.

parent 2f0bebce
2000-07-30 Johan Sundstrm <jhs@lysator.liu.se>
* commands2.el (kom-next-unread-kom): More info, as suggested by
Hans Persson. Tells whether there are any other sessions
whatsoever when there are no other sessions with unread texts.
2000-07-28 Johan Sundstrm <jhs@lysator.liu.se>
* utilities.el (lyskom-read-text-no-prefix-arg): Policy change;
......
......@@ -1714,7 +1714,7 @@ Return-value: 'no-session if there is no suitable session to switch to
'no-other-lyskom-r))
(error (lyskom-get-string 'no-lyskom-session))))
(t nil))))
(def-kom-emacs-command kom-next-unread-kom ()
"Pop up the previous lyskom-session."
......@@ -1727,8 +1727,12 @@ Return-value: 'no-session if there is no suitable session to switch to
(error (lyskom-get-string 'no-unread-lyskom))))
((eq result 'same-session)
(if kom-next-unread-kom-running-as-kom-command
(lyskom-insert-before-prompt (lyskom-get-string
'no-other-unread-lyskom-r))
(lyskom-insert-before-prompt
(lyskom-get-string
;; Are there are any other sessions at all?
(if (= 1 (length lyskom-buffer-list))
'no-other-lyskom-r
'no-other-unread-lyskom-r)))
(error (lyskom-get-string 'no-lyskom-session))))
(t nil))))
......
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