mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

Use American spelling for 'normalize'

Browse Source 
* rtree.el (rtree-normalize-range): Rename from rtree-normalise-range.
All uses changed.  Add an alias for obsolete usages.
This commit is contained in:
Paul Eggert 2015-04-05 21:57:10 -07:00
parent cf7b034ee1
commit 1f3f5f1441
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/gnus/ChangeLog
View File

@ -1,3 +1,9 @@
2015-04-06 Paul Eggert <eggert@cs.ucla.edu>
Use American spelling for 'normalize'
* rtree.el (rtree-normalize-range): Rename from rtree-normalise-range.
All uses changed. Add an alias for obsolete usages.
2015-04-03 Katsumi Yamaoka <yamaoka@jpl.org>
* gnus-art.el (gnus-article-browse-html-save-cid-content):

7
lisp/gnus/rtree.el
View File

@ -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))))