Replace stack-trace-on-error usage in calendar.
* lisp/calendar/diary-lib.el (diary-sexp-entry): * lisp/calendar/holidays.el (holiday-sexp): Set debug-on-error rather than the removed stack-trace-on-error.
This commit is contained in:
parent
61c2b50edd
commit
4d2d1ccdbb
3 changed files with 8 additions and 2 deletions
|
@ -1,3 +1,9 @@
|
|||
2011-04-17 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* calendar/diary-lib.el (diary-sexp-entry):
|
||||
* calendar/holidays.el (holiday-sexp):
|
||||
Set debug-on-error rather than the removed stack-trace-on-error.
|
||||
|
||||
2011-04-16 Glenn Morris <rgm@gnu.org>
|
||||
|
||||
* progmodes/f90.el: Use lexical-binding.
|
||||
|
|
|
@ -1353,7 +1353,7 @@ diary entries."
|
|||
(defun diary-sexp-entry (sexp entry date)
|
||||
"Process a SEXP diary ENTRY for DATE."
|
||||
(let ((result (if calendar-debug-sexp
|
||||
(let ((stack-trace-on-error t))
|
||||
(let ((debug-on-error t))
|
||||
(eval (car (read-from-string sexp))))
|
||||
(condition-case nil
|
||||
(eval (car (read-from-string sexp)))
|
||||
|
|
|
@ -462,7 +462,7 @@ The holidays are those in the list `calendar-holidays'."
|
|||
(sort
|
||||
(dolist (p calendar-holidays res)
|
||||
(if (setq h (if calendar-debug-sexp
|
||||
(let ((stack-trace-on-error t))
|
||||
(let ((debug-on-error t))
|
||||
(eval p))
|
||||
(condition-case nil
|
||||
(eval p)
|
||||
|
|
Loading…
Add table
Reference in a new issue