Minor improvements

lisp/ChangeLog

@@ -1,3 +1,11 @@
+2009-07-18  Carsten Dominik  <carsten.dominik@gmail.com>
+
+	* org.el (org-activate-plain-links): Make single-match.
+	(org-adapt-indentation): Fix docstring.
+
+	* org-macs.el (org-unmodified): Turn of modification hooks while
+	running this macro.
+
 2009-07-08  Carsten Dominik  <carsten.dominik@gmail.com>
 
 	* org-clock.el (org-clock-goto): Find hidden headlines as well.

lisp/org-macs.el

@@ -46,7 +46,9 @@
 (defmacro org-unmodified (&rest body)
   "Execute body without changing `buffer-modified-p'."
   `(set-buffer-modified-p
-    (prog1 (buffer-modified-p) ,@body)))
+    (prog1 (buffer-modified-p)
+      (let (before-change-functions after-change-functions)
+	,@body))))
 
 (defmacro org-re (s)
   "Replace posix classes in regular expression."

lisp/org.el

@@ -684,15 +684,26 @@ lines to the buffer:
   :type 'boolean)
 
 (defcustom org-adapt-indentation t
-  "Non-nil means, adapt indentation when promoting and demoting.
+  "Non-nil means, adapt indentation to outline node level.
-When this is set and the *entire* text in an entry is indented, the
-indentation is increased by one space in a demotion command, and
-decreased by one in a promotion command.  If any line in the entry
-body starts at column 0, indentation is not changed at all.
 
-This variable also influences how property drawers and planning
+When this variable is set, Org assumes that you write outlines by
-information is inserted.  When t, these lines drawers will be inserted
+indenting text in each node to align with the headline (after the stars).
-indented.  When nil, they will not be indented."
+The following issues are influenced by this variable:
+
+- When this is set and the *entire* text in an entry is indented, the
+  indentation is increased by one space in a demotion command, and
+  decreased by one in a promotion command.  If any line in the entry
+  body starts at column 0, indentation is not changed at all.
+
+- Property drawers and planning information is inserted indented when
+  this variable s set.  When nil, they will not be indented.
+
+- TAB indents a line relative to context.  The lines below a headline
+  will be indented when this variable is set.
+
+Note that this is all about true indentation, by adding and removing
+spaces.  See also `org-indent.el' which does level-dependent indentation
+in a virtual way, i.e. only for display in Emacs."
   :group 'org-edit-structure
   :type 'boolean)
 
@@ -4171,7 +4182,8 @@ will be prompted for."
   "Run through the buffer and add overlays to links."
   (catch 'exit
     (let (f)
-      (while (re-search-forward org-plain-link-re limit t)
+      (if (re-search-forward org-plain-link-re limit t)
+	  (progn
 	    (org-remove-flyspell-overlays-in (match-beginning 0) (match-end 0))
 	    (setq f (get-text-property (match-beginning 0) 'face))
 	    (if (or (eq f 'org-tag)
@@ -4180,8 +4192,8 @@ will be prompted for."
 	      (add-text-properties (match-beginning 0) (match-end 0)
 				   (list 'mouse-face 'highlight
 					 'keymap org-mouse-map))
-	  (org-rear-nonsticky-at (match-end 0))
+	      (org-rear-nonsticky-at (match-end 0)))
-	  (throw 'exit t))))))
+	    t)))))
 
 (defun org-activate-code (limit)
   (if (re-search-forward "^[ \t]*\\(: .*\n?\\)" limit t)