Commit 133d8c78 authored by David Byers's avatar David Byers
Browse files

Updates for NEWS file. Improved kom-list-new-conferences and friends.

Detailed changes:
> 	Update NEWS file:
> 	* NEWS-0.48: Updated to here.
>
> 	Don't show nil in message area when silently saving settings:
> 	* flags.el (lyskom-save-options): Support nil message properly.
> 	(lyskom-save-options-2): Ditto.
> 	(lyskom-save-options-3): Ditto.
>
> 	Suppoert non-interactive use of kom-list-new-conferences etc:
> 	* vars.el.in (kom-auto-confirm-new-conferences): New variable.
>
> 	* commands2.el (lyskom-list-new-conferences): Support
> 	auto-confirmation.
>
> 	* lyskom-rest.el (lyskom-do-format): Better error reoprting
> 	(report argument number and actual argument).
> 	(lyskom-format-aux-help): Provide data for error reporting.
>
> 	* faqs.el (kom-list-server-faqs): Updated documentation.
parent 79729ff4
2003-08-14 David Byers <byers@lysator.liu.se>
Update NEWS file:
* NEWS-0.48: Updated to here.
Don't show nil in message area when silently saving settings:
* flags.el (lyskom-save-options): Support nil message properly.
(lyskom-save-options-2): Ditto.
(lyskom-save-options-3): Ditto.
Suppoert non-interactive use of kom-list-new-conferences etc:
* vars.el.in (kom-auto-confirm-new-conferences): New variable.
* commands2.el (lyskom-list-new-conferences): Support
auto-confirmation.
* lyskom-rest.el (lyskom-do-format): Better error reoprting
(report argument number and actual argument).
(lyskom-format-aux-help): Provide data for error reporting.
* faqs.el (kom-list-server-faqs): Updated documentation.
New commands:
* services.el (initiate-first-unused-conf-no): New function.
(initiate-first-unused-text-no): New function.
(initiate-find-next-conf-no): New function.
......@@ -273,7 +294,7 @@
* lyskom-rest.el (lyskom-check-go-to-conf): Ask for message-flag
when de-passivating a membership.
Some more work for kom-handle-membership:
Some more work for kom-handle-membership:
* mship-edit.el (lp--create-buffer): Made the header and footer
adapt to the window width like the contents do.
(lp--toggle-passive): New command. Also added binding.
......@@ -283,7 +304,7 @@
* lyskom-rest.el (lyskom-list-unread-mapping): Removed unused
variable.
(lyskom-format-aux-help): Added format directie l.
(lyskom-format-aux-help): Added format directive l.
(lyskom-format-aux): Support arbitrary pad characters.
2003-07-27 David Byers <byers@lysator.liu.se>
......@@ -344,7 +365,6 @@
(lyskom-read-conf): Support integer argument in initial. Default
to placing point at the start of input.
Fix bug 1036:
* commands2.el (kom-change-message-flag): Nwe command.
......
......@@ -3597,9 +3597,10 @@ was given."
conf
(lyskom-list-conf-membership-char
(uconf-stat->conf-no conf)))))
(when (lyskom-j-or-n-p (lyskom-format 'mark-confs-as-known
(lyskom-get-string obj)
count))
(when (or kom-auto-confirm-new-conferences
(lyskom-j-or-n-p (lyskom-format 'mark-confs-as-known
(lyskom-get-string obj)
count)))
(set varsym (cons conf-no (lyskom-current-client-time)))
(lyskom-save-options lyskom-buffer
nil
......
......@@ -465,7 +465,7 @@ create a new FAQ."
14)))
(def-kom-command kom-list-server-faqs ()
"List all FAQs for a conference."
"List all FAQs for the server."
(interactive)
(lyskom-do-list-faqs
nil
......
......@@ -167,7 +167,7 @@ settings and save them to your emacs init file."
"\n")))
(save-excursion
(set-buffer kombuf)
(lyskom-message "%s" start-message)
(when start-message (lyskom-message "%s" start-message))
(initiate-create-text
'options
'lyskom-save-options-2
......@@ -215,9 +215,9 @@ settings and save them to your emacs init file."
(when pers-stat
(set-pers-stat->user-area pers-stat text-no))
(setq lyskom-current-user-area text-no)
(lyskom-message "%s" done-message))
(when done-message (lyskom-message "%s" done-message)))
(lyskom-format-insert 'could-not-set-user-area lyskom-errno)
(lyskom-message "%s" error-message))))
(when error-message (lyskom-message "%s" error-message)))))
(defun lyskom-read-options (&optional buffer)
"Reads the user-area and sets the variables according to the choises.
......
......@@ -1378,8 +1378,9 @@ Deferred insertions are not supported."
0)
allow-defer))
(lyskom-format-error
(error "LysKOM internal error formatting %s: %s%s"
format-string (nth 1 error) (nth 2 error))))))
(error "LysKOM internal error formatting %s: %s%s (arg %S, got %S)"
format-string (nth 1 error) (nth 2 error)
(nth 3 error) (nth 4 error))))))
state))
......@@ -1565,14 +1566,18 @@ Deferred insertions are not supported."
(make-list count arg))))))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected char or string)"))))))
": argument error (expected char or string)"
arg-no
arg))))))
((= format-letter ?s)
(setq result (cond ((stringp arg) arg)
((symbolp arg) (symbol-name arg))
(t (signal 'lyskom-format-error
(list 'lyskom-format
": argument error (expected string)")))))
": argument error (expected string)"
arg-no
arg)))))
(when downcase-flag (setq result (downcase result))))
;;
;; Format a number by conferting it to a string and inserting
......@@ -1587,7 +1592,9 @@ Deferred insertions are not supported."
(format "%0.0f" arg))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected int)"))))))
": argument error (expected int)"
arg-no
arg))))))
((or (= format-letter ?g)
(= format-letter ?f)
......@@ -1601,7 +1608,9 @@ Deferred insertions are not supported."
arg))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected number)")))))
": argument error (expected number)"
arg-no
arg)))))
(save-match-data
(when (and (string-match "\\." result)
(string-match "\\.?0+$" result))
......@@ -1624,7 +1633,9 @@ Deferred insertions are not supported."
(setq result (cond ((numberp arg) (format "%f" arg))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected number)"))))))
": argument error (expected number)"
arg-no
arg))))))
;;
......@@ -1636,7 +1647,9 @@ Deferred insertions are not supported."
((characterp arg) (char-to-string arg))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected char)"))))))
": argument error (expected char)"
arg-no
arg))))))
;;
;; Format a literal percent character by inserting a string
;; containing it into the result list
......@@ -1864,7 +1877,9 @@ Deferred insertions are not supported."
;; Something went wrong
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected conf)")))))
": argument error (expected conf)"
arg-no
arg)))))
(if (and (not colon-flag)
(or (lyskom-conf-stat-p arg)
(lyskom-uconf-stat-p arg)
......@@ -1893,7 +1908,9 @@ Deferred insertions are not supported."
(int-to-string (uconf-stat->conf-no arg)))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected conf)")))))
": argument error (expected conf)"
arg-no
arg)))))
(if (not colon-flag)
(setq propl
(append
......@@ -1911,7 +1928,9 @@ Deferred insertions are not supported."
(text-stat->text-no arg)))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected text-no)")))))
": argument error (expected text-no)"
arg-no
arg)))))
(if (not colon-flag)
(setq propl
(append (lyskom-default-button 'text arg) propl))))
......@@ -1924,7 +1943,9 @@ Deferred insertions are not supported."
((consp arg) (lyskom-button-transform-text (cdr arg) (car arg)))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected subject)")))))
": argument error (expected subject)"
arg-no
arg)))))
(if (and (not colon-flag)
(not (lyskom-face-default-p kom-subject-face)))
(setq propl (append (list 'face kom-subject-face) propl))))
......@@ -1949,7 +1970,9 @@ Deferred insertions are not supported."
(car arg)))
(t (signal 'lyskom-internal-error
(list 'lyskom-format
": argument error (expected text)"))))))
": argument error (expected text)"
arg-no
arg))))))
;;
......
......@@ -122,6 +122,17 @@ if the variable is in kom-dont-read-saved-variables."
;;; User flags
(def-kom-var kom-auto-confirm-new-conferences nil
"**Determines behavior of `kom-list-new-conferences' and `kom-list-new-persons'.
When this variable is set to `t', `kom-list-new-conferences' and
`kom-list-new-persons' will automatically mark all listed conferences
and persons as known. When set to `nil', these commands will ask for
confirmation before marking the listed conferences and persons as known.
Values other than `t' and `nil' are reserved for future use."
server)
(def-kom-var kom-dont-complain-about-missing-presentation nil
"*Controls whether the client complains when you don't have
a presentation. When set to non-nil, the client will never
......
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