Mercurial > emacs
comparison lisp/textmodes/=ispell4.el @ 7030:9e51b51e8595
Pass operation to find-file-name-handler.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Fri, 22 Apr 1994 23:59:24 +0000 |
| parents | dd2c5504bcc1 |
| children | 3b974ab09824 |
comparison
equal
deleted
inserted
replaced
| 7029:f67c02c50e2a | 7030:9e51b51e8595 |
|---|---|
| 281 (let ((filename buffer-file-name) | 281 (let ((filename buffer-file-name) |
| 282 (delete-temp nil)) | 282 (delete-temp nil)) |
| 283 (unwind-protect | 283 (unwind-protect |
| 284 (progn | 284 (progn |
| 285 (cond ((or (null filename) | 285 (cond ((or (null filename) |
| 286 (find-file-name-handler buffer-file-name)) | 286 (find-file-name-handler buffer-file-name nil)) |
| 287 (setq filename (make-temp-name "/usr/tmp/ispell")) | 287 (setq filename (make-temp-name "/usr/tmp/ispell")) |
| 288 (setq delete-temp t) | 288 (setq delete-temp t) |
| 289 (write-region (point-min) (point-max) filename)) | 289 (write-region (point-min) (point-max) filename)) |
| 290 ((and (buffer-modified-p buf) | 290 ((and (buffer-modified-p buf) |
| 291 (y-or-n-p (format "Save file %s? " filename))) | 291 (y-or-n-p (format "Save file %s? " filename))) |