~ubuntu-branches/ubuntu/utopic/dictionaries-common/utopic

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

## 210_flyspell.el_session-localwords.dpatch by Agustin Martin Domingo <agmartin@debian.org>

##

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

## DP: Preserve session localwords across buffer switching. Needs debian/patches/210_ispell.el_session-localwords.

 

Status: Experimental. To be included upstream in the medium term.

 

@DPATCH@

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

--- dictionaries-common~/support/emacsen/flyspell.el    2010-04-27 12:57:47.000000000 +0200

+++ dictionaries-common/support/emacsen/flyspell.el     2010-04-27 13:06:36.000000000 +0200

@@ -1451,7 +1451,8 @@

 ;;*    declared correct.                                                */

 ;;*---------------------------------------------------------------------*/

 (defun flyspell-process-localwords (misspellings-buffer)

-  (let (localwords case-fold-search

+  (let ((localwords ispell-buffer-session-localwords)

+       case-fold-search

        (ispell-casechars (ispell-get-casechars)))

     ;; Get localwords from the original buffer

     (save-excursion

@@ -2108,6 +2109,9 @@

         (setq ispell-pdict-modified-p '(t)))

        ((or (eq replace 'buffer) (eq replace 'session))

         (ispell-send-string (concat "@" word "\n"))

+        (add-to-list 'ispell-buffer-session-localwords word)

+        (or ispell-buffer-local-name ; session localwords might conflict

+            (setq ispell-buffer-local-name (buffer-name)))

         (flyspell-unhighlight-at cursor-location)

         (if (null ispell-pdict-modified-p)

             (setq ispell-pdict-modified-p