Commit 94506c0c authored by David Byers's avatar David Byers
Browse files

Documentation fixes, minor bugfixes and naming fixes.

Detailed changes:
> 2005-01-08  David Byers  <byers@lysator.liu.se>
>
> 	* vars.el.in: Documentation updates in preparation for generating
> 	DocBook from the documentation strings.
>
> 	* startup.el (lyskom-refetch): We were prefetching unread confs in
> 	the reverse order, which was stupid as it slows down starting to
> 	read and may cause us to read texts in the wrong order.
>
> 2005-01-07  David Byers  <byers@lysator.liu.se>
>
> 	* mship-edit.el (lyskom-change-membership-position): Removed
> 	binding of old-position (it was never used).
>
> 	* english-strings.el (lyskom-en-edit-mode-map): Changed key
> 	bindings to explicitly use prefixes.
>
> 	* swedish-strings.el (lyskom-sv-edit-mode-map): Changed key
> 	bindings to explicitly use prefixes. Better variants of the
> 	swedish key binding. Use lyskom-try-define-key for swedish
> 	bindings.
>
> 	* edit-text.el: Updated documentation for most commands so that it
> 	can be extracted into the user manual in the future. All commands
> 	with the prefix `kom-edit-' are expected to be documented unless
> 	the documentation string ends in "Excluded from manual."
> 	(kom-ispell-message): Renamed to
> 	kom-edit-ispell-message.
> 	(kom-yank-info-nodename): Renamed to kom-edit-yank-info-nodename.
>
> 	* filter-edit.el (kom-filter-edit): Wrote docstring.
>
> 	* review.el: Various docstring updates (changed "text" to article
> 	in several places).
>
> 	* vars.el.in (kom-unread-mode-line-type): Updated docstring.
>
parent 148a57d6
2005-01-08 David Byers <byers@lysator.liu.se>
* vars.el.in: Documentation updates in preparation for generating
DocBook from the documentation strings.
* startup.el (lyskom-refetch): We were prefetching unread confs in
the reverse order, which was stupid as it slows down starting to
read and may cause us to read texts in the wrong order.
2005-01-07 David Byers <byers@lysator.liu.se>
* mship-edit.el (lyskom-change-membership-position): Removed
binding of old-position (it was never used).
* english-strings.el (lyskom-en-edit-mode-map): Changed key
bindings to explicitly use prefixes.
* swedish-strings.el (lyskom-sv-edit-mode-map): Changed key
bindings to explicitly use prefixes. Better variants of the
swedish key binding. Use lyskom-try-define-key for swedish
bindings.
* edit-text.el: Updated documentation for most commands so that it
can be extracted into the user manual in the future. All commands
with the prefix `kom-edit-' are expected to be documented unless
the documentation string ends in "Excluded from manual."
(kom-ispell-message): Renamed to
kom-edit-ispell-message.
(kom-yank-info-nodename): Renamed to kom-edit-yank-info-nodename.
* filter-edit.el (kom-filter-edit): Wrote docstring.
* review.el: Various docstring updates (changed "text" to article
in several places).
* vars.el.in (kom-unread-mode-line-type): Updated docstring.
2005-01-04 Ulrik Haugen <qha@lysator.liu.se>
* swedish-strings.el (lyskom-sv-mode-map): Added keybindings for
......
......@@ -436,12 +436,16 @@ so it's not as clean as it ought to be."
;;;
(defun kom-edit-send-anonymous ()
"Send the text anonymously to the server."
"Send the text anonymously to the server. Be aware that although the text
will be truly anonymous, it is easy to slip up in such a way that the author
is evident anyway."
(interactive)
(lyskom-edit-send 'initiate-create-anonymous-text t))
(defun kom-edit-send ()
"Send the text to the server."
"Send the text to the server. This command will attempt to send the text
to the server. If something goes wrong, a prompt will be shown allowing you
to edit the message and try to send it again."
(interactive)
(if (and (lyskom-default-value 'lyskom-is-anonymous)
(lyskom-j-or-n-p 'do-send-anonymous))
......@@ -658,7 +662,7 @@ anonymously and take actions to avoid revealing the sender."
(defun lyskom-ispell-text ()
"Check spelling of the text body.
Put this in kom-send-text-hook"
(kom-ispell-message)
(kom-edit-ispell-message)
t)
......@@ -668,10 +672,13 @@ Put this in kom-send-text-hook"
(defvar ispell-message-start-skip nil)
(defvar ispell-message-end-skip nil))
(defun kom-ispell-message ()
"Check spelling of the text.
kom-ispell-dictionary is the dictionary to use to check spelling.
Based on ispell-message."
(defalias 'kom-ispell-message 'kom-edit-ispell-message)
(defun kom-edit-ispell-message ()
"Check spelling of the text. Spelling is checked using ispell
and the dictionary indicated by `kom-ispell-dictionary'. If you
want to check the spelling of every message before sending it,
read the documentation for `lyskom-ispell-text' and
`kom-send-text-hook'"
(interactive)
(require 'ispell)
(let ((ispell-dictionary (or kom-ispell-dictionary ispell-dictionary))
......@@ -1058,7 +1065,7 @@ Cannot be called from a callback."
(defun kom-edit-quit ()
"Kill the text (if any) written so far and continue reading."
"Cancel editing the text being written and return to reading LysKOM."
(interactive)
(let ((edit-buffer (current-buffer)))
(goto-char (point-max))
......@@ -1078,8 +1085,11 @@ Cannot be called from a callback."
(defun kom-edit-insert-commented (arg)
"Insert the commented text. Unless an empty prefix argument is
given, prepend each line with your commenting prefix (or '>')."
"Insert the commented text, prepending each line with the
text in `kom-cite-string' (defaults to \"> \"). Note that citing
the commented text is not common practise in LysKOM (unlike
e-mail and news) since there is a strong link to the commented
text anyway. Use this command sparingly."
(interactive "P")
(lyskom-edit-get-commented
'lyskom-edit-insert-commented
......@@ -1088,19 +1098,24 @@ given, prepend each line with your commenting prefix (or '>')."
(defun kom-edit-insert-buglist ()
"Insert the commented buglist, Roxen Internet Software style."
"Insert the commented buglist, Roxen Internet Software style. Excluded from manual."
(interactive)
(lyskom-edit-get-commented 'lyskom-edit-insert-buglist))
(defun kom-edit-insert-digit-text ()
"Prompt for a text to insert. Excluded from manual."
(interactive)
(setq unread-command-events (cons last-command-event unread-command-events))
(call-interactively 'kom-edit-insert-text nil))
(defun kom-edit-insert-text (no)
"Insert the text number NO with '>' first on each line."
"Prompt for a text to insert, prefixing each line with the contents
of `kom-cite-string' (defaults to \"> \"). Note that citing texts is not
commonplace in LysKOM (unlike e-mail and news) since it is easy to
refer to specific texts (see `kom-edit-insert-link' and
`kom-edit-add-cross-reference'). Use this command sparingly."
(interactive (list
(cond
((null current-prefix-arg)
......@@ -1154,8 +1169,12 @@ WINDOW plus any optional arguments given in ARG-LIST."
(defvar Info-current-file)
;; NOTUSED: kom-yank-info-nodename
(defun kom-yank-info-nodename ()
"Put the current Info-node on the kill-ring."
(defalias 'kom-yank-info-nodename 'kom-edit-yank-info-nodename)
(defun kom-edit-yank-info-nodename ()
"When browsing info files, this command will place a reference to the
current info node in the kill ring, from where it can be pasted into
another buffer. This command is useful when you want to refer to an
info node in a LysKOM text."
(interactive)
(kill-new (format "*Note %s: (%s)%s,"
Info-current-node
......@@ -1164,7 +1183,8 @@ WINDOW plus any optional arguments given in ARG-LIST."
;; NOTUSED: kom-insert-last-info-nodename
(defun kom-insert-last-info-nodename ()
(defalias 'kom-insert-last-info-nodename 'kom-edit-insert-last-info-nodename)
(defun kom-edit-insert-last-info-nodename ()
"Insert a reference to the most recently visited info node."
(interactive)
(condition-case nil
......@@ -1185,7 +1205,10 @@ WINDOW plus any optional arguments given in ARG-LIST."
;;; Changed by: Linus Tolke
(defun kom-edit-add-comment ()
"Adds a text as commented to the text being edited."
"Makes this text a comment to another text. Using this command it is
possible to make the text a comment to multiple texts. To remove a
comment link, simply remove the corresponding line from the headers
in the edit buffer."
(interactive)
(let* ((edit-buffer (current-buffer))
(insert-at (point-min-marker))
......@@ -1202,25 +1225,38 @@ WINDOW plus any optional arguments given in ARG-LIST."
(defun kom-edit-add-recipient ()
"Adds a conference as recipient to the text being edited."
"Adds a regular recipient to the text or converts an existing
recipient to a regular recipient. Using this command it is possible to
add any number of regular recipients. To remove a recipient, simply
delete the corresponding header line in the edit buffer."
(interactive)
(lyskom-edit-add-recipient/copy 'added-recipient nil 'RECPT))
(defun kom-edit-add-bcc ()
"Adds a conference as bcc recipient to the text being edited."
"Adds a blind carbon copy recipient to the text, or converts an
existing recipient to blind carbon copy. Using this command it is
possible to add any number of regular recipients. To remove a
recipient, simply delete the corresponding header line in the edit
buffer."
(interactive)
(lyskom-edit-add-recipient/copy 'added-blank-carbon-copy nil 'BCC-RECPT))
(defun kom-edit-add-copy ()
"Adds a conference to which a copy of the edited text will be sent."
"Adds a carbon copy recipient to the text, or converts an existing
recipient to blind carbon copy. Using this command it is possible to
add any number of regular recipients. To remove a recipient, simply
delete the corresponding header line in the edit buffer."
(interactive)
(lyskom-edit-add-recipient/copy 'added-carbon-copy nil 'CC-RECPT))
(defun kom-edit-move-text ()
"Adds a conference as a recipient, and changes all other recipients to
CC recipients."
"Adds a regular recipient to the text, or converts an existing
recipient to blind carbon copy, and converts all other recipients to
carbonn copy recipients. This command is intended for situations where
a commend is being sent to a different recipient than the commented
text was."
(interactive)
(lyskom-edit-add-recipient/copy 'who-to-move-to-q
'lyskom-edit-move-recipients))
......@@ -1342,12 +1378,21 @@ RECPT-TYPE is the type of recipient to add."
(defun kom-edit-add-cross-reference ()
"Add a cross reference to this text. This command prompts for the
type and target of the cross reference. Cross references are used
to systematically refer from a text to another text, conference or
person without altering the contents of the text."
(interactive)
(let ((item (lyskom-read-cross-reference-and-get-aux-item)))
(when item
(lyskom-edit-insert-aux-item item))))
(defun kom-edit-add-read-confirm-request ()
"Request that others confirm reading this text. Conforming clients
will ask each reader of this text to confirm reading the text. Note
that not all clients understand this request, and that confirmation is
neither automatic nor mandatory. Use very sparingly as this interrupts
the normal flow of reading for many users."
(interactive)
(lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 6 0 0
......@@ -1356,6 +1401,10 @@ RECPT-TYPE is the type of recipient to add."
0 "")))
(defun kom-edit-add-no-comments ()
"Request that nobody comments this text. Conforming clients will
either prevent users from commenting the text or ask for confirmation
before commenting the text. Note that not all clients understand this
request and that it is advisory only."
(interactive)
(lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 4 0 0
......@@ -1364,6 +1413,10 @@ RECPT-TYPE is the type of recipient to add."
0 "")))
(defun kom-edit-add-personal-comments ()
"Request that all replies to this text are in the form of personal
replies. Conforming clients will treat a request to comment this text
as a request to answer privately. Note that not all clients understand
this request and that it is advisory only."
(interactive)
(lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 5 0 0
......@@ -1372,6 +1425,10 @@ RECPT-TYPE is the type of recipient to add."
0 "")))
(defun kom-edit-add-world-readable ()
"Make this text readable to all users, even if they are not logged
in. World readable texts can be read by anyone, regardless of what
recipients the text has. World readable texts can even be read without
logging in to LysKOM."
(interactive)
(lyskom-edit-insert-aux-item
(lyskom-create-aux-item 0 34 0 0
......@@ -1380,6 +1437,9 @@ RECPT-TYPE is the type of recipient to add."
0 "")))
(defun kom-edit-insert-link ()
"Insert an in-line link to another text, a conference or a person.
This command prompts for the target of the link and inserts text that
most clients will interpret as a link."
(interactive)
(let ((item (lyskom-read-link)))
(when item
......@@ -1951,6 +2011,7 @@ buglist style, automating the removal of closed subjects and change-marks."
;;; Tab between buttons in the header
(defun kom-edit-next-button-or-self-insert (num)
"Move to the next link or insert a TAB, depending on context. Excluded from manual."
(interactive "p")
(let ((header-end (lyskom-edit-find-separator))
(start (point))
......@@ -1988,6 +2049,7 @@ buglist style, automating the removal of closed subjects and change-marks."
(setq num (1- num) start (point))))))
(defun kom-edit-prev-button (num)
"Move to the previous link. Excluded from manual."
(interactive "p")
(let ((header-end (lyskom-edit-find-separator)))
(while (> num 0)
......
......@@ -60,7 +60,11 @@
;;; Set the keymap for lyskom-edit-mode
(defvar lyskom-en-edit-prefix nil)
(defvar lyskom-en-edit-prefix)
(defvar lyskom-en-edit-review-prefix)
(defvar lyskom-en-edit-insert-prefix)
(defvar lyskom-en-edit-aux-prefix)
(defvar lyskom-en-edit-add-prefix)
(if lyskom-en-edit-mode-map
nil
......@@ -70,6 +74,7 @@
(define-prefix-command 'lyskom-en-edit-insert-prefix)
(define-prefix-command 'lyskom-en-edit-aux-prefix)
(define-prefix-command 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2 'button2up))) 'kom-button-click-or-yank)
(define-key lyskom-en-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up 'button2))) 'kom-mouse-null)
(define-key lyskom-en-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
......@@ -79,45 +84,50 @@
(define-key lyskom-en-edit-mode-map (kbd "TAB") 'kom-edit-next-button-or-self-insert)
(define-key lyskom-en-edit-mode-map (kbd "M-TAB") 'kom-edit-prev-button)
(define-key lyskom-en-edit-mode-map (kbd "<S-tab>") 'kom-edit-prev-button)
(define-key lyskom-en-edit-mode-map (kbd "C-c") 'lyskom-en-edit-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-x") 'lyskom-en-edit-aux-prefix)
(define-key lyskom-en-edit-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-r") 'lyskom-en-edit-review-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-i") 'lyskom-en-edit-insert-prefix)
(define-key lyskom-en-edit-prefix (kbd "TAB") 'lyskom-en-edit-insert-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "*") 'kom-button-press)
(define-key lyskom-en-edit-prefix (kbd "=") 'kom-menu-button-press)
(define-key lyskom-en-edit-prefix (kbd "C-c") 'kom-edit-send)
(define-key lyskom-en-edit-prefix (kbd "C-s") 'kom-ispell-message)
(define-key lyskom-en-edit-prefix (kbd "C-k") 'kom-edit-quit)
(define-key lyskom-en-edit-prefix (kbd "r ?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-r C-c") 'kom-edit-show-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i ?") 'lyskom-help)
(define-key lyskom-en-edit-prefix (kbd "C-i C-c") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-y") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-i C-y") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-prefix (kbd "C-b") 'kom-edit-insert-buglist)
(define-key lyskom-en-edit-prefix (kbd "C-i 1") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 2") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 3") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 4") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 5") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 6") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 7") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 8") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i 9") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-prefix (kbd "C-i SPC") 'kom-edit-insert-text)
(define-key lyskom-en-edit-prefix (kbd "C-i C-l") 'kom-edit-insert-link)
(define-key lyskom-en-edit-prefix (kbd "C-i C-i") 'kom-insert-last-info-nodename)
(define-key lyskom-en-edit-prefix (kbd "C-a") 'lyskom-en-edit-add-prefix)
(define-key lyskom-en-edit-prefix (kbd "C-a C-r") 'kom-edit-add-recipient)
(define-key lyskom-en-edit-prefix (kbd "C-a C-c") 'kom-edit-add-copy)
(define-key lyskom-en-edit-prefix (kbd "C-a <RET>") 'kom-edit-move-text)
(define-key lyskom-en-edit-prefix (kbd "C-a C-x") 'kom-edit-add-cross-reference)
(define-key lyskom-en-edit-prefix (kbd "C-x C-p") 'kom-edit-add-personal-comments)
(define-key lyskom-en-edit-prefix (kbd "C-x C-n") 'kom-edit-add-no-comments)
(define-key lyskom-en-edit-prefix (kbd "C-x C-r") 'kom-edit-add-read-confirm-request)
(define-key lyskom-en-edit-prefix (kbd "C-a ?") 'lyskom-help))
(define-key lyskom-en-edit-prefix (kbd "C-c") 'kom-edit-send)
(define-key lyskom-en-edit-prefix (kbd "C-s") 'kom-edit-ispell-message)
(define-key lyskom-en-edit-prefix (kbd "C-k") 'kom-edit-quit)
(define-key lyskom-en-edit-review-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-review-prefix (kbd "C-c") 'kom-edit-show-commented)
(define-key lyskom-en-edit-insert-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-en-edit-insert-prefix (kbd "C-c") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-insert-prefix (kbd "C-y") 'kom-edit-insert-commented)
(define-key lyskom-en-edit-insert-prefix (kbd "1") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "2") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "3") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "4") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "5") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "6") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "7") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "8") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "9") 'kom-edit-insert-digit-text)
(define-key lyskom-en-edit-insert-prefix (kbd "SPC") 'kom-edit-insert-text)
(define-key lyskom-en-edit-insert-prefix (kbd "C-l") 'kom-edit-insert-link)
(define-key lyskom-en-edit-insert-prefix (kbd "C-i") 'kom-edit-insert-last-info-nodename)
(define-key lyskom-en-edit-add-prefix (kbd "C-r") 'kom-edit-add-recipient)
(define-key lyskom-en-edit-add-prefix (kbd "C-c") 'kom-edit-add-copy)
(define-key lyskom-en-edit-add-prefix (kbd "<RET>") 'kom-edit-move-text)
(define-key lyskom-en-edit-add-prefix (kbd "C-x") 'kom-edit-add-cross-reference)
(define-key lyskom-en-edit-add-prefix (kbd "C-p") 'kom-edit-add-personal-comments)
(define-key lyskom-en-edit-add-prefix (kbd "C-n") 'kom-edit-add-no-comments)
(define-key lyskom-en-edit-add-prefix (kbd "C-r") 'kom-edit-add-read-confirm-request)
(define-key lyskom-en-edit-add-prefix (kbd "?") 'lyskom-help))
......
......@@ -868,6 +868,9 @@ All key bindings:
;;;
(defun kom-filter-edit ()
"Interactively edit text filters. This command starts a special mode
in which it is possble to create and alter filters. Use this to remove
undesired filters and to create complex filters."
(interactive)
(let ((buf (current-buffer))
(filters lyskom-filter-list)
......
......@@ -187,10 +187,8 @@ be used to get a description of the corresponding error."
(defun kom-recover (&optional refetch)
"Try to recover from an error.
If the optional argument REFETCH is non-nil, all caches are cleared and
`lyskom-refetch' is called. Note that when called interactively,
REFETCH is always non-nil, regardless of the prefix argument. This is
by design."
If the optional argument REFETCH is non-nil or the funcion is called
interactively, all caches are cleared and the membership is re-read."
(interactive (list t))
(lyskom-init-parse lyskom-buffer)
(setq lyskom-call-data nil)
......@@ -3905,6 +3903,10 @@ If MEMBERSHIPs prioriy is 0, it always returns nil."
;; (lyskom-message "%s" (lyskom-get-string 'protocol-error) err))
)
;; (unwind-protect
;; (save-excursion (set-buffer (process-buffer proc))
;; (lyskom-check-mship-lists)))
(setq lyskom-quit-flag (or lyskom-quit-flag quit-flag))
(setq quit-flag nil)
(when lyskom-need-prompt-update
......
......@@ -146,8 +146,7 @@ This function does not tell the server about the change."
(defun lyskom-change-membership-position (conf-no new-position)
"Change the position of memberhip for CONF-NO to NEW-POSITION.
This function does not tell the server about the change."
(let* ((mship (lyskom-get-membership conf-no t))
(old-position (membership->position mship)))
(let* ((mship (lyskom-get-membership conf-no t)))
(when mship
(set-membership->position mship new-position)
(lyskom-replace-membership mship))))
......@@ -1687,7 +1686,7 @@ With prefix arg, contract only those that were created by self."
"Display a list of all memberships with the option to change order,
priority, flags, and a number of other things.
See `kom-priotitize-in-window'."
See `kom-prioritize-in-window'."
(interactive)
(lyskom-prioritize))
......
......@@ -112,7 +112,7 @@ kom-review-marks-texts-as-read toggled."
(def-kom-command kom-review-all ()
"Review all articles written by a particular author to a particular
"Review all texts written by a particular author to a particular
conference. This can also be accomplished by using `kom-review-by-to'
and specifying zero texts.
......@@ -124,7 +124,7 @@ all review-related functions."
(lyskom-review-by-to 0))
(def-kom-command kom-unread-all ()
"Mark all articles written by a particular author to a particular
"Mark all texts written by a particular author to a particular
conference as unread. This can also be accomplished by using
`kom-unread-by-to' and specifying zero texts."
(interactive)
......@@ -132,7 +132,7 @@ conference as unread. This can also be accomplished by using
(def-kom-command kom-review-more (count)
"Review more articles using the same critera as the last review
"Review more texts using the same critera as the last review
performed with `kom-review-by-to'. The review will be resumed where
the previous review finished.
......@@ -188,7 +188,7 @@ all review-related functions."
(lyskom-insert-string 'no-such-text)))))))
(def-kom-command kom-unread-more (count)
"Mark more articles unread using the same critera as the last
"Mark more texts unread using the same critera as the last
mark unread performed with `kom-unread-by-to'."
(interactive "P")
(if (not lyskom-have-unread)
......@@ -239,7 +239,7 @@ mark unread performed with `kom-unread-by-to'."
(def-kom-command kom-review-first (&optional count)
"Review the first N articles written by a particular author to some
"Review the first N texts written by a particular author to some
conference. With no author specified, review texts by all authors.
With zero texts specified, review all text. With no conference
specified, review texts to all conferences. With a negative number of
......@@ -256,7 +256,7 @@ all review-related functions."
(lyskom-get-string 'review-how-many) 1)))))
(def-kom-command kom-unread-first (&optional count)
"Mark the first N articles written by a particular author to some
"Mark the first N texts written by a particular author to some
conference as unread. With no author specified, review texts by all
authors. With zero texts specified, review all text. With no conference
specified, review texts to all conferences. With a negative number of
......@@ -269,7 +269,7 @@ texts, review the last N texts instead of the first (you can use
(def-kom-command kom-review-by-to (&optional count)
"Review the last N articles written by a particular author to some
"Review the last N texts written by a particular author to some
conference. With no author specified, review texts by all authors.
With zero texts specified, review all text. With no conference
specified, review texts to all conferences. With a negative number of
......@@ -349,7 +349,7 @@ all review-related functions."
(def-kom-command kom-unread-by-to (&optional count)
"Mark the last N articles written by a particular author to some
"Mark the last N texts written by a particular author to some
conference as unread. With no author specified, review texts by all
authors. With zero texts specified, review all text. With no conference
specified, review texts to all conferences. With a negative number of
......@@ -1512,7 +1512,7 @@ all review-related functions."
(def-kom-command kom-review-comments (text-no)
"Review all comments to the selected text text. This command only
"Review all comments to the selected text. This command only
reviews one level of comments. To see the entire comment tree, use
`kom-review-tree' instead.
......@@ -1577,7 +1577,7 @@ all review-related functions."
(def-kom-command kom-review-cross-references (text-no)
"Review all cross-referenced texts from the selected text `text-no'.
"Review all texts cross-referenced from the selected text.
This command accepts text number prefix arguments \(see
`lyskom-read-text-no-prefix-arg').
......@@ -1636,7 +1636,7 @@ displays and builds list."
(def-kom-command kom-unread-comments (text-no)
"Mark all comments to the selected text text as unread. This
command only marks one level of comments as unread. To mark the
entire comment tree unread, use `kom-unrad-tree' instead.
entire comment tree unread, use `kom-unread-tree' instead.
This command accepts text number prefix arguments \(see
`lyskom-read-text-no-prefix-arg')."
......
......@@ -738,7 +738,7 @@ This is called at login and after prioritize and set-unread."
(lyskom-reset-prefetch)
(let ((lyskom-inhibit-prefetch t))
(let ((unreads (blocking-do 'get-unread-confs lyskom-pers-no)))
(lyskom-traverse conf-no (nreverse (conf-no-list->conf-nos unreads))
(lyskom-traverse conf-no (conf-no-list->conf-nos unreads)
(lyskom-prefetch-one-membership conf-no lyskom-pers-no)))
(lyskom-prefetch-membership lyskom-pers-no))
(lyskom-start-prefetch)
......
......@@ -59,7 +59,11 @@
;;; Set the keymap for lyskom-edit-mode
(defvar lyskom-sv-edit-prefix nil)
(defvar lyskom-sv-edit-prefix)
(defvar lyskom-sv-edit-review-prefix)
(defvar lyskom-sv-edit-insert-prefix)
(defvar lyskom-sv-edit-aux-prefix)
(defvar lyskom-sv-edit-add-prefix)
(if lyskom-sv-edit-mode-map
nil
......@@ -79,63 +83,78 @@
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys (lyskom-xemacs-or-gnu 'button2up 'button2))) 'kom-mouse-null)
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button3)) 'kom-popup-menu)
(define-key lyskom-sv-edit-mode-map (kbd (lyskom-keys 'button3up)) 'kom-mouse-null)
(define-key lyskom-sv-edit-prefix (kbd "C-x") 'lyskom-sv-edit-aux-prefix)
(define-key lyskom-sv-edit-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-sv-edit-prefix (kbd "}") 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix (kbd "]") 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-]") 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-}") 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-") 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-") 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix [(control aring)] 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix [(control Aring)] 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix [(control 229)] 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix [(control 197)] 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix "\205" 'lyskom-sv-edit-review-prefix) ;For windows
(define-key lyskom-sv-edit-prefix (kbd "C-a") 'lyskom-sv-edit-add-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-i") 'lyskom-sv-edit-insert-prefix)
(define-key lyskom-sv-edit-prefix (kbd "TAB") 'lyskom-sv-edit-insert-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-]") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-}") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "C-") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [(control aring)] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [(control Aring)] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix "\205" 'lyskom-sv-edit-review-prefix) ; For windows and Emacs 19
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "}") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix (kbd "]") 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [aring] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [Aring] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [229] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [197] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [2277] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [2245] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [3909] 'lyskom-sv-edit-review-prefix)
(lyskom-try-define-key lyskom-sv-edit-prefix [3941] 'lyskom-sv-edit-review-prefix)
(define-key lyskom-sv-edit-prefix (kbd "?") 'lyskom-help)
(define-key lyskom-sv-edit-prefix (kbd "*") 'kom-button-press)
(define-key lyskom-sv-edit-prefix (kbd "=") 'kom-menu-button-press)
(define-key lyskom-sv-edit-prefix (kbd "C-i") 'lyskom-sv-edit-insert-prefix)
(define-key lyskom-sv-edit-prefix (kbd "TAB") 'lyskom-sv-edit-insert-prefix)
(define-key lyskom-sv-edit-prefix (kbd "C-c") 'kom-edit-send)
(define-key lyskom-sv-edit-prefix (kbd "C-s") 'kom-ispell-message)
(define-key lyskom-sv-edit-prefix (kbd "C-s") 'kom-edit-ispell-message)
(define-key lyskom-sv-edit-prefix (kbd "C-k") 'kom-edit-quit)
(define-key lyskom-sv-edit-prefix (kbd "} ?") 'lyskom-help)
(define-key lyskom-sv-edit-prefix (kbd "} C-k") 'kom-edit-show-commented)
(define-key lyskom-sv-edit-prefix (kbd "} k") 'kom-edit-show-commented)
(define-key lyskom-sv-edit-prefix (kbd "C-i ?") 'lyskom-help)
(define-key lyskom-sv-edit-prefix (kbd "C-i C-k") 'kom-edit-insert-commented)
(define-key lyskom-sv-edit-prefix (kbd "C-y") 'kom-edit-insert-commented)
(define-key lyskom-sv-edit-prefix (kbd "C-i C-y") 'kom-edit-insert-commented)
(define-key lyskom-sv-edit-prefix (kbd "C-b") 'kom-edit-insert-buglist)