[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Orgmode] [PATCH] Fix typo in org-find-exact-headling-in-buffer

From: Jambunathan K
Subject: [Orgmode] [PATCH] Fix typo in org-find-exact-headling-in-buffer
Date: Tue, 24 Aug 2010 03:34:23 +0530
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.91 (windows-nt)

Still thinkling but have no inkling about headling.

Jambunathan K.

>From a49dcabccf5d4589d553115d7ce8a648ab4328f2 Mon Sep 17 00:00:00 2001
From: Jambunathan K <address@hidden>
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
* contrib/lisp/org-wikinodes.el (org-wikinodes-follow-link): Fix typo in

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

reply via email to

[Prev in Thread] Current Thread [Next in Thread]