summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2011-12-26 14:39:47 +0100
committerBastien Guerry <bzg@altern.org>2012-01-03 09:16:05 +0100
commit432437ed4a95ae1a3ba9186f66349526170d556c (patch)
treec0cbd720cad164a429c7fb6aa566a8a80a9cb5b5
parent131e3a278aa7ffa352ed08b59c05438f9e93b71c (diff)
downloadorg-mode-432437ed4a95ae1a3ba9186f66349526170d556c.tar.gz
org-mouse.el: Remove useless commented functions.
-rw-r--r--lisp/org-mouse.el29
1 files changed, 0 insertions, 29 deletions
diff --git a/lisp/org-mouse.el b/lisp/org-mouse.el
index f2a43a5..3a667de 100644
--- a/lisp/org-mouse.el
+++ b/lisp/org-mouse.el
@@ -328,7 +328,6 @@ nor a function, elements of KEYWORDS are used directly."
(goto-char (match-end (or subexp 0)))
(just-one-space)))
-
(defun org-mouse-keyword-replace-menu (keywords &optional group itemformat
nosurround)
"A helper function.
@@ -394,15 +393,6 @@ DEFAULT is returned if no priority is given in the headline."
(match-string 1)
(when default (char-to-string org-default-priority)))))
-;; (defun org-mouse-at-link ()
-;; (and (eq (get-text-property (point) 'face) 'org-link)
-;; (save-excursion
-;; (goto-char (previous-single-property-change (point) 'face))
-;; (or (looking-at org-bracket-link-regexp)
-;; (looking-at org-angle-link-re)
-;; (looking-at org-plain-link-re)))))
-
-
(defun org-mouse-delete-timestamp ()
"Deletes the current timestamp as well as the preceding keyword.
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
@@ -453,7 +443,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
["Align Tags in Buffer" (org-set-tags t t) t]
["Set Tags ..." (org-set-tags) t])))
-
(defun org-mouse-set-tags (tags)
(save-excursion
;; remove existing tags first
@@ -484,7 +473,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
('occur-tree "Occur tree: ")
(t "Agenda command ???")))
-
(defun org-mouse-list-options-menu (alloptions &optional function)
(let ((options (save-match-data
(split-string (match-string-no-properties 1)))))
@@ -570,7 +558,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
["Plain List to Outline" org-mouse-transform-to-outline
:visible (org-at-item-p)])))
-
(defun org-mouse-get-context (contextlist context)
(let ((contextdata (assq context contextlist)))
(when contextdata
@@ -598,19 +585,16 @@ This means, between the beginning of line and the point."
(open-line 1)
(org-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) (point-at-eol))
(unless (org-looking-back org-mouse-punctuation)
(insert (concat org-mouse-punctuation " ")))))
-
(insert text)
(beginning-of-line))
@@ -660,7 +644,6 @@ This means, between the beginning of line and the point."
(progn (save-excursion (goto-char (region-beginning)) (insert "[["))
(save-excursion (goto-char (region-end)) (insert "]]")))]
["Insert Link Here" (org-mouse-yank-link ',event)]))))
-
((save-excursion (beginning-of-line) (looking-at "#\\+STARTUP: \\(.*\\)"))
(popup-menu
`(nil
@@ -871,18 +854,6 @@ This means, between the beginning of line and the point."
(t
(org-mouse-popup-global-menu))))))
-;; (defun org-mouse-at-regexp (regexp)
-;; (save-excursion
-;; (let ((point (point))
-;; (bol (progn (beginning-of-line) (point)))
-;; (eol (progn (end-of-line) (point))))
-;; (goto-char point)
-;; (re-search-backward regexp bol 1)
-;; (and (not (eolp))
-;; (progn (forward-char)
-;; (re-search-forward regexp eol t))
-;; (<= (match-beginning 0) point)))))
-
(defun org-mouse-mark-active ()
(and mark-active transient-mark-mode))