diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-16 00:30:41 +0100 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2016-02-17 22:49:19 +0100 |
commit | 04c405660dc53d686c9eb95fe599159061c1bb85 (patch) | |
tree | 75fd9736580f5c7f421124b052dab7883422660a | |
parent | c551ee4ddeadac4755f47e6c19e7de33fa6762c6 (diff) | |
download | org-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.el | 13 |
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. |