diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/progmodes/ebrowse.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4c223d6dbbc..ce3242d9a03 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2003-02-17 Dave Love <fx@gnu.org> | ||
| 2 | |||
| 3 | * progmodes/ebrowse.el (ebrowse-output): Don't use gensym. | ||
| 4 | |||
| 1 | 2003-02-17 Markus Rost <rost@math.ohio-state.edu> | 5 | 2003-02-17 Markus Rost <rost@math.ohio-state.edu> |
| 2 | 6 | ||
| 3 | * calendar/calendar.el (diary-file-name-prefix-function): Fix | 7 | * calendar/calendar.el (diary-file-name-prefix-function): Fix |
diff --git a/lisp/progmodes/ebrowse.el b/lisp/progmodes/ebrowse.el index c05f2d60422..44f5a8f0126 100644 --- a/lisp/progmodes/ebrowse.el +++ b/lisp/progmodes/ebrowse.el | |||
| @@ -258,7 +258,7 @@ This is a destructive operation." | |||
| 258 | (defmacro ebrowse-output (&rest body) | 258 | (defmacro ebrowse-output (&rest body) |
| 259 | "Eval BODY with a writable current buffer. | 259 | "Eval BODY with a writable current buffer. |
| 260 | Preserve buffer's modified state." | 260 | Preserve buffer's modified state." |
| 261 | (let ((modified (gensym "--ebrowse-output--"))) | 261 | (let ((modified (make-symbol "--ebrowse-output--"))) |
| 262 | `(let (buffer-read-only (,modified (buffer-modified-p))) | 262 | `(let (buffer-read-only (,modified (buffer-modified-p))) |
| 263 | (unwind-protect | 263 | (unwind-protect |
| 264 | (progn ,@body) | 264 | (progn ,@body) |