From a49dcabccf5d4589d553115d7ce8a648ab4328f2 Mon Sep 17 00:00:00 2001 From: Jambunathan K Date: Tue, 24 Aug 2010 03:05:04 +0530 Subject: [PATCH] Fix typo in org-find-exact-headling-in-buffer * lisp/org.el (org-find-exact-heading-in-buffer): Renamed from org-find-exact-headling-in-buffer. * contrib/lisp/org-wikinodes.el (org-wikinodes-follow-link): Fix typo in org-find-exact-headling-in-buffer TINYCHANGE. --- contrib/lisp/org-wikinodes.el | 6 +++--- lisp/org.el | 4 ++-- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/lisp/org-wikinodes.el b/contrib/lisp/org-wikinodes.el index 0a00052..e07a8e4 100644 --- a/contrib/lisp/org-wikinodes.el +++ b/contrib/lisp/org-wikinodes.el @@ -119,10 +119,10 @@ setting of `org-wikinodes-create-targets'." (let ((create org-wikinodes-create-targets) visiting buffer m pos file rpl) (setq pos - (or (org-find-exact-headling-in-buffer target (current-buffer)) + (or (org-find-exact-heading-in-buffer target (current-buffer)) (and (eq org-wikinodes-scope 'directory) (setq file (org-wikinodes-which-file target)) - (org-find-exact-headling-in-buffer + (org-find-exact-heading-in-buffer target (or (get-file-buffer file) (find-file-noselect file)))))) (if pos @@ -288,7 +288,7 @@ with working links." (delete-region (match-beginning 0) (match-end 0)) (save-match-data (cond - ((org-find-exact-headling-in-buffer link (current-buffer)) + ((org-find-exact-heading-in-buffer link (current-buffer)) ;; Found in current buffer (insert (format "[[#%s][%s]]" link link))) ((eq org-wikinodes-scope 'file) diff --git a/lisp/org.el b/lisp/org.el index 15379ef..134ac56 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -14033,7 +14033,7 @@ only headings." (when (org-on-heading-p) (move-marker (make-marker) (point)))))))) -(defun org-find-exact-headling-in-buffer (heading &optional buffer pos-only) +(defun org-find-exact-heading-in-buffer (heading &optional buffer pos-only) "Find node HEADING in BUFFER. Return a marker to the heading if it was found, or nil if not. If POS-ONLY is set, return just the position instead of a marker. @@ -14064,7 +14064,7 @@ When the target headline is found, return a marker to this location." (message "trying %s" file) (setq visiting (org-find-base-buffer-visiting file)) (setq buffer (or visiting (find-file-noselect file))) - (setq m (org-find-exact-headling-in-buffer + (setq m (org-find-exact-heading-in-buffer heading buffer)) (when (and (not m) (not visiting)) (kill-buffer buffer)) (and m (throw 'found m)))))) -- 1.7.0.4