[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107904: Sync with Org git commit 374c56b.

[Bastien Guerry]

------------------------------------------------------------
revno: 107904
committer: Bastien Guerry <address@hidden>
branch nick: emacs-24
timestamp: Thu 2012-04-26 19:30:04 +0200
message:
  Sync with Org git commit 374c56b.
modified:
  doc/misc/ChangeLog
  etc/ChangeLog
  etc/org/OrgOdtStyles.xml
  lisp/org/ChangeLog
  lisp/org/ob-python.el
  lisp/org/org-agenda.el
  lisp/org/org-clock.el
  lisp/org/org-ctags.el
  lisp/org/org-faces.el
  lisp/org/org-footnote.el
  lisp/org/org-list.el
  lisp/org/org-mouse.el
  lisp/org/org-odt.el
  lisp/org/org-table.el
  lisp/org/org.el

=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog        2012-04-21 00:06:14 +0000
+++ b/doc/misc/ChangeLog        2012-04-26 17:30:04 +0000
@@ -1,3 +1,8 @@
+2012-04-26  Ippei Furuhashi  <address@hidden>  (tiny change)
+
+       * org.texi (Agenda commands): Fix two typos: give corresponding
+       function names, according to `org-agenda-view-mode-dispatch'.
+
 2012-04-21  Glenn Morris  <address@hidden>
 
        * faq.texi (Major packages and programs): Remove section.

=== modified file 'etc/ChangeLog'
--- a/etc/ChangeLog     2012-04-20 07:49:19 +0000
+++ b/etc/ChangeLog     2012-04-26 17:30:04 +0000
@@ -1,3 +1,13 @@
+2012-04-26  Jambunathan K  <address@hidden>
+
+       * org/README: Update Copyright year.
+
+2012-04-26  Jambunathan K  <address@hidden>
+
+       * org/OrgOdtStyles.xml (OrgDescriptionList): Modify style.  With
+       this change, in a description list, if the description paragraph
+       spawns multiple lines then it will correctly indented.
+
 2012-04-20  Glenn Morris  <address@hidden>
 
        * CONTRIBUTE: Expand a bit on copyright assignments.

=== modified file 'etc/org/OrgOdtStyles.xml'
--- a/etc/org/OrgOdtStyles.xml  2012-04-01 09:49:25 +0000
+++ b/etc/org/OrgOdtStyles.xml  2012-04-26 17:30:04 +0000
@@ -649,34 +649,34 @@
   <!-- Description List -->
   <text:list-style style:name="OrgDescriptionList">
    <text:list-level-style-number text:level="1" style:num-format="">
-    <style:list-level-properties text:space-before="0.635cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="0.635cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="2" style:num-format="">
-    <style:list-level-properties text:space-before="1.27cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="1.27cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="3" style:num-format="">
-    <style:list-level-properties text:space-before="1.905cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="1.905cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="4" style:num-format="">
-    <style:list-level-properties text:space-before="2.54cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="2.54cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="5" style:num-format="">
-    <style:list-level-properties text:space-before="3.175cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="3.175cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="6" style:num-format="">
-    <style:list-level-properties text:space-before="3.81cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="3.81cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="7" style:num-format="">
-    <style:list-level-properties text:space-before="4.445cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="4.445cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="8" style:num-format="">
-    <style:list-level-properties text:space-before="5.08cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="5.08cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="9" style:num-format="">
-    <style:list-level-properties text:space-before="5.715cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="5.715cm"/>
    </text:list-level-style-number>
    <text:list-level-style-number text:level="10" style:num-format="">
-    <style:list-level-properties text:space-before="6.35cm" 
text:min-label-width="0.635cm"/>
+    <style:list-level-properties text:space-before="6.35cm"/>
    </text:list-level-style-number>
   </text:list-style>
 

=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog        2012-04-26 16:57:34 +0000
+++ b/lisp/org/ChangeLog        2012-04-26 17:30:04 +0000
@@ -1,3 +1,72 @@
+2012-04-26  Nicolas Goaziou  <address@hidden>
+
+       * org-table.el (org-table-number-fraction): Fix typo.
+
+2012-04-26  Eric Schulte  <address@hidden>
+
+       * ob-python.el (org-babel-execute:python): Ensure newline precedes
+       automatically-added returns.
+
+2012-04-26  Nicolas Goaziou  <address@hidden>
+
+       * org-mouse.el (org-mode-hook): Do not move point when clicking on
+       a footnote reference.
+
+2012-04-26  Bastien Guerry  <address@hidden>
+
+       * org-faces.el (org-date-selected): Fix docstring.
+
+2012-04-26  Bastien Guerry  <address@hidden>
+
+       * org-ctags.el (org-ctags-new-topic-template): Remove * character
+       in front of variable docstring.
+
+2012-04-26  Nicolas Goaziou  <address@hidden>
+
+       * org-list.el (org-list-struct-indent): Follow
+       `org-list-demote-modify-bullet' specifications for ordered
+       bullets.
+       (org-list-indent-item-generic, org-indent-item-tree)
+       (org-outdent-item-tree): Fix bug when operating on a region.
+       (org-outdent-item, org-indent-item): Allow to operate on a region.
+
+       * org.el (org-shiftmetaleft, org-shiftmetaright): Allow to operate
+       on a region.
+
+2012-04-26  Nicolas Goaziou  <address@hidden>
+
+       * org-footnote.el (org-footnote-normalize): Fix positionning in
+       HTML export without a footnote section.
+
+2012-04-26  Madan Ramakrishnan  <address@hidden>  (tiny change)
+
+       * org-agenda.el (org-agenda-bulk-mark): Truly make arg optional as
+       advertised by the function.
+
+2012-04-26  Zachary Kanfer  <address@hidden>  (tiny change)
+
+       * org.el (org-read-date-display): Fix bug when displaying the
+       overlay.
+
+2012-04-26  Bastien Guerry  <address@hidden>
+
+       * org.el (org-mode): Don't use `buffer-face-mode' by default.
+
+2012-04-26  Bastien Guerry  <address@hidden>
+
+       * org-faces.el (org-date-selected): New face.
+
+2012-04-26  Jambunathan K  <address@hidden>
+
+       * org-odt.el (org-odt-format-org-link): Pay no heed to whether the
+       internal links destined for headlines provide a description or
+       not.  In fact, the `org-store-link' and `org-insert-link' create
+       internal links which do have a description.
+
+2012-04-26  Bastien Guerry  <address@hidden>
+
+       * org-clock.el (org-program-exists): Fix docstring.
+
 2012-04-11  Bastien Guerry  <address@hidden>
 
        * org.el (org-point-at-end-of-empty-headline): Only try to match

=== modified file 'lisp/org/ob-python.el'
--- a/lisp/org/ob-python.el     2012-04-01 20:27:06 +0000
+++ b/lisp/org/ob-python.el     2012-04-26 17:30:04 +0000
@@ -64,7 +64,7 @@
         (preamble (cdr (assoc :preamble params)))
          (full-body
          (org-babel-expand-body:generic
-          (concat body (if return-val (format "return %s" return-val) ""))
+          (concat body (if return-val (format "\nreturn %s" return-val) ""))
           params (org-babel-variable-assignments:python params)))
          (result (org-babel-python-evaluate
                  session full-body result-type result-params preamble)))

=== modified file 'lisp/org/org-agenda.el'
--- a/lisp/org/org-agenda.el    2012-04-11 10:59:50 +0000
+++ b/lisp/org/org-agenda.el    2012-04-26 17:30:04 +0000
@@ -8294,7 +8294,7 @@
 (defun org-agenda-bulk-mark (&optional arg)
   "Mark the entry at point for future bulk action."
   (interactive "p")
-  (dotimes (i (max arg 1))
+  (dotimes (i (or arg 1))
     (unless (org-get-at-bol 'org-agenda-diary-link)
       (let* ((m (org-get-at-bol 'org-hd-marker))
             ov)

=== modified file 'lisp/org/org-clock.el'
--- a/lisp/org/org-clock.el     2012-04-11 10:59:50 +0000
+++ b/lisp/org/org-clock.el     2012-04-26 17:30:04 +0000
@@ -664,7 +664,7 @@
              (error (beep t) (beep t)))))))))
 
 (defun org-program-exists (program-name)
-  "Checks whenever we can locate program and launch it."
+  "Checks whenever we can locate PROGRAM-NAME using the `which' executable."
   (if (member system-type '(gnu/linux darwin))
       (= 0 (call-process "which" nil nil nil program-name))))
 

=== modified file 'lisp/org/org-ctags.el'
--- a/lisp/org/org-ctags.el     2012-04-03 12:02:21 +0000
+++ b/lisp/org/org-ctags.el     2012-04-26 17:30:04 +0000
@@ -188,7 +188,7 @@
 Created as a local variable in each buffer.")
 
 (defcustom org-ctags-new-topic-template
-  "* <<%t>>\n\n\n\n\n\n"
+  "<<%t>>\n\n\n\n\n\n"
   "Text to insert when creating a new org file via opening a hyperlink.
 The following patterns are replaced in the string:
     `%t' - replaced with the capitalized title of the hyperlink"

=== modified file 'lisp/org/org-faces.el'
--- a/lisp/org/org-faces.el     2012-04-03 12:02:21 +0000
+++ b/lisp/org/org-faces.el     2012-04-26 17:30:04 +0000
@@ -285,6 +285,16 @@
   "Face for date/time stamps."
   :group 'org-faces)
 
+(defface org-date-selected
+  (org-compatible-face nil
+    '((((class color) (min-colors 16) (background light)) (:foreground "Red1" 
:bold nil))
+      (((class color) (min-colors 16) (background dark))  (:foreground "Pink" 
:bold nil))
+      (((class color) (min-colors 8)  (background light)) (:foreground "red"  
:bold nil))
+      (((class color) (min-colors 8)  (background dark))  (:foreground "red"  
:bold nil))
+      (t (:inverse-video t))))
+  "Face for highlighting the calendar day when using `org-read-date'."
+  :group 'org-faces)
+
 (defface org-sexp-date
   '((((class color) (background light)) (:foreground "Purple"))
     (((class color) (background dark)) (:foreground "Cyan"))

=== modified file 'lisp/org/org-footnote.el'
--- a/lisp/org/org-footnote.el  2012-04-11 10:59:50 +0000
+++ b/lisp/org/org-footnote.el  2012-04-26 17:30:04 +0000
@@ -716,8 +716,8 @@
        ((and org-footnote-section (eq major-mode 'org-mode))
        (goto-char (point-min))
        (if (re-search-forward
-             (concat "^\\*[ \t]+" (regexp-quote org-footnote-section)
-                     "[ \t]*$") nil t)
+            (concat "^\\*[ \t]+" (regexp-quote org-footnote-section)
+                    "[ \t]*$") nil t)
            (delete-region (match-beginning 0) (org-end-of-subtree t t)))
        ;; A new footnote section is inserted by default at the end of
        ;; the buffer.
@@ -727,7 +727,14 @@
        (unless (bolp) (newline)))
        ;; No footnote section set: Footnotes will be added at the end
        ;; of the section containing their first reference.
-       ((eq major-mode 'org-mode))
+       ;; Nevertheless, in an export situation, set insertion point to
+       ;; `point-max' by default.
+       ((eq major-mode 'org-mode)
+       (when export-props
+         (goto-char (point-max))
+         (skip-chars-backward " \r\t\n")
+         (forward-line)
+         (delete-region (point) (point-max))))
        (t
        ;; Remove any left-over tag in the buffer, if one is set up.
        (when org-footnote-tag-for-non-org-mode-files

=== modified file 'lisp/org/org-list.el'
--- a/lisp/org/org-list.el      2012-04-03 12:02:21 +0000
+++ b/lisp/org/org-list.el      2012-04-26 17:30:04 +0000
@@ -1484,8 +1484,19 @@
         (change-bullet-maybe
          (function
           (lambda (item)
-            (let* ((bul (org-trim (org-list-get-bullet item struct)))
-                   (new-bul-p (cdr (assoc bul org-list-demote-modify-bullet))))
+            (let ((new-bul-p
+                   (cdr (assoc
+                         ;; Normalize ordered bullets.
+                         (let ((bul (org-trim
+                                     (org-list-get-bullet item struct))))
+                           (cond ((string-match "[A-Z]\\." bul) "A.")
+                                 ((string-match "[A-Z])" bul) "A)")
+                                 ((string-match "[a-z]\\." bul) "a.")
+                                 ((string-match "[a-z])" bul) "a)")
+                                 ((string-match "[0-9]\\." bul) "1.")
+                                 ((string-match "[0-9])" bul) "1)")
+                                 (t bul)))
+                         org-list-demote-modify-bullet))))
               (when new-bul-p (org-list-set-bullet item struct new-bul-p))))))
         (ind
          (lambda (cell)
@@ -2500,7 +2511,6 @@
 
 Return t if successful."
   (save-excursion
-    (beginning-of-line)
     (let* ((regionp (org-region-active-p))
           (rbeg (and regionp (region-beginning)))
           (rend (and regionp (region-end)))
@@ -2509,7 +2519,8 @@
           (prevs (org-list-prevs-alist struct))
           ;; Are we going to move the whole list?
           (specialp
-           (and (= top (point))
+           (and (not regionp)
+                (= top (point-at-bol))
                 (cdr (assq 'indent org-list-automatic-rules))
                 (if no-subtree
                     (error
@@ -2523,12 +2534,12 @@
            (progn
              (set-marker org-last-indent-begin-marker rbeg)
              (set-marker org-last-indent-end-marker rend))
-         (set-marker org-last-indent-begin-marker (point))
+         (set-marker org-last-indent-begin-marker (point-at-bol))
          (set-marker org-last-indent-end-marker
                      (cond
                       (specialp (org-list-get-bottom-point struct))
-                      (no-subtree (1+ (point)))
-                      (t (org-list-get-item-end (point) struct))))))
+                      (no-subtree (1+ (point-at-bol)))
+                      (t (org-list-get-item-end (point-at-bol) struct))))))
       (let* ((beg (marker-position org-last-indent-begin-marker))
             (end (marker-position org-last-indent-end-marker)))
        (cond
@@ -2583,19 +2594,35 @@
   "Outdent a local list item, but not its children.
 If a region is active, all items inside will be moved."
   (interactive)
-  (if (org-at-item-p)
-      (let ((struct (org-list-struct)))
-       (org-list-indent-item-generic -1 t struct))
-    (error "Not at an item")))
+  (let ((regionp (org-region-active-p)))
+    (cond
+     ((or (org-at-item-p)
+         (and regionp
+              (save-excursion (goto-char (region-beginning))
+                              (org-at-item-p))))
+      (let ((struct (if (not regionp) (org-list-struct)
+                     (save-excursion (goto-char (region-beginning))
+                                     (org-list-struct)))))
+       (org-list-indent-item-generic -1 t struct)))
+     (regionp (error "Region not starting at an item"))
+     (t (error "Not at an item")))))
 
 (defun org-indent-item ()
   "Indent a local list item, but not its children.
 If a region is active, all items inside will be moved."
   (interactive)
-  (if (org-at-item-p)
-      (let ((struct (org-list-struct)))
-       (org-list-indent-item-generic 1 t struct))
-    (error "Not at an item")))
+  (let ((regionp (org-region-active-p)))
+    (cond
+     ((or (org-at-item-p)
+         (and regionp
+              (save-excursion (goto-char (region-beginning))
+                              (org-at-item-p))))
+      (let ((struct (if (not regionp) (org-list-struct)
+                     (save-excursion (goto-char (region-beginning))
+                                     (org-list-struct)))))
+       (org-list-indent-item-generic 1 t struct)))
+     (regionp (error "Region not starting at an item"))
+     (t (error "Not at an item")))))
 
 (defun org-outdent-item-tree ()
   "Outdent a local list item including its children.
@@ -2604,10 +2631,12 @@
   (let ((regionp (org-region-active-p)))
     (cond
      ((or (org-at-item-p)
-         (and (org-region-active-p)
-              (goto-char (region-beginning))
-              (org-at-item-p)))
-      (let ((struct (org-list-struct)))
+         (and regionp
+              (save-excursion (goto-char (region-beginning))
+                              (org-at-item-p))))
+      (let ((struct (if (not regionp) (org-list-struct)
+                     (save-excursion (goto-char (region-beginning))
+                                     (org-list-struct)))))
        (org-list-indent-item-generic -1 nil struct)))
      (regionp (error "Region not starting at an item"))
      (t (error "Not at an item")))))
@@ -2619,10 +2648,12 @@
   (let ((regionp (org-region-active-p)))
     (cond
      ((or (org-at-item-p)
-         (and (org-region-active-p)
-              (goto-char (region-beginning))
-              (org-at-item-p)))
-      (let ((struct (org-list-struct)))
+         (and regionp
+              (save-excursion (goto-char (region-beginning))
+                              (org-at-item-p))))
+      (let ((struct (if (not regionp) (org-list-struct)
+                     (save-excursion (goto-char (region-beginning))
+                                     (org-list-struct)))))
        (org-list-indent-item-generic 1 nil struct)))
      (regionp (error "Region not starting at an item"))
      (t (error "Not at an item")))))

=== modified file 'lisp/org/org-mouse.el'
--- a/lisp/org/org-mouse.el     2012-04-01 09:49:25 +0000
+++ b/lisp/org/org-mouse.el     2012-04-26 17:30:04 +0000
@@ -915,6 +915,7 @@
          ((assq :checkbox context) (org-toggle-checkbox))
          ((assq :item-bullet context)
           (let ((org-cycle-include-plain-lists t)) (org-cycle)))
+         ((org-footnote-at-reference-p) nil)
          (t ad-do-it))))))
 
 (defun org-mouse-move-tree-start (event)

=== modified file 'lisp/org/org-odt.el'
--- a/lisp/org/org-odt.el       2012-04-01 09:49:25 +0000
+++ b/lisp/org/org-odt.el       2012-04-26 17:30:04 +0000
@@ -1689,7 +1689,6 @@
             (or (not thefile) (string= thefile ""))
             (plist-get org-lparse-opt-plist :section-numbers)
             (setq sec-frag fragment)
-            (org-find-text-property-in-string 'org-no-description fragment)
             (or (string-match  "\\`sec\\(\\(-[0-9]+\\)+\\)" sec-frag)
                 (and (setq sec-frag
                            (loop for alias in org-export-target-aliases do

=== modified file 'lisp/org/org-table.el'
--- a/lisp/org/org-table.el     2012-04-11 10:59:50 +0000
+++ b/lisp/org/org-table.el     2012-04-26 17:30:04 +0000
@@ -135,8 +135,8 @@
 
 (defcustom org-table-number-fraction 0.5
   "Fraction of numbers in a column required to make the column align right.
-In a column all non-white fields are considered.  If at least this
-fraction of fields is matched by `org-table-number-fraction',
+In a column all non-white fields are considered.  If at least
+this fraction of fields is matched by `org-table-number-regexp',
 alignment to the right border applies."
   :group 'org-table-settings
   :type 'number)

=== modified file 'lisp/org/org.el'
--- a/lisp/org/org.el   2012-04-11 10:59:50 +0000
+++ b/lisp/org/org.el   2012-04-26 17:30:04 +0000
@@ -5057,8 +5057,7 @@
        'org-parse-arguments)
   (set (make-local-variable 'pcomplete-termination-string) "")
   (when (>= emacs-major-version 23)
-    (set (make-local-variable 'buffer-face-mode-face) 'org-default)
-    (buffer-face-mode))
+    (set (make-local-variable 'buffer-face-mode-face) 'org-default))
 
   ;; If empty file that did not turn on org-mode automatically, make it to.
   (if (and org-insert-mode-line-in-empty-file
@@ -14915,7 +14914,7 @@
   (org-time-stamp arg 'inactive))
 
 (defvar org-date-ovl (make-overlay 1 1))
-(overlay-put org-date-ovl 'face 'org-warning)
+(overlay-put org-date-ovl 'face 'org-date-selected)
 (org-detach-overlay org-date-ovl)
 
 (defvar org-ans1) ; dynamically scoped parameter
@@ -15131,35 +15130,35 @@
   (when org-read-date-display-live
     (when org-read-date-overlay
       (delete-overlay org-read-date-overlay))
-    (let ((p (point)))
-      (end-of-line 1)
-      (while (not (equal (buffer-substring
-                         (max (point-min) (- (point) 4)) (point))
-                        "    "))
-       (insert " "))
-      (goto-char p))
-    (let* ((ans (concat (buffer-substring (point-at-bol) (point-max))
-                       " " (or org-ans1 org-ans2)))
-          (org-end-time-was-given nil)
-          (f (org-read-date-analyze ans org-def org-defdecode))
-          (fmts (if org-dcst
-                    org-time-stamp-custom-formats
-                  org-time-stamp-formats))
-          (fmt (if (or org-with-time
-                       (and (boundp 'org-time-was-given) org-time-was-given))
-                   (cdr fmts)
-                 (car fmts)))
-          (txt (concat "=> " (format-time-string fmt (apply 'encode-time f)))))
-      (when (and org-end-time-was-given
-                (string-match org-plain-time-of-day-regexp txt))
-       (setq txt (concat (substring txt 0 (match-end 0)) "-"
-                         org-end-time-was-given
-                         (substring txt (match-end 0)))))
-      (when org-read-date-analyze-futurep
-       (setq txt (concat txt " (=>F)")))
-      (setq org-read-date-overlay
-           (make-overlay (1- (point-at-eol)) (point-at-eol)))
-      (org-overlay-display org-read-date-overlay txt 'secondary-selection))))
+    (when (minibufferp (current-buffer))
+      (save-excursion
+       (end-of-line 1)
+       (while (not (equal (buffer-substring
+                           (max (point-min) (- (point) 4)) (point))
+                          "    "))
+         (insert " ")))
+      (let* ((ans (concat (buffer-substring (point-at-bol) (point-max))
+                         " " (or org-ans1 org-ans2)))
+            (org-end-time-was-given nil)
+            (f (org-read-date-analyze ans org-def org-defdecode))
+            (fmts (if org-dcst
+                      org-time-stamp-custom-formats
+                    org-time-stamp-formats))
+            (fmt (if (or org-with-time
+                         (and (boundp 'org-time-was-given) org-time-was-given))
+                     (cdr fmts)
+                   (car fmts)))
+            (txt (concat "=> " (format-time-string fmt (apply 'encode-time 
f)))))
+       (when (and org-end-time-was-given
+                  (string-match org-plain-time-of-day-regexp txt))
+         (setq txt (concat (substring txt 0 (match-end 0)) "-"
+                           org-end-time-was-given
+                           (substring txt (match-end 0)))))
+       (when org-read-date-analyze-futurep
+         (setq txt (concat txt " (=>F)")))
+       (setq org-read-date-overlay
+             (make-overlay (1- (point-at-eol)) (point-at-eol)))
+       (org-overlay-display org-read-date-overlay txt 'secondary-selection)))))
 
 (defun org-read-date-analyze (ans org-def org-defdecode)
   "Analyze the combined answer of the date prompt."
@@ -17969,28 +17968,34 @@
 
 (defun org-shiftmetaleft ()
   "Promote subtree or delete table column.
-Calls `org-promote-subtree', `org-outdent-item',
-or `org-table-delete-column', depending on context.
-See the individual commands for more information."
+Calls `org-promote-subtree', `org-outdent-item-tree', or
+`org-table-delete-column', depending on context.  See the
+individual commands for more information."
   (interactive)
   (cond
    ((run-hook-with-args-until-success 'org-shiftmetaleft-hook))
    ((org-at-table-p) (call-interactively 'org-table-delete-column))
    ((org-at-heading-p) (call-interactively 'org-promote-subtree))
-   ((org-at-item-p) (call-interactively 'org-outdent-item-tree))
+   ((if (not (org-region-active-p)) (org-at-item-p)
+      (save-excursion (goto-char (region-beginning))
+                     (org-at-item-p)))
+    (call-interactively 'org-outdent-item-tree))
    (t (org-modifier-cursor-error))))
 
 (defun org-shiftmetaright ()
   "Demote subtree or insert table column.
-Calls `org-demote-subtree', `org-indent-item',
-or `org-table-insert-column', depending on context.
-See the individual commands for more information."
+Calls `org-demote-subtree', `org-indent-item-tree', or
+`org-table-insert-column', depending on context.  See the
+individual commands for more information."
   (interactive)
   (cond
    ((run-hook-with-args-until-success 'org-shiftmetaright-hook))
    ((org-at-table-p) (call-interactively 'org-table-insert-column))
    ((org-at-heading-p) (call-interactively 'org-demote-subtree))
-   ((org-at-item-p) (call-interactively 'org-indent-item-tree))
+   ((if (not (org-region-active-p)) (org-at-item-p)
+      (save-excursion (goto-char (region-beginning))
+                     (org-at-item-p)))
+    (call-interactively 'org-indent-item-tree))
    (t (org-modifier-cursor-error))))
 
 (defun org-shiftmetaup (&optional arg)