Function: todo-reset-done-separator-string

todo-reset-done-separator-string is a byte-compiled function defined in todo-mode.el.gz.

Signature

(todo-reset-done-separator-string SYMBOL VALUE)

Documentation

The :set function for todo-done-separator-string.

Source Code

;; Defined in /usr/src/emacs/lisp/calendar/todo-mode.el.gz
(defun todo-reset-done-separator-string (symbol value)
  "The :set function for `todo-done-separator-string'."
  (let ((oldvalue (symbol-value symbol))
	(files todo-file-buffers)
	(sep todo-done-separator))
    (custom-set-default symbol value)
    (when (not (equal value oldvalue))
      (dolist (f files)
	(with-current-buffer (find-file-noselect f)
	  (let ((inhibit-read-only t))
	    (setq todo-done-separator (todo-done-separator))
	    (when (= 1 (length value))
	      (todo-reset-done-separator sep)))
	  (todo-category-select))))))