summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-16 00:30:41 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-02-17 22:49:19 +0100
commit04c405660dc53d686c9eb95fe599159061c1bb85 (patch)
tree75fd9736580f5c7f421124b052dab7883422660a
parentc551ee4ddeadac4755f47e6c19e7de33fa6762c6 (diff)
downloadorg-mode-04c405660dc53d686c9eb95fe599159061c1bb85.tar.gz
org-colview: Remove unused functions
* lisp/org-colview.el (org-columns-not-in-agenda): (org-string-to-number): Remove functions.
-rw-r--r--lisp/org-colview.el13
1 files changed, 0 insertions, 13 deletions
diff --git a/lisp/org-colview.el b/lisp/org-colview.el
index 4c2cc0a..8fe35df 100644
--- a/lisp/org-colview.el
+++ b/lisp/org-colview.el
@@ -1039,19 +1039,6 @@ display, or in the #+COLUMNS line of the current buffer."
(move-to-column col))
(message "Recomputing columns...done"))
-(defun org-columns-not-in-agenda ()
- (if (eq major-mode 'org-agenda-mode)
- (error "This command is only allowed in Org-mode buffers")))
-
-(defun org-string-to-number (s)
- "Convert string to number, and interpret hh:mm:ss."
- (if (not (string-match ":" s))
- (string-to-number s)
- (let ((l (nreverse (org-split-string s ":"))) (sum 0.0))
- (while l
- (setq sum (+ (string-to-number (pop l)) (/ sum 60))))
- sum)))
-
;;;###autoload
(defun org-columns-number-to-string (n fmt &optional printf)
"Convert a computed column number N to a string value.