diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-04-05 21:57:10 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-04-05 21:58:01 -0700 |
| commit | 1f3f5f1441500deeea791a76b8ac9fa0ea15e515 (patch) | |
| tree | 1764e878e636c491bd9e3f539b9206e7a7c27179 /lisp/gnus/rtree.el | |
| parent | cf7b034ee12f44887ac363cd0c5d3387747b2a65 (diff) | |
| download | emacs-1f3f5f1441500deeea791a76b8ac9fa0ea15e515.tar.gz emacs-1f3f5f1441500deeea791a76b8ac9fa0ea15e515.tar.bz2 emacs-1f3f5f1441500deeea791a76b8ac9fa0ea15e515.zip | |
Use American spelling for 'normalize'
* rtree.el (rtree-normalize-range): Rename from rtree-normalise-range.
All uses changed. Add an alias for obsolete usages.
Diffstat (limited to 'lisp/gnus/rtree.el')
| -rw-r--r-- | lisp/gnus/rtree.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/gnus/rtree.el b/lisp/gnus/rtree.el index 59c17ae50b6..001c6ed1de2 100644 --- a/lisp/gnus/rtree.el +++ b/lisp/gnus/rtree.el @@ -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)))) |