[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 5620d59: ; * lisp/calendar/todo-mode.el: Remove lef
From: |
Stephen Berman |
Subject: |
[Emacs-diffs] master 5620d59: ; * lisp/calendar/todo-mode.el: Remove leftover commented out lines. |
Date: |
Tue, 14 Aug 2018 15:50:22 -0400 (EDT) |
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 5620d59: ; * lisp/calendar/todo-mode.el: Remove leftover commented out lines.,
Stephen Berman <=