[PATCH] typo in variable name: org-inlinetask-defaut-state

[PATCH] typo in variable name: org-inlinetask-defaut-state

[Dan Davison]

diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
index 29b1544..041ee29 100644
--- a/lisp/org-inlinetask.el
+++ b/lisp/org-inlinetask.el
@@ -106,7 +106,7 @@ When nil, they will not be exported."
 (defvar org-complex-heading-regexp)
 (defvar org-property-end-re)
 
-(defcustom org-inlinetask-defaut-state nil
+(defcustom org-inlinetask-default-state nil
   "Non-nil means make inline tasks have a TODO keyword initially.
 This should be the state `org-inlinetask-insert-task' should use by
 default, or nil of no state should be assigned."
@@ -117,16 +117,16 @@ default, or nil of no state should be assigned."
 
 (defun org-inlinetask-insert-task (&optional no-state)
   "Insert an inline task.
-If prefix arg NO-STATE is set, ignore `org-inlinetask-defaut-state'."
+If prefix arg NO-STATE is set, ignore `org-inlinetask-default-state'."
   (interactive "P")
   (or (bolp) (newline))
   (let ((indent org-inlinetask-min-level))
     (if org-odd-levels-only
         (setq indent (- (* 2 indent) 1)))
     (insert (make-string indent ?*)
-            (if (or no-state (not org-inlinetask-defaut-state))
+            (if (or no-state (not org-inlinetask-default-state))
 		" \n"
-	      (concat " " org-inlinetask-defaut-state " \n"))
+	      (concat " " org-inlinetask-default-state " \n"))
             (make-string indent ?*) " END\n"))
   (end-of-line -1))
 (define-key org-mode-map "\C-c\C-xt" 'org-inlinetask-insert-task)

[Accepted] typo in variable name: org-inlinetask-defaut-state

[Bastien Guerry]

Patch 324 (http://patchwork.newartisans.com/patch/324/) is now "Accepted".

Maintainer comment: none

This relates to the following submission:

http://mid.gmane.org/%3C874ocie66b.fsf%40stats.ox.ac.uk%3E

Here is the original message containing the patch:

> Content-Type: text/plain; charset="utf-8"
> MIME-Version: 1.0
> Content-Transfer-Encoding: 7bit
> Subject: [Orgmode] typo in variable name: org-inlinetask-defaut-state
> Date: Tue, 19 Oct 2010 17:08:28 -0000
> From: Dan Davison <davison@stats.ox.ac.uk>
> X-Patchwork-Id: 324
> Message-Id: <874ocie66b.fsf@stats.ox.ac.uk>
> To: emacs org-mode mailing list  <emacs-orgmode@gnu.org>
> 
> 
> 
> 
> diff --git a/lisp/org-inlinetask.el b/lisp/org-inlinetask.el
> index 29b1544..041ee29 100644
> --- a/lisp/org-inlinetask.el
> +++ b/lisp/org-inlinetask.el
> @@ -106,7 +106,7 @@ When nil, they will not be exported."
>  (defvar org-complex-heading-regexp)
>  (defvar org-property-end-re)
>  
> -(defcustom org-inlinetask-defaut-state nil
> +(defcustom org-inlinetask-default-state nil
>    "Non-nil means make inline tasks have a TODO keyword initially.
>  This should be the state `org-inlinetask-insert-task' should use by
>  default, or nil of no state should be assigned."
> @@ -117,16 +117,16 @@ default, or nil of no state should be assigned."
>  
>  (defun org-inlinetask-insert-task (&optional no-state)
>    "Insert an inline task.
> -If prefix arg NO-STATE is set, ignore `org-inlinetask-defaut-state'."
> +If prefix arg NO-STATE is set, ignore `org-inlinetask-default-state'."
>    (interactive "P")
>    (or (bolp) (newline))
>    (let ((indent org-inlinetask-min-level))
>      (if org-odd-levels-only
>          (setq indent (- (* 2 indent) 1)))
>      (insert (make-string indent ?*)
> -            (if (or no-state (not org-inlinetask-defaut-state))
> +            (if (or no-state (not org-inlinetask-default-state))
>  		" \n"
> -	      (concat " " org-inlinetask-defaut-state " \n"))
> +	      (concat " " org-inlinetask-default-state " \n"))
>              (make-string indent ?*) " END\n"))
>    (end-of-line -1))
>  (define-key org-mode-map "\C-c\C-xt" 'org-inlinetask-insert-task)
>