[Emacs-diffs] master 5620d59: ; * lisp/calendar/todo-mode.el: Remove leftover commented out lines.

[Stephen Berman]

branch: master
commit 5620d591ee67e5b31ca8d5aa0dcc1a13116b09a7
Author: Stephen Berman <address@hidden>
Commit: Stephen Berman <address@hidden>

    ; * lisp/calendar/todo-mode.el: Remove leftover commented out lines.
---
 lisp/calendar/todo-mode.el | 22 ----------------------
 1 file changed, 22 deletions(-)

diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el
index f7af65c..1623c6e 100644
--- a/lisp/calendar/todo-mode.el
+++ b/lisp/calendar/todo-mode.el
@@ -6721,32 +6721,11 @@ Added to `window-configuration-change-hook' in Todo 
mode."
   (setq-local todo-current-todo-file (file-truename (buffer-file-name)))
   (setq-local todo-show-done-only t))
 
-;; (defun todo-mode-external-set ()
-;;   "Set `todo-categories' externally to `todo-current-todo-file'."
-;;   (setq-local todo-current-todo-file todo-global-current-todo-file)
-;;   (let ((cats (with-current-buffer
-;;               ;; Can't use find-buffer-visiting when
-;;               ;; `todo-show-categories-table' is called on first
-;;               ;; invocation of `todo-show', since there is then
-;;               ;; no buffer visiting the current file.
-;;               (find-file-noselect todo-current-todo-file 'nowarn)
-;;             (or todo-categories
-;;                 ;; In Todo Edit mode todo-categories is now nil
-;;                 ;; since it uses same buffer as Todo mode but
-;;                 ;; doesn't have the latter's local variables.
-;;                 (save-excursion
-;;                   (goto-char (point-min))
-;;                   (read (buffer-substring-no-properties
-;;                          (line-beginning-position)
-;;                          (line-end-position))))))))
-;;     (setq-local todo-categories cats)))
-
 (define-derived-mode todo-edit-mode text-mode "Todo-Ed"
   "Major mode for editing multiline todo items.
 
 \\{todo-edit-mode-map}"
   (todo-modes-set-1)
-  ;; (todo-mode-external-set)
   (setq-local todo-current-todo-file (file-truename (buffer-file-name)))
   (when (= (buffer-size) (- (point-max) (point-min)))
     ;; Only need this when editing the whole file not just an item.
@@ -6759,7 +6738,6 @@ Added to `window-configuration-change-hook' in Todo mode."
   "Major mode for displaying and editing todo categories.
 
 \\{todo-categories-mode-map}"
-  ;; (todo-mode-external-set)
   (setq-local todo-current-todo-file todo-global-current-todo-file)
   (setq-local todo-categories
              ;; Can't use find-buffer-visiting when