comparison lisp/subr.el @ 83038:30ccd595ccb0

Merged in changes from CVS HEAD Patches applied: * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-98 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-99 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-100 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-101 Update from CVS * [e-mail]--gnu-2004/emacs--cvs-trunk--0--patch-102 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-78

83037:03a73693678e

	 (progn
	   (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
	   x))))

(defun delete-dups (list)
  "Destructively return LIST, with `equal' duplicates removed.
LIST must be a proper list.  The value of LIST after a call to
this function is undefined.  Use \(setq LIST (delete-dups LIST))
if you want to store the return value in LIST.  Of several
`equal' occurrences of an element in LIST, the last one is kept."
  (while (member (car list) (cdr list))
    (pop list))
  (let ((tail list))
    (while tail
      (while (member (cadr tail) (cddr tail))
	(setcdr tail (cddr tail)))
      (pop tail)))
  list)

(defun number-sequence (from &optional to inc)
  "Return a sequence of numbers from FROM to TO (both inclusive) as a list.
INC is the increment used between numbers in the sequence and defaults to 1.

 Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
Zero means the entire text matched by the whole regexp or whole string.
STRING should be given if the last search was by `string-match' on STRING."
  (if (match-beginning num)
      (if string
	  (let ((result
		 (substring string (match-beginning num) (match-end num))))
	    (set-text-properties 0 (length result) nil result)
	    result)
	(buffer-substring-no-properties (match-beginning num)
					(match-end num)))))

(defun looking-back (regexp &optional limit)
  "Return non-nil if text before point matches regular expression REGEXP.

83038:30ccd595ccb0

	 (progn
	   (if (> n 0) (setcdr (nthcdr (- (1- m) n) x) nil))
	   x))))

(defun delete-dups (list)
  "Destructively remove `equal' duplicates from LIST.
Store the result in LIST and return it.  LIST must be a proper list.
Of several `equal' occurrences of an element in LIST, the first
one is kept."
  (let ((tail list))
    (while tail
      (setcdr tail (delete (car tail) (cdr tail)))
      (setq tail (cdr tail))))
  list)

(defun number-sequence (from &optional to inc)
  "Return a sequence of numbers from FROM to TO (both inclusive) as a list.
INC is the increment used between numbers in the sequence and defaults to 1.

 Value is nil if NUMth pair didn't match, or there were less than NUM pairs.
Zero means the entire text matched by the whole regexp or whole string.
STRING should be given if the last search was by `string-match' on STRING."
  (if (match-beginning num)
      (if string
	  (substring-no-properties string (match-beginning num)
				   (match-end num))
	(buffer-substring-no-properties (match-beginning num)
					(match-end num)))))

(defun looking-back (regexp &optional limit)
  "Return non-nil if text before point matches regular expression REGEXP.