Mercurial > emacs
comparison lisp/calendar/calendar.el @ 20422:f767d29550d7
Fix bad call to error.
| author | Edward M. Reingold <reingold@emr.cs.iit.edu> |
|---|---|
| date | Fri, 05 Dec 1997 17:22:31 +0000 |
| parents | 620ed2f8250e |
| children | ad8d3c6d3d94 |
comparison
equal
deleted
inserted
replaced
| 20421:6d1f6745878f | 20422:f767d29550d7 |
|---|---|
| 2091 (let* ((diary-buffer (get-file-buffer diary-file))) | 2091 (let* ((diary-buffer (get-file-buffer diary-file))) |
| 2092 (if (and diary-buffer (buffer-modified-p diary-buffer) | 2092 (if (and diary-buffer (buffer-modified-p diary-buffer) |
| 2093 (not | 2093 (not |
| 2094 (yes-or-no-p | 2094 (yes-or-no-p |
| 2095 "Diary modified; do you really want to exit the calendar? "))) | 2095 "Diary modified; do you really want to exit the calendar? "))) |
| 2096 (error) | 2096 (beep) |
| 2097 ;; Need to do this multiple times because one time can replace some | 2097 ;; Need to do this multiple times because one time can replace some |
| 2098 ;; calendar-related buffers with other calendar-related buffers | 2098 ;; calendar-related buffers with other calendar-related buffers |
| 2099 (mapcar (lambda (x) | 2099 (mapcar (lambda (x) |
| 2100 (mapcar 'calendar-hide-window (calendar-window-list))) | 2100 (mapcar 'calendar-hide-window (calendar-window-list))) |
| 2101 (calendar-window-list))))) | 2101 (calendar-window-list))))) |