diff options
Diffstat (limited to 'lisp/gnus/rtree.el')
| -rw-r--r-- | lisp/gnus/rtree.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/gnus/rtree.el b/lisp/gnus/rtree.el index a79f7057d07..50a860a5061 100644 --- a/lisp/gnus/rtree.el +++ b/lisp/gnus/rtree.el @@ -1,6 +1,6 @@ ;;; rtree.el --- functions for manipulating range trees -;; Copyright (C) 2010-2013 Free Software Foundation, Inc. +;; Copyright (C) 2010-2015 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> @@ -79,11 +79,14 @@ (defmacro rtree-range (node) `(car ,node)) -(defsubst rtree-normalise-range (range) +(defsubst rtree-normalize-range (range) (when (numberp range) (setq range (cons range range))) range) +(define-obsolete-function-alias 'rtree-normalise-range + 'rtree-normalize-range "25.1") + (defun rtree-make (range) "Make an rtree from RANGE." ;; Normalize the range. @@ -96,7 +99,7 @@ (node (rtree-make-node))) (when (> mid 0) (rtree-set-left node (rtree-make-1 range mid))) - (rtree-set-range node (rtree-normalise-range (cadr range))) + (rtree-set-range node (rtree-normalize-range (cadr range))) (setcdr range (cddr range)) (when (> (- length mid 1) 0) (rtree-set-right node (rtree-make-1 range (- length mid 1)))) |