~ubuntu-branches/ubuntu/oneiric/dictionaries-common/oneiric

#! /bin/sh /usr/share/dpatch/dpatch-run

## 100_ispell.el_ispell-comment-or-string.dpatch by Lennart Borgman

##

## All lines beginning with `## DP:' are a description of the patch.

## DP: function ispell-comment-or-string for spell checking of current comment or string

 

@DPATCH@

diff -urNad '--exclude=CVS' '--exclude=.svn' '--exclude=.git' '--exclude=.arch' '--exclude=.hg' '--exclude=_darcs' '--exclude=.bzr' dictionaries-common~/support/emacsen/ispell.el dictionaries-common/support/emacsen/ispell.el

--- dictionaries-common~/support/emacsen/ispell.el      2010-06-16 14:23:09.000000000 +0200

+++ dictionaries-common/support/emacsen/ispell.el       2010-06-17 11:57:11.000000000 +0200

@@ -3266,11 +3266,21 @@

 

 

 ;;;###autoload

-(defun ispell-comments-and-strings ()

+(defun ispell-comments-and-strings (only-current)

   "Check comments and strings in the current buffer for spelling errors."

-  (interactive)

-  (goto-char (point-min))

+  (interactive (list nil))

   (let (state done)

+    (if (not only-current)

+  (goto-char (point-min))

+      (let* ((here (point))

+             (state (parse-partial-sexp (point-min) (point)))

+             (inside (or (nth 3 state) (nth 4 state)))

+             (start (when inside (nth 8 state))))

+        (if start

+            (goto-char start)

+          (setq done t)

+          (goto-char here)

+          (message "Not inside a string or comment"))))

     (while (not done)

       (setq done t)

       (setq state (parse-partial-sexp (point) (point-max)

@@ -3282,8 +3292,14 @@

            (if (or (nth 3 state) (nth 4 state))

                (error "Unterminated string or comment"))

            (save-excursion

-             (setq done (not (ispell-region start (point))))))))))

+             (setq done (not (ispell-region start (point)))))))

+      (when only-current (setq done t)))))

 

+;;;###autoload

+(defun ispell-comment-or-string ()

+  "Check comments or strings at point for spelling errors."

+  (interactive)

+  (ispell-comments-and-strings t))

 

 ;;;###autoload

 (defun ispell-buffer ()