diff options
| author | Glenn Morris | 2011-04-16 19:11:49 -0700 |
|---|---|---|
| committer | Glenn Morris | 2011-04-16 19:11:49 -0700 |
| commit | 4d2d1ccdbb655a43976da4c1633c0da3c69080cc (patch) | |
| tree | c680eba65a71d1bddde6497f73f97ea70ea4a2a3 | |
| parent | 61c2b50edd5abf066ee9c80e1780f67925dfa0f1 (diff) | |
| download | emacs-4d2d1ccdbb655a43976da4c1633c0da3c69080cc.tar.gz emacs-4d2d1ccdbb655a43976da4c1633c0da3c69080cc.zip | |
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.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/calendar/diary-lib.el | 2 | ||||
| -rw-r--r-- | lisp/calendar/holidays.el | 2 |
3 files changed, 8 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 66865f4320e..8d38892c0f0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,9 @@ | |||
| 1 | 2011-04-17 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * calendar/diary-lib.el (diary-sexp-entry): | ||
| 4 | * calendar/holidays.el (holiday-sexp): | ||
| 5 | Set debug-on-error rather than the removed stack-trace-on-error. | ||
| 6 | |||
| 1 | 2011-04-16 Glenn Morris <rgm@gnu.org> | 7 | 2011-04-16 Glenn Morris <rgm@gnu.org> |
| 2 | 8 | ||
| 3 | * progmodes/f90.el: Use lexical-binding. | 9 | * progmodes/f90.el: Use lexical-binding. |
diff --git a/lisp/calendar/diary-lib.el b/lisp/calendar/diary-lib.el index 2d162a5060d..9a455c4f2f0 100644 --- a/lisp/calendar/diary-lib.el +++ b/lisp/calendar/diary-lib.el | |||
| @@ -1353,7 +1353,7 @@ diary entries." | |||
| 1353 | (defun diary-sexp-entry (sexp entry date) | 1353 | (defun diary-sexp-entry (sexp entry date) |
| 1354 | "Process a SEXP diary ENTRY for DATE." | 1354 | "Process a SEXP diary ENTRY for DATE." |
| 1355 | (let ((result (if calendar-debug-sexp | 1355 | (let ((result (if calendar-debug-sexp |
| 1356 | (let ((stack-trace-on-error t)) | 1356 | (let ((debug-on-error t)) |
| 1357 | (eval (car (read-from-string sexp)))) | 1357 | (eval (car (read-from-string sexp)))) |
| 1358 | (condition-case nil | 1358 | (condition-case nil |
| 1359 | (eval (car (read-from-string sexp))) | 1359 | (eval (car (read-from-string sexp))) |
diff --git a/lisp/calendar/holidays.el b/lisp/calendar/holidays.el index 19b893a5cf9..695f9b92712 100644 --- a/lisp/calendar/holidays.el +++ b/lisp/calendar/holidays.el | |||
| @@ -462,7 +462,7 @@ The holidays are those in the list `calendar-holidays'." | |||
| 462 | (sort | 462 | (sort |
| 463 | (dolist (p calendar-holidays res) | 463 | (dolist (p calendar-holidays res) |
| 464 | (if (setq h (if calendar-debug-sexp | 464 | (if (setq h (if calendar-debug-sexp |
| 465 | (let ((stack-trace-on-error t)) | 465 | (let ((debug-on-error t)) |
| 466 | (eval p)) | 466 | (eval p)) |
| 467 | (condition-case nil | 467 | (condition-case nil |
| 468 | (eval p) | 468 | (eval p) |