[Emacs-diffs] /srv/bzr/emacs/trunk r103937: Replace stack-trace-on-error usage in calendar.

[Glenn Morris]

------------------------------------------------------------
revno: 103937
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Sat 2011-04-16 19:11:49 -0700
message:
  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.
modified:
  lisp/ChangeLog
  lisp/calendar/diary-lib.el
  lisp/calendar/holidays.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-04-16 23:30:15 +0000
+++ b/lisp/ChangeLog    2011-04-17 02:11:49 +0000
@@ -1,3 +1,9 @@
+2011-04-17  Glenn Morris  <address@hidden>
+
+       * 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  <address@hidden>
 
        * progmodes/f90.el: Use lexical-binding.

=== modified file 'lisp/calendar/diary-lib.el'
--- a/lisp/calendar/diary-lib.el        2011-02-05 22:30:14 +0000
+++ b/lisp/calendar/diary-lib.el        2011-04-17 02:11:49 +0000
@@ -1353,7 +1353,7 @@
 (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)))

=== modified file 'lisp/calendar/holidays.el'
--- a/lisp/calendar/holidays.el 2011-01-25 04:08:28 +0000
+++ b/lisp/calendar/holidays.el 2011-04-17 02:11:49 +0000
@@ -462,7 +462,7 @@
     (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)