mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-22 13:40:44 -08:00
; * lisp/emacs-lisp/range.el: Fix some typos
In some places, range elements are still called "article" (as in the original Gnus code). Replace these occurrences with the word "number" as used in the rest of the file.
This commit is contained in:
parent
4de1171d14
commit
835d2b6acb
1 changed files with 4 additions and 4 deletions
|
|
@ -194,7 +194,7 @@ these ranges."
|
|||
(nreverse result)))))
|
||||
|
||||
(defun range-add-list (ranges list)
|
||||
"Return a list of ranges that has all articles from both RANGES and LIST.
|
||||
"Return a list of ranges that has all numbers from both RANGES and LIST.
|
||||
Note: LIST has to be sorted over `<'."
|
||||
(if (not ranges)
|
||||
(range-compress-list list)
|
||||
|
|
@ -249,9 +249,9 @@ Note: LIST has to be sorted over `<'."
|
|||
out)))
|
||||
|
||||
(defun range-remove (range1 range2)
|
||||
"Return a range that has all articles from RANGE2 removed from RANGE1.
|
||||
"Return a range that has all numbers from RANGE2 removed from RANGE1.
|
||||
The returned range is always a list. RANGE2 can also be a unsorted
|
||||
list of articles. RANGE1 is modified by side effects, RANGE2 is not
|
||||
list of numbers. RANGE1 is modified by side effects, RANGE2 is not
|
||||
modified."
|
||||
(if (or (null range1) (null range2))
|
||||
range1
|
||||
|
|
@ -345,7 +345,7 @@ modified."
|
|||
|
||||
(defun range-list-intersection (list ranges)
|
||||
"Return a list of numbers in LIST that are members of RANGES.
|
||||
oLIST is a sorted list."
|
||||
LIST is a sorted list."
|
||||
(setq ranges (range-normalize ranges))
|
||||
(let (number result)
|
||||
(while (setq number (pop list))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue