From 926bc85861b86fde88129b535caf144c483e08af Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sat, 16 Nov 2013 09:53:10 +0100 Subject: [PATCH] org-element: Rename a function * lisp/org-element.el (org-element--cache-shift-positions): Renamed from `org-element--shift-positions'. (org-element--cache-sync): Apply renaming. --- lisp/org-element.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index ce4fe2370..fc59d4414 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4810,7 +4810,7 @@ the value to store. Nothing will be stored if (unless org-element--cache (org-element-cache-reset)) (puthash pos data org-element--cache))) -(defsubst org-element--shift-positions (element offset) +(defsubst org-element--cache-shift-positions (element offset) "Shift ELEMENT properties relative to buffer positions by OFFSET. Properties containing buffer positions are `:begin', `:end', `:contents-begin', `:contents-end' and `:structure'. They are @@ -4996,14 +4996,14 @@ removed from the cache." (let* ((conflictp (consp (caar value))) (value-to-shift (if conflictp (cdr value) value))) ;; Shift element part. - (org-element--shift-positions (car value-to-shift) offset) + (org-element--cache-shift-positions (car value-to-shift) offset) ;; Shift objects part. (dolist (object-data (cdr value-to-shift)) (incf (car object-data) offset) (dolist (successor (nth 1 object-data)) (incf (cdr successor) offset)) (dolist (object (cddr object-data)) - (org-element--shift-positions object offset))) + (org-element--cache-shift-positions object offset))) ;; Shift key-value pair. (let* ((new-key (+ key offset)) (new-value (gethash new-key org-element--cache)))