Commit 15de5423 authored by Per Cederqvist's avatar Per Cederqvist
Browse files

Fix kom-postpone, which has been broken a while.

Detailed changes:
> 2003-02-13  Per Cederqvist  <ceder@ingate.com>
>
> 	Fix kom-postpone, which has been broken a while.
>
> 	* komtypes.el (text-list->trim-head): New function.
>
> 	* commands2.el (kom-postpone): Use text-list->trim-head instead of
> 	accessing internals of the text-list type in a way that no longer
> 	works.
parent 170966c9
2003-02-13 Per Cederqvist <ceder@ingate.com>
Fix kom-postpone, which has been broken a while.
* komtypes.el (text-list->trim-head): New function.
* commands2.el (kom-postpone): Use text-list->trim-head instead of
accessing internals of the text-list type in a way that no longer
works.
2003-02-05 Hans Persson <hans@localhost.localdomain>
* swedish-strings.el (local): Spelling fix.
......
......@@ -1739,11 +1739,9 @@ a prefix argument this command will prompt for the number of texts."
((memq type lyskom-comment-types-list)
(set-read-list-del-first lyskom-reading-list))
((eq type 'CONF)
(let* ((rlist (read-info->text-list
(read-list->first lyskom-reading-list)))
(cell (nthcdr (max (- (length rlist) today) 1)
rlist)))
(setcdr rlist cell))
(text-list->trim-head
(read-info->text-list (read-list->first lyskom-reading-list))
today)
(setq finished t))
((eq type 'RE-EDIT-TEXT))
((eq type 'PRI-SESSION))
......
......@@ -639,6 +639,12 @@ The MAPS must be consecutive. No gaps or overlaps are currently allowed."
(nconc (text-list->texts text-list)
texts)))
(defun text-list->trim-head (tlist n)
"Destructively remove all but the N last elements from TLIST.
Do nothing if the TLIST is less than N elements long."
(set-text-list->texts tlist (nthcdr (max (- (text-list->length tlist) n) 0)
(text-list->texts tlist))))
;;; ================================================================
;;; version-info
......
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