Sfoglia il codice sorgente

lisp/org-list.el: Enhance error message

* lisp/org-list.el (org-list-indent-item-generic): Use
`user-error' and enhance the error message.
Bastien 7 anni fa
parent
commit
a9139d9976
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      lisp/org-list.el

+ 2 - 2
lisp/org-list.el

@@ -2648,8 +2648,8 @@ Return t if successful."
 		 (= top (point-at-bol))
 		 (cdr (assq 'indent org-list-automatic-rules))
 		 (if no-subtree
-		     (error
-		      "First item of list cannot move without its subtree")
+		     (user-error
+		      "At first item: use S-M-<left/right> to move the whole list")
 		   t))))
       ;; Determine begin and end points of zone to indent.  If moving
       ;; more than one item, save them for subsequent moves.