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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 66865f4320ec129575d2ce1391d4515d5c301883..8d38892c0f091d82055544dd634639ff6d8e2d92 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el
index 2d162a5060d1618e7dac29c688180bef74e20d22..9a455c4f2f0129301399701a135521f6340de2c5 100644 (file)
--- a/lisp/calendar/diary-lib.el
+++ b/lisp/calendar/diary-lib.el
@@ -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)))

diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el
index 19b893a5cf96f1bd23f2ba4049ea455758a87e9f..695f9b92712267dd00a337acb72d2296b1c758c9 100644 (file)
--- a/lisp/calendar/holidays.el
+++ b/lisp/calendar/holidays.el
@@ -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)