← Back to branch summary

~ubuntu-dev/ubuntu/lucid/dictionaries-common/lucid-201002110914

« back to all changes in this revision

Viewing changes to support/emacsen/flyspell.el

  • Committer: Bazaar Package Importer
  • Author(s): Bhavani Shankar
  • Date: 2009-05-14 08:30:40 UTC
  • mfrom: (1.1.4 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090514083040-ezikpis3zhc0aff5
Tags: 1.2.1ubuntu1
https://launchpad.net/bugs/371263
* Merge from debian unstable, remaining changes: LP: #371263
  - ./scripts/system/dc-debconf-select.pl: Drop default debconf priority
    from 'critical' to 'medium'.

Show diffs side-by-side

added added

removed removed

Lines of Context:
support/emacsen/flyspell.el
262
262
  :group 'flyspell
263
263
  :type '(choice string (const nil)))
264
264
 
 
265
(defvar flyspell-mode-map)
 
266
 
265
267
(defcustom flyspell-use-meta-tab t
266
268
  "Non-nil means that flyspell uses M-TAB to correct word."
267
269
  :group 'flyspell
268
 
  :type 'boolean)
 
270
  :type 'boolean
 
271
  :initialize 'custom-initialize-default
 
272
  :set (lambda (sym val)
 
273
         (define-key flyspell-mode-map "\M-\t"
 
274
           (if (set sym val)
 
275
               'flyspell-auto-correct-word))))
269
276
 
270
277
(defcustom flyspell-auto-correct-binding
271
278
  [(control ?\;)]
413
420
;;*---------------------------------------------------------------------*/
414
421
(defvar flyspell-mouse-map
415
422
  (let ((map (make-sparse-keymap)))
416
 
    (define-key map (if (featurep 'xemacs) [button2] [down-mouse-2])
417
 
      #'flyspell-correct-word)
 
423
    (if (featurep 'xemacs)
 
424
        (define-key map [button2] #'flyspell-correct-word)
 
425
      (define-key map [down-mouse-2] #'flyspell-correct-word)
 
426
      (define-key map [mouse-2] 'undefined))
418
427
    map)
419
428
  "Keymap for Flyspell to put on erroneous words.")
420
429