branch: externals/guess-language
commit c543465d7bad4ec549a29be866683af92edf05f9
Merge: 6014777 47ff6ad
Author: Titus von der Malsburg <[email protected]>
Commit: GitHub <[email protected]>
Merge pull request #1 from syohex/fix-package
Fix package
---
guess-language.el | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/guess-language.el b/guess-language.el
index b623d7e..f736866 100644
--- a/guess-language.el
+++ b/guess-language.el
@@ -3,7 +3,7 @@
;; Author: Titus von der Malsburg <[email protected]>
;; Maintainer: Titus von der Malsburg <[email protected]>
;; Version: 0.0.1
-;; Package-Requires: ((cl-lib "0.5") (emacs "24"))
+;; Package-Requires: ((cl-lib "0.5") (emacs "24") (typo "1.1"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
@@ -27,6 +27,14 @@
;; See here for more details:
;; https://github.com/tmalsburg/guess-language.el
+;;; Code:
+
+(require 'cl-lib)
+(require 'typo)
+(require 'find-func)
+(require 'ispell)
+(require 'flyspell)
+
(defcustom guess-language-languages '(en de fr)
"List of symbols that identify the languages that should be
considered when guessing language. Currently supported
@@ -76,7 +84,7 @@ little material to reliably guess the language."
for lang in guess-language-regexps
for regexp = (cdr lang)
collect (cons (car lang) (how-many regexp beginning end)))))
- (car (reduce (lambda (x y) (if (> (cdr x) (cdr y)) x y)) tally))))
+ (car (cl-reduce (lambda (x y) (if (> (cdr x) (cdr y)) x y)) tally))))
(defun guess-language-buffer ()
(interactive)
@@ -156,7 +164,6 @@ correctly."
(provide 'guess-language)
;; Local Variables:
-;; byte-compile-warnings: (not cl-functions obsolete)
;; coding: utf-8
;; indent-tabs-mode: nil
;; End:
