| Paste number 69565: | dired-ispell-files |
| Pasted by: | hsuh |
| When: | 8 months, 1 day ago |
| Share: | Tweet this! | http://paste.lisp.org/+1HOD |
| Channel: | #emacs |
| Paste contents: |
(defun dired-ispell-files ()
(interactive)
(dolist (file (dired-get-marked-files))
(find-file file)
(ispell-buffer)))Annotations for this paste:
| Annotation number 3: | this is a silly one |
| Pasted by: | David Roderick |
| When: | 8 months, 1 day ago |
| Share: | Tweet this! | http://paste.lisp.org/+1HOD#3 |
| Paste contents: |
(defun dired-ispell-files ()
(interactive)
(catch 'quit
(dolist (file (dired-get-marked-files))
(find-file file)
(ispell-buffer)
(global-set-key [?\C-c ?\C-q] '(throw 'quit t)))))
| Annotation number 2: | quit when ispell is quit |
| Pasted by: | hsuh |
| When: | 8 months, 1 day ago |
| Share: | Tweet this! | http://paste.lisp.org/+1HOD#2 |
| Paste contents: |
(defun dired-ispell-files ()
(interactive)
(catch 'quit
(dolist (file (dired-get-marked-files))
(find-file file)
(unless (numberp (ispell-buffer))
(throw 'quit t)))))| Annotation number 1: | with continue question (untested) |
| Pasted by: | hsuh |
| When: | 8 months, 1 day ago |
| Share: | Tweet this! | http://paste.lisp.org/+1HOD#1 |
| Paste contents: |
fun dired-ispell-files ()
(interactive)
(catch 'quit
(dolist (file (dired-get-marked-files))
(find-file file)
(ispell-buffer)
(unless (y-or-n-p "Keep checking?")
(throw 'quit t)))))