Re: Fix typo in org-find-exact-headling-in-buffer

[Noorul Islam K M <noorul@noorul.com>]

Jambunathan K <kjambunathan@gmail.com> writes:

> Still thinkling but have no inkling about headling.
>
> Jambunathan K.
>
> From a49dcabccf5d4589d553115d7ce8a648ab4328f2 Mon Sep 17 00:00:00 2001
> From: Jambunathan K <kjambunathan@gmail.com>
> 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))))))

It might not be a typo. Looks like deliberate.

Thanks
Noorul