Commit 5813f6ef authored by Glenn Morris's avatar Glenn Morris

(diary-list-entries): Replace superfluous save-excursion with

save-current-buffer.
Widen before searching.  (Bug#5093)
(diary-list-sexp-entries): Remove superfluous save-excursion.
parent c79fb976
2009-12-02 Glenn Morris <rgm@gnu.org>
* calendar/diary-lib.el (diary-list-entries): Replace superfluous
save-excursion with save-current-buffer.
Widen before searching. (Bug#5093)
(diary-list-sexp-entries): Remove superfluous save-excursion.
2009-12-02 Michael Welsh Duggan <mwd@cert.org>
* woman.el (woman-make-bufname): Handle man-pages with "." in the
......
......@@ -744,7 +744,7 @@ LIST-ONLY is non-nil, in which case it just returns the list."
(diary-buffer (find-buffer-visiting diary-file))
diary-entries-list file-glob-attrs)
(message "Preparing diary...")
(save-excursion
(save-current-buffer
(if (not diary-buffer)
(set-buffer (find-file-noselect diary-file t))
(set-buffer diary-buffer)
......@@ -765,6 +765,8 @@ LIST-ONLY is non-nil, in which case it just returns the list."
;; d-s-p is passed to the diary display function.
(let ((diary-saved-point (point)))
(save-excursion
(save-restriction
(widen) ; bug#5093
(setq file-glob-attrs (cadr (diary-pull-attrs nil "")))
(with-syntax-table diary-syntax-table
(goto-char (point-min))
......@@ -795,7 +797,7 @@ LIST-ONLY is non-nil, in which case it just returns the list."
(funcall (or diary-display-function
'diary-simple-display))))
(run-hooks 'diary-hook)
diary-entries-list))))))
diary-entries-list)))))))
(define-obsolete-function-alias 'list-diary-entries 'diary-list-entries "22.1")
......@@ -1694,8 +1696,7 @@ best if they are non-marking."
sexp-start sexp entry specifier entry-start line-start
diary-entry temp literal)
(goto-char (point-min))
(save-excursion
(setq file-glob-attrs (nth 1 (diary-pull-attrs nil '()))))
(setq file-glob-attrs (nth 1 (diary-pull-attrs nil '())))
(while (re-search-forward s-entry nil t)
(backward-char 1)
(setq sexp-start (point))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment