Mercurial > emacs

comparison lisp/subr.el @ 83331:efa9e4606e7e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from miles@gnu.org--gnu-2005 (patch 83-87, 449-468) Patches applied: * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-449 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-450 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-451 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-452 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-453 Update from CVS: lisp/subr.el (add-to-ordered-list): Doc fix. * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-454 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-455 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-456 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-457 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-458 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-459 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-460 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-461 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-462 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-463 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-464 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-465 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-466 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-467 Update from CVS * miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-468 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-83 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-84 Merge from emacs--cvs-trunk--0 * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-85 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-86 Update from CVS * miles@gnu.org--gnu-2005/gnus--rel--5.10--patch-87 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-371
author Karoly Lorentey <lorentey@elte.hu>
date Tue, 05 Jul 2005 22:12:55 +0000
parents ebfb2856c8e6 7f964f8f5c85
children 6c13700d1c13
comparison
equal deleted inserted replaced
83330:233c9974025b 83331:efa9e4606e7e
935 (if (equal hook-value '(t)) 935 (if (equal hook-value '(t))
936 (kill-local-variable hook) 936 (kill-local-variable hook)
937 (set hook hook-value)))))) 937 (set hook hook-value))))))
938 938
939 (defun add-to-list (list-var element &optional append) 939 (defun add-to-list (list-var element &optional append)
940 "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet. 940 "Add ELEMENT to the value of LIST-VAR if it isn't there yet.
941 The test for presence of ELEMENT is done with `equal'. 941 The test for presence of ELEMENT is done with `equal'.
942 If ELEMENT is added, it is added at the beginning of the list, 942 If ELEMENT is added, it is added at the beginning of the list,
943 unless the optional argument APPEND is non-nil, in which case 943 unless the optional argument APPEND is non-nil, in which case
944 ELEMENT is added at the end. 944 ELEMENT is added at the end.
945 945
957 (append (symbol-value list-var) (list element)) 957 (append (symbol-value list-var) (list element))
958 (cons element (symbol-value list-var)))))) 958 (cons element (symbol-value list-var))))))
959 959
960 960
961 (defun add-to-ordered-list (list-var element &optional order) 961 (defun add-to-ordered-list (list-var element &optional order)
962 "Add to the value of LIST-VAR the element ELEMENT if it isn't there yet. 962 "Add ELEMENT to the value of LIST-VAR if it isn't there yet.
963 The test for presence of ELEMENT is done with `eq'. 963 The test for presence of ELEMENT is done with `eq'.
964 964
965 The resulting list is reordered so that the elements are in the 965 The resulting list is reordered so that the elements are in the
966 order given by each element's numeric list order. Elements 966 order given by each element's numeric list order. Elements
967 without a numeric list order are placed at the end of the list. 967 without a numeric list order are placed at the end of the list.
968 968
969 If the third optional argument ORDER is non-nil, set the 969 If the third optional argument ORDER is a number (integer or
970 element's list order to the given value. 970 float), set the element's list order to the given value. If
971 ORDER is nil or omitted, do not change the numeric order of
972 ELEMENT. If ORDER has any other value, remove the numeric order
973 of ELEMENT if it has one.
971 974
972 The list order for each element is stored in LIST-VAR's 975 The list order for each element is stored in LIST-VAR's
973 `list-order' property. 976 `list-order' property.
974 977
975 The return value is the new value of LIST-VAR." 978 The return value is the new value of LIST-VAR."