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:
@@ -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)
|
||||
|
||||
Reference in New Issue
Block a user