Commit 777d6cbd authored by David Kågedal's avatar David Kågedal
Browse files

* commands1.el (kom-delete-conf): Använd lyskom-pending-commands

för att få en ny inloggning när man utplånat sig själv.

* commands1.el (kom-write-comment): Gör textnumret som skrivs ut
till en knapp.
parent 3362cf1d
......@@ -81,8 +81,20 @@
(conf-stat->name conf-stat)))
(if (blocking-do 'delete-conf
(conf-stat->conf-no conf-stat))
(lyskom-format-insert 'conf-is-deleted
(conf-stat->name conf-stat))
(progn
(lyskom-format-insert 'conf-is-deleted
(conf-stat->name conf-stat))
(when (= (conf-stat->conf-no conf-stat)
lyskom-pers-no)
(lyskom-insert (lyskom-get-string
'you-have-deleted-yourself))
(setq lyskom-pers-no nil
lyskom-membership nil
lyskom-to-do-list (lyskom-create-read-list)
lyskom-reading-list (lyskom-create-read-list)
lyskom-pending-commands (cons
'kom-start-anew
lyskom-pending-commands))))
(lyskom-format-insert 'you-could-not-delete
conf-stat))
(lyskom-insert-string 'deletion-not-confirmed))
......@@ -596,7 +608,7 @@ If optional arg TEXT-NO is present write a comment to that text instead."
(lyskom-start-of-command (concat
(lyskom-command-name 'kom-write-comment)
(if text-no
(format " (%d)" text-no)
(lyskom-format " (%#1n)" text-no)
"")))
(unwind-protect
(if text-no
......
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