emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Patch to fix indent error when current line is in SRC block
@ 2008-09-08 12:46 S.P.Tseng
  2008-09-13 18:07 ` Carsten Dominik
  0 siblings, 1 reply; 2+ messages in thread
From: S.P.Tseng @ 2008-09-08 12:46 UTC (permalink / raw)
  To: emacs-orgmode


I add function 'org-edit-src-find-region-and-lang' to the begin of the
'org-indent-line-function'. When current line is in SRC block do nothing.

So, you can use below code to indent the whole buffer.
,----
| (defun my-iwb ()
|   "indent whole buffer"
|   (interactive)
|   (delete-trailing-whitespace)
|   (indent-region (point-min) (point-max) nil)
|   (untabify (point-min) (point-max)))
`----

---
 lisp/org.el |  141 ++++++++++++++++++++++++++++++-----------------------------
 1 files changed, 71 insertions(+), 70 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 26e8117..1ac78b0 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1647,7 +1647,7 @@ end of the second format."
 org-mode generates a time duration."
   :group 'org-time
   :type 'string)
-  
+
 (defcustom org-deadline-warning-days 14
   "No. of days before expiration during which a deadline becomes active.
 This variable governs the display in sparse trees and in the agenda.
@@ -2512,7 +2512,7 @@ Otherwise, return nil."
 		     (<= org-clock-marker (point-at-eol)))
 	    ;; The clock is running here
 	    (setq org-clock-start-time
-		  (apply 'encode-time 
+		  (apply 'encode-time
 			 (org-parse-time-string (match-string 1))))
 	    (org-update-mode-line)))
 	 (t
@@ -2683,8 +2683,8 @@ collapsed state."
 ;; Autoload ID code
 
 (org-autoload "org-id"
- '(org-id-get-create org-id-new org-id-copy org-id-get 
-   org-id-get-with-outline-path-completion 
+ '(org-id-get-create org-id-new org-id-copy org-id-get
+   org-id-get-with-outline-path-completion
    org-id-get-with-outline-drilling
    org-id-goto org-id-find))
 
@@ -5572,7 +5572,7 @@ the language, a switch telling of the content should be in a single line."
 	   (string-match "\\<style=\"\\([^ \t\n\"]+\\)\"" m))
       (match-string 1 m))
      (t "fundamental"))))
-      
+
 (defun org-edit-src-exit ()
   "Exit special edit and protect problematic lines."
   (interactive)
@@ -7959,7 +7959,7 @@ operation has put the subtree."
 (defun org-olpath-completing-read (prompt collection &rest args)
   "Read an outline path like a file name."
   (let ((thetable collection))
-    (apply 
+    (apply
      'completing-read prompt
      (lambda (string predicate &optional flag)
        (let (rtn r s f (l (length string)))
@@ -8116,7 +8116,7 @@ This function can be used in a hook."
 
 (defcustom org-structure-template-alist
   '(
-    ("s" "#+begin_src ?\n\n#+end_src" 
+    ("s" "#+begin_src ?\n\n#+end_src"
          "<src lang=\"?\">\n\n</src>")
     ("e" "#+begin_example\n?\n#+end_example"
          "<example>\n?\n</example>")
@@ -8179,7 +8179,7 @@ expands them."
        (t (newline))))
     (setq start (point))
     (if (string-match "%file" rpl)
-	(setq rpl (replace-match 
+	(setq rpl (replace-match
 		   (concat
 		    "\""
 		    (save-match-data
@@ -8188,7 +8188,7 @@ expands them."
 		   t t rpl)))
     (insert rpl)
     (if (re-search-backward "\\?" start t) (delete-char 1))))
-    
+
 
 (defun org-complete (&optional arg)
   "Perform completion on word at point.
@@ -8587,7 +8587,7 @@ For calling through lisp, arg is also interpreted in the following way:
 	    (condition-case nil
 		(outline-forward-same-level 1)
 	      (error (end-of-line 1)))))
-	(replace-match 
+	(replace-match
 	 (if is-percent
 	     (format "[%d%%]" (/ (* 100 cnt-done) (max 1 cnt-all)))
 	   (format "[%d/%d]" cnt-done cnt-all)))
@@ -8609,7 +8609,7 @@ when there is a statistics cookie in the headline!
    (let (org-log-done org-log-states)   ; turn off logging
      (org-todo (if (= n-not-done 0) \"DONE\" \"TODO\"))))
 ")
-	 
+
 (defun org-local-logging (value)
   "Get logging settings from a property VALUE."
   (let* (words w a)
@@ -10195,12 +10195,12 @@ the scanner.  The following items can be given here:
      ((eq match t)   (setq matcher t))
      ((eq match nil) (setq matcher t))
      (t (setq matcher (if match (org-make-tags-matcher match) t))))
-    
+
     (when (eq scope 'tree)
       (org-back-to-heading t)
       (org-narrow-to-subtree)
       (setq scope nil))
-    
+
     (if (not scope)
 	(progn
 	  (org-prepare-agenda-buffers
@@ -10489,7 +10489,7 @@ If yes, return this value.  If not, return the current value of the variable."
 	      (move-marker org-entry-property-inherited-from (point))
 	      (throw 'ex tmp))
 	    (or (org-up-heading-safe) (throw 'ex nil)))))
-      (or tmp 
+      (or tmp
 	  (cdr (assoc property org-file-properties))
 	  (cdr (assoc property org-global-properties))
 	  (cdr (assoc property org-global-properties-fixed))))))
@@ -12021,11 +12021,11 @@ If EXCLUDE-TMP is non-nil, ignore temporary buffers."
 	    (lambda (b) (string-match "\*Org .*Export" (buffer-name b))))
 	   ((eq predicate 'agenda)
 	    (lambda (b)
-	      (with-current-buffer b 
+	      (with-current-buffer b
 		(and (eq major-mode 'org-mode)
 		     (setq bfn (buffer-file-name b))
 		     (member (file-truename bfn) agenda-files)))))
-	   (t (lambda (b) (with-current-buffer b 
+	   (t (lambda (b) (with-current-buffer b
 			    (or (eq major-mode 'org-mode)
 				(string-match "\*Org .*Export"
 					      (buffer-name b)))))))))
@@ -12243,7 +12243,7 @@ When a buffer is unmodified, it is just killed.  When modified, it is saved
 		(append org-done-keywords-for-agenda org-done-keywords))
 	  (setq org-todo-keyword-alist-for-agenda
 		(append org-todo-keyword-alist-for-agenda org-todo-key-alist))
-	  (setq org-tag-alist-for-agenda 
+	  (setq org-tag-alist-for-agenda
 		(append org-tag-alist-for-agenda org-tag-alist))
 
 	  (save-excursion
@@ -14108,59 +14108,60 @@ which make use of the date at the cursor."
 (defun org-indent-line-function ()
   "Indent line like previous, but further if previous was headline or item."
   (interactive)
-  (let* ((pos (point))
-	 (itemp (org-at-item-p))
-	 column bpos bcol tpos tcol bullet btype bullet-type)
-    ;; Find the previous relevant line
-    (beginning-of-line 1)
-    (cond
-     ((looking-at "#") (setq column 0))
-     ((looking-at "\\*+ ") (setq column 0))
-     (t
-      (beginning-of-line 0)
-      (while (and (not (bobp)) (looking-at "[ \t]*[\n:#|]"))
-	(beginning-of-line 0))
-      (cond
-       ((looking-at "\\*+[ \t]+")
-	(if (not org-adapt-indentation)
-	    (setq column 0)
-	  (goto-char (match-end 0))
-	  (setq column (current-column))))
-       ((org-in-item-p)
-	(org-beginning-of-item)
-;	(looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
-	(looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\\|.*? :: \\)?")
-	(setq bpos (match-beginning 1) tpos (match-end 0)
-	      bcol (progn (goto-char bpos) (current-column))
-	      tcol (progn (goto-char tpos) (current-column))
-	      bullet (match-string 1)
-	      bullet-type (if (string-match "[0-9]" bullet) "n" bullet))
-	(if (> tcol (+ bcol org-description-max-indent))
-	    (setq tcol (+ bcol 5)))
-	(if (not itemp)
-	    (setq column tcol)
-	  (goto-char pos)
-	  (beginning-of-line 1)
-	  (if (looking-at "\\S-")
-	      (progn
-		(looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
-		(setq bullet (match-string 1)
-		      btype (if (string-match "[0-9]" bullet) "n" bullet))
-		(setq column (if (equal btype bullet-type) bcol tcol)))
-	    (setq column (org-get-indentation)))))
-       (t (setq column (org-get-indentation))))))
-    (goto-char pos)
-    (if (<= (current-column) (current-indentation))
-	(org-indent-line-to column)
-      (save-excursion (org-indent-line-to column)))
-    (setq column (current-column))
-    (beginning-of-line 1)
-    (if (looking-at
-	 "\\([ \t]+\\)\\(:[-_0-9a-zA-Z]+:\\)[ \t]*\\(\\S-.*\\(\\S-\\|$\\)\\)")
-	(replace-match (concat "\\1" (format org-property-format
-					     (match-string 2) (match-string 3)))
-		       t nil))
-    (org-move-to-column column)))
+  (unless (org-edit-src-find-region-and-lang)
+   (let* ((pos (point))
+          (itemp (org-at-item-p))
+          column bpos bcol tpos tcol bullet btype bullet-type)
+     ;; Find the previous relevant line
+     (beginning-of-line 1)
+     (cond
+       ((looking-at "#") (setq column 0))
+       ((looking-at "\\*+ ") (setq column 0))
+       (t
+        (beginning-of-line 0)
+        (while (and (not (bobp)) (looking-at "[ \t]*[\n:#|]"))
+          (beginning-of-line 0))
+        (cond
+          ((looking-at "\\*+[ \t]+")
+           (if (not org-adapt-indentation)
+               (setq column 0)
+               (goto-char (match-end 0))
+               (setq column (current-column))))
+          ((org-in-item-p)
+           (org-beginning-of-item)
+                                        ;	(looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
+           (looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\\|.*? :: \\)?")
+           (setq bpos (match-beginning 1) tpos (match-end 0)
+                 bcol (progn (goto-char bpos) (current-column))
+                 tcol (progn (goto-char tpos) (current-column))
+                 bullet (match-string 1)
+                 bullet-type (if (string-match "[0-9]" bullet) "n" bullet))
+           (if (> tcol (+ bcol org-description-max-indent))
+               (setq tcol (+ bcol 5)))
+           (if (not itemp)
+               (setq column tcol)
+               (goto-char pos)
+               (beginning-of-line 1)
+               (if (looking-at "\\S-")
+                   (progn
+                     (looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
+                     (setq bullet (match-string 1)
+                           btype (if (string-match "[0-9]" bullet) "n" bullet))
+                     (setq column (if (equal btype bullet-type) bcol tcol)))
+                   (setq column (org-get-indentation)))))
+          (t (setq column (org-get-indentation))))))
+     (goto-char pos)
+     (if (<= (current-column) (current-indentation))
+         (org-indent-line-to column)
+         (save-excursion (org-indent-line-to column)))
+     (setq column (current-column))
+     (beginning-of-line 1)
+     (if (looking-at
+          "\\([ \t]+\\)\\(:[-_0-9a-zA-Z]+:\\)[ \t]*\\(\\S-.*\\(\\S-\\|$\\)\\)")
+         (replace-match (concat "\\1" (format org-property-format
+                                              (match-string 2) (match-string 3)))
+                        t nil))
+     (org-move-to-column column))))
 
 (defun org-set-autofill-regexps ()
   (interactive)
-- 
1.5.6.5

^ permalink raw reply related	[flat|nested] 2+ messages in thread

* Re: Patch to fix indent error when current line is in SRC block
  2008-09-08 12:46 Patch to fix indent error when current line is in SRC block S.P.Tseng
@ 2008-09-13 18:07 ` Carsten Dominik
  0 siblings, 0 replies; 2+ messages in thread
From: Carsten Dominik @ 2008-09-13 18:07 UTC (permalink / raw)
  To: S.P.Tseng; +Cc: emacs-orgmode

Hi Tseng,

thank you, I am accepting the patch.

- Carsten

On Sep 8, 2008, at 2:46 PM, S.P.Tseng wrote:

>
> I add function 'org-edit-src-find-region-and-lang' to the begin of the
> 'org-indent-line-function'. When current line is in SRC block do  
> nothing.
>
> So, you can use below code to indent the whole buffer.
> ,----
> | (defun my-iwb ()
> |   "indent whole buffer"
> |   (interactive)
> |   (delete-trailing-whitespace)
> |   (indent-region (point-min) (point-max) nil)
> |   (untabify (point-min) (point-max)))
> `----
>
> ---
> lisp/org.el |  141 +++++++++++++++++++++++++++++ 
> +-----------------------------
> 1 files changed, 71 insertions(+), 70 deletions(-)
>
> diff --git a/lisp/org.el b/lisp/org.el
> index 26e8117..1ac78b0 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -1647,7 +1647,7 @@ end of the second format."
> org-mode generates a time duration."
>   :group 'org-time
>   :type 'string)
> -
> +
> (defcustom org-deadline-warning-days 14
>   "No. of days before expiration during which a deadline becomes  
> active.
> This variable governs the display in sparse trees and in the agenda.
> @@ -2512,7 +2512,7 @@ Otherwise, return nil."
> 		     (<= org-clock-marker (point-at-eol)))
> 	    ;; The clock is running here
> 	    (setq org-clock-start-time
> -		  (apply 'encode-time
> +		  (apply 'encode-time
> 			 (org-parse-time-string (match-string 1))))
> 	    (org-update-mode-line)))
> 	 (t
> @@ -2683,8 +2683,8 @@ collapsed state."
> ;; Autoload ID code
>
> (org-autoload "org-id"
> - '(org-id-get-create org-id-new org-id-copy org-id-get
> -   org-id-get-with-outline-path-completion
> + '(org-id-get-create org-id-new org-id-copy org-id-get
> +   org-id-get-with-outline-path-completion
>    org-id-get-with-outline-drilling
>    org-id-goto org-id-find))
>
> @@ -5572,7 +5572,7 @@ the language, a switch telling of the content  
> should be in a single line."
> 	   (string-match "\\<style=\"\\([^ \t\n\"]+\\)\"" m))
>       (match-string 1 m))
>      (t "fundamental"))))
> -
> +
> (defun org-edit-src-exit ()
>   "Exit special edit and protect problematic lines."
>   (interactive)
> @@ -7959,7 +7959,7 @@ operation has put the subtree."
> (defun org-olpath-completing-read (prompt collection &rest args)
>   "Read an outline path like a file name."
>   (let ((thetable collection))
> -    (apply
> +    (apply
>      'completing-read prompt
>      (lambda (string predicate &optional flag)
>        (let (rtn r s f (l (length string)))
> @@ -8116,7 +8116,7 @@ This function can be used in a hook."
>
> (defcustom org-structure-template-alist
>   '(
> -    ("s" "#+begin_src ?\n\n#+end_src"
> +    ("s" "#+begin_src ?\n\n#+end_src"
>          "<src lang=\"?\">\n\n</src>")
>     ("e" "#+begin_example\n?\n#+end_example"
>          "<example>\n?\n</example>")
> @@ -8179,7 +8179,7 @@ expands them."
>        (t (newline))))
>     (setq start (point))
>     (if (string-match "%file" rpl)
> -	(setq rpl (replace-match
> +	(setq rpl (replace-match
> 		   (concat
> 		    "\""
> 		    (save-match-data
> @@ -8188,7 +8188,7 @@ expands them."
> 		   t t rpl)))
>     (insert rpl)
>     (if (re-search-backward "\\?" start t) (delete-char 1))))
> -
> +
>
> (defun org-complete (&optional arg)
>   "Perform completion on word at point.
> @@ -8587,7 +8587,7 @@ For calling through lisp, arg is also  
> interpreted in the following way:
> 	    (condition-case nil
> 		(outline-forward-same-level 1)
> 	      (error (end-of-line 1)))))
> -	(replace-match
> +	(replace-match
> 	 (if is-percent
> 	     (format "[%d%%]" (/ (* 100 cnt-done) (max 1 cnt-all)))
> 	   (format "[%d/%d]" cnt-done cnt-all)))
> @@ -8609,7 +8609,7 @@ when there is a statistics cookie in the  
> headline!
>    (let (org-log-done org-log-states)   ; turn off logging
>      (org-todo (if (= n-not-done 0) \"DONE\" \"TODO\"))))
> ")
> -	
> +
> (defun org-local-logging (value)
>   "Get logging settings from a property VALUE."
>   (let* (words w a)
> @@ -10195,12 +10195,12 @@ the scanner.  The following items can be  
> given here:
>      ((eq match t)   (setq matcher t))
>      ((eq match nil) (setq matcher t))
>      (t (setq matcher (if match (org-make-tags-matcher match) t))))
> -
> +
>     (when (eq scope 'tree)
>       (org-back-to-heading t)
>       (org-narrow-to-subtree)
>       (setq scope nil))
> -
> +
>     (if (not scope)
> 	(progn
> 	  (org-prepare-agenda-buffers
> @@ -10489,7 +10489,7 @@ If yes, return this value.  If not, return  
> the current value of the variable."
> 	      (move-marker org-entry-property-inherited-from (point))
> 	      (throw 'ex tmp))
> 	    (or (org-up-heading-safe) (throw 'ex nil)))))
> -      (or tmp
> +      (or tmp
> 	  (cdr (assoc property org-file-properties))
> 	  (cdr (assoc property org-global-properties))
> 	  (cdr (assoc property org-global-properties-fixed))))))
> @@ -12021,11 +12021,11 @@ If EXCLUDE-TMP is non-nil, ignore  
> temporary buffers."
> 	    (lambda (b) (string-match "\*Org .*Export" (buffer-name b))))
> 	   ((eq predicate 'agenda)
> 	    (lambda (b)
> -	      (with-current-buffer b
> +	      (with-current-buffer b
> 		(and (eq major-mode 'org-mode)
> 		     (setq bfn (buffer-file-name b))
> 		     (member (file-truename bfn) agenda-files)))))
> -	   (t (lambda (b) (with-current-buffer b
> +	   (t (lambda (b) (with-current-buffer b
> 			    (or (eq major-mode 'org-mode)
> 				(string-match "\*Org .*Export"
> 					      (buffer-name b)))))))))
> @@ -12243,7 +12243,7 @@ When a buffer is unmodified, it is just  
> killed.  When modified, it is saved
> 		(append org-done-keywords-for-agenda org-done-keywords))
> 	  (setq org-todo-keyword-alist-for-agenda
> 		(append org-todo-keyword-alist-for-agenda org-todo-key-alist))
> -	  (setq org-tag-alist-for-agenda
> +	  (setq org-tag-alist-for-agenda
> 		(append org-tag-alist-for-agenda org-tag-alist))
>
> 	  (save-excursion
> @@ -14108,59 +14108,60 @@ which make use of the date at the cursor."
> (defun org-indent-line-function ()
>   "Indent line like previous, but further if previous was headline  
> or item."
>   (interactive)
> -  (let* ((pos (point))
> -	 (itemp (org-at-item-p))
> -	 column bpos bcol tpos tcol bullet btype bullet-type)
> -    ;; Find the previous relevant line
> -    (beginning-of-line 1)
> -    (cond
> -     ((looking-at "#") (setq column 0))
> -     ((looking-at "\\*+ ") (setq column 0))
> -     (t
> -      (beginning-of-line 0)
> -      (while (and (not (bobp)) (looking-at "[ \t]*[\n:#|]"))
> -	(beginning-of-line 0))
> -      (cond
> -       ((looking-at "\\*+[ \t]+")
> -	(if (not org-adapt-indentation)
> -	    (setq column 0)
> -	  (goto-char (match-end 0))
> -	  (setq column (current-column))))
> -       ((org-in-item-p)
> -	(org-beginning-of-item)
> -;	(looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
> -	(looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\\|.*? :: \ 
> \)?")
> -	(setq bpos (match-beginning 1) tpos (match-end 0)
> -	      bcol (progn (goto-char bpos) (current-column))
> -	      tcol (progn (goto-char tpos) (current-column))
> -	      bullet (match-string 1)
> -	      bullet-type (if (string-match "[0-9]" bullet) "n" bullet))
> -	(if (> tcol (+ bcol org-description-max-indent))
> -	    (setq tcol (+ bcol 5)))
> -	(if (not itemp)
> -	    (setq column tcol)
> -	  (goto-char pos)
> -	  (beginning-of-line 1)
> -	  (if (looking-at "\\S-")
> -	      (progn
> -		(looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
> -		(setq bullet (match-string 1)
> -		      btype (if (string-match "[0-9]" bullet) "n" bullet))
> -		(setq column (if (equal btype bullet-type) bcol tcol)))
> -	    (setq column (org-get-indentation)))))
> -       (t (setq column (org-get-indentation))))))
> -    (goto-char pos)
> -    (if (<= (current-column) (current-indentation))
> -	(org-indent-line-to column)
> -      (save-excursion (org-indent-line-to column)))
> -    (setq column (current-column))
> -    (beginning-of-line 1)
> -    (if (looking-at
> -	 "\\([ \t]+\\)\\(:[-_0-9a-zA-Z]+:\\)[ \t]*\\(\\S-.*\\(\\S-\\|$\\)\ 
> \)")
> -	(replace-match (concat "\\1" (format org-property-format
> -					     (match-string 2) (match-string 3)))
> -		       t nil))
> -    (org-move-to-column column)))
> +  (unless (org-edit-src-find-region-and-lang)
> +   (let* ((pos (point))
> +          (itemp (org-at-item-p))
> +          column bpos bcol tpos tcol bullet btype bullet-type)
> +     ;; Find the previous relevant line
> +     (beginning-of-line 1)
> +     (cond
> +       ((looking-at "#") (setq column 0))
> +       ((looking-at "\\*+ ") (setq column 0))
> +       (t
> +        (beginning-of-line 0)
> +        (while (and (not (bobp)) (looking-at "[ \t]*[\n:#|]"))
> +          (beginning-of-line 0))
> +        (cond
> +          ((looking-at "\\*+[ \t]+")
> +           (if (not org-adapt-indentation)
> +               (setq column 0)
> +               (goto-char (match-end 0))
> +               (setq column (current-column))))
> +          ((org-in-item-p)
> +           (org-beginning-of-item)
> +                                        ;	(looking-at "[ \t]*\\(\\S- 
> +\\)[ \t]*")
> +           (looking-at "[ \t]*\\(\\S-+\\)[ \t]*\\(\\[[- X]\\][ \t]*\ 
> \|.*? :: \\)?")
> +           (setq bpos (match-beginning 1) tpos (match-end 0)
> +                 bcol (progn (goto-char bpos) (current-column))
> +                 tcol (progn (goto-char tpos) (current-column))
> +                 bullet (match-string 1)
> +                 bullet-type (if (string-match "[0-9]" bullet) "n"  
> bullet))
> +           (if (> tcol (+ bcol org-description-max-indent))
> +               (setq tcol (+ bcol 5)))
> +           (if (not itemp)
> +               (setq column tcol)
> +               (goto-char pos)
> +               (beginning-of-line 1)
> +               (if (looking-at "\\S-")
> +                   (progn
> +                     (looking-at "[ \t]*\\(\\S-+\\)[ \t]*")
> +                     (setq bullet (match-string 1)
> +                           btype (if (string-match "[0-9]" bullet)  
> "n" bullet))
> +                     (setq column (if (equal btype bullet-type)  
> bcol tcol)))
> +                   (setq column (org-get-indentation)))))
> +          (t (setq column (org-get-indentation))))))
> +     (goto-char pos)
> +     (if (<= (current-column) (current-indentation))
> +         (org-indent-line-to column)
> +         (save-excursion (org-indent-line-to column)))
> +     (setq column (current-column))
> +     (beginning-of-line 1)
> +     (if (looking-at
> +          "\\([ \t]+\\)\\(:[-_0-9a-zA-Z]+:\\)[ \t]*\\(\\S-.*\\(\\S-\ 
> \|$\\)\\)")
> +         (replace-match (concat "\\1" (format org-property-format
> +                                              (match-string 2)  
> (match-string 3)))
> +                        t nil))
> +     (org-move-to-column column))))
>
> (defun org-set-autofill-regexps ()
>   (interactive)
> -- 
> 1.5.6.5
>
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2008-09-13 19:59 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-09-08 12:46 Patch to fix indent error when current line is in SRC block S.P.Tseng
2008-09-13 18:07 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).