ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-mouse.el: Remove useless commented functions.

This commit is contained in:
Bastien Guerry 2011-12-26 14:39:47 +01:00
parent 131e3a278a
commit 432437ed4a
1 changed files with 0 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
lisp/org-mouse.el
View File

@ -328,7 +328,6 @@ nor a function, elements of KEYWORDS are used directly."
(goto-char (match-end (or subexp 0))) (goto-char (match-end (or subexp 0)))
(just-one-space))) (just-one-space)))
(defun org-mouse-keyword-replace-menu (keywords &optional group itemformat (defun org-mouse-keyword-replace-menu (keywords &optional group itemformat
nosurround) nosurround)
"A helper function. "A helper function.
@ -394,15 +393,6 @@ DEFAULT is returned if no priority is given in the headline."
(match-string 1) (match-string 1)
(when default (char-to-string org-default-priority))))) (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 () (defun org-mouse-delete-timestamp ()
"Deletes the current timestamp as well as the preceding keyword. "Deletes the current timestamp as well as the preceding keyword.
SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:" SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
@ -453,7 +443,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
["Align Tags in Buffer" (org-set-tags t t) t] ["Align Tags in Buffer" (org-set-tags t t) t]
["Set Tags ..." (org-set-tags) t]))) ["Set Tags ..." (org-set-tags) t])))
(defun org-mouse-set-tags (tags) (defun org-mouse-set-tags (tags)
(save-excursion (save-excursion
;; remove existing tags first ;; remove existing tags first
@ -484,7 +473,6 @@ SCHEDULED: or DEADLINE: or ANYTHINGLIKETHIS:"
('occur-tree "Occur tree: ") ('occur-tree "Occur tree: ")
(t "Agenda command ???"))) (t "Agenda command ???")))
(defun org-mouse-list-options-menu (alloptions &optional function) (defun org-mouse-list-options-menu (alloptions &optional function)
(let ((options (save-match-data (let ((options (save-match-data
(split-string (match-string-no-properties 1))))) (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 ["Plain List to Outline" org-mouse-transform-to-outline
:visible (org-at-item-p)]))) :visible (org-at-item-p)])))
(defun org-mouse-get-context (contextlist context) (defun org-mouse-get-context (contextlist context)
(let ((contextdata (assq context contextlist))) (let ((contextdata (assq context contextlist)))
(when contextdata (when contextdata
@ -598,19 +585,16 @@ This means, between the beginning of line and the point."
(open-line 1) (open-line 1)
(org-indent-to-column (- (match-end 0) (match-beginning 0))) (org-indent-to-column (- (match-end 0) (match-beginning 0)))
(insert "+ ")) (insert "+ "))
(:middle ; insert after (:middle ; insert after
(end-of-line) (end-of-line)
(newline t) (newline t)
(indent-relative) (indent-relative)
(insert "+ ")) (insert "+ "))
(:end ; insert text here (:end ; insert text here
(skip-chars-backward " \t") (skip-chars-backward " \t")
(kill-region (point) (point-at-eol)) (kill-region (point) (point-at-eol))
(unless (org-looking-back org-mouse-punctuation) (unless (org-looking-back org-mouse-punctuation)
(insert (concat org-mouse-punctuation " "))))) (insert (concat org-mouse-punctuation " ")))))
(insert text) (insert text)
(beginning-of-line)) (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 "[[")) (progn (save-excursion (goto-char (region-beginning)) (insert "[["))
(save-excursion (goto-char (region-end)) (insert "]]")))] (save-excursion (goto-char (region-end)) (insert "]]")))]
["Insert Link Here" (org-mouse-yank-link ',event)])))) ["Insert Link Here" (org-mouse-yank-link ',event)]))))
((save-excursion (beginning-of-line) (looking-at "#\\+STARTUP: \\(.*\\)")) ((save-excursion (beginning-of-line) (looking-at "#\\+STARTUP: \\(.*\\)"))
(popup-menu (popup-menu
`(nil `(nil
@ -871,18 +854,6 @@ This means, between the beginning of line and the point."
(t (t
(org-mouse-popup-global-menu)))))) (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 () (defun org-mouse-mark-active ()
(and mark-active transient-mark-mode)) (and mark-active transient-mark-mode))