Function: message-shorten-1

message-shorten-1 is a byte-compiled function defined in message.el.gz.

Signature

(message-shorten-1 LIST CUT SURPLUS)

Documentation

Cut SURPLUS elements out of LIST, beginning with CUTth one.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/message.el.gz
(defun message-shorten-1 (list cut surplus)
  "Cut SURPLUS elements out of LIST, beginning with CUTth one."
  (setcdr (nthcdr (- cut 2) list)
	  (nthcdr (+ (- cut 2) surplus 1) list)))