Function: org-mouse-insert-item

org-mouse-insert-item is a byte-compiled function defined in org-mouse.el.gz.

Signature

(org-mouse-insert-item TEXT)

Source Code

;; Defined in /usr/src/emacs/lisp/org/org-mouse.el.gz
(defun org-mouse-insert-item (text)
  (cl-case (org-mouse-line-position)
    (:beginning				; insert before
     (beginning-of-line)
     (looking-at "[ \t]*")
     (open-line 1)
     (indent-to-column (- (match-end 0) (match-beginning 0)))
     (insert "+ "))
    (:middle				; insert after
     (end-of-line)
     (newline t)
     (indent-relative)
     (insert "+ "))
    (:end				; insert text here
     (skip-chars-backward " \t")
     (kill-region (point) (line-end-position))
     (unless (looking-back org-mouse-punctuation (line-beginning-position))
       (insert (concat org-mouse-punctuation " ")))))
  (insert text)
  (beginning-of-line))