Browse Source

org-colview: Remove unused functions

* lisp/org-colview.el (org-columns-not-in-agenda):
(org-string-to-number): Remove functions.
Nicolas Goaziou 9 năm trước cách đây
mục cha
commit
04c405660d
1 tập tin đã thay đổi với 0 bổ sung13 xóa
  1. 0 13
      lisp/org-colview.el

+ 0 - 13
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.