[Emacs-diffs] master 98284ef 14/14: Merge from origin/emacs-24

[Paul Eggert]

branch: master
commit 98284ef51c67fa69796946466337d426ab81f9ee
Merge: 518eab2 c4ade11
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Merge from origin/emacs-24
    
    c4ade11 textmodes/ispell.el: Look for aspell .dat files also under dict-dir
    e28ec9a ispell.el: Extend to aspell current hunspell handling of aliases
    
    Conflicts:
        lisp/ChangeLog
---
 admin/ChangeLog          |    1 -
 doc/lispref/ChangeLog    |    1 -
 doc/misc/ChangeLog       |    1 -
 etc/ChangeLog            |    3 +-
 etc/NEWS                 |   42 +++++------------------------
 etc/NEWS.24              |   36 +++++++++++++-----------
 lisp/ChangeLog           |   23 ++++++++++++---
 lisp/erc/ChangeLog       |    1 -
 lisp/textmodes/ispell.el |   67 ++++++++++++++++++++++++++++------------------
 src/ChangeLog            |    4 ---
 10 files changed, 87 insertions(+), 92 deletions(-)

diff --git a/admin/ChangeLog b/admin/ChangeLog
index bcc43c5..092bfa9 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -3,7 +3,6 @@
        * MAINTAINERS: Add myself to section 2
 
 2015-03-03  Glenn Morris  <address@hidden>
-2015-03-03  Glenn Morris  <address@hidden>
 
        * admin.el (manual-meta-string): Use address@hidden email address
        rather than address@hidden
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index 50cc9cb..42bff7c 100644
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -3,7 +3,6 @@
        * processes.texi (Synchronous Processes): Update documentation of
        call-process-shell-command and process-file-shell-command.
 
-2015-03-03  Eli Zaretskii  <address@hidden>
 2015-03-03  Daniel Colascione  <address@hidden>
 
        * control.texi (Generators): Correct missing word.  Clarify which
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index c00cb2f..c721b25 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -4,7 +4,6 @@
        for erc-format-nick-function and erc-rename-buffers options.
        (Connecting): fix typo
 
-2015-03-03  Michael Albinus  <address@hidden>
 2015-03-02  Daniel Colascione  <address@hidden>
 
        * cl.texi (Iteration Clauses): Mention iterator support.
diff --git a/etc/ChangeLog b/etc/ChangeLog
index 9c11e18..cd5c540 100644
--- a/etc/ChangeLog
+++ b/etc/ChangeLog
@@ -1,8 +1,7 @@
 2015-03-03  Kelvin White  <address@hidden>
 
-       * NEWS: Add section to include ERC changes
+       * NEWS.24: Add section to include ERC changes.
 
-2015-03-03  Eli Zaretskii  <address@hidden>
 2015-03-02  Daniel Colascione  <address@hidden>
 
        * NEWS: Mention finalizers.
diff --git a/etc/NEWS b/etc/NEWS
index 0e02fc7..ad8b6f2 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -14,24 +14,21 @@ and NEWS.1-17 for changes in older Emacs versions.
 You can narrow news to a specific version by calling `view-emacs-news'
 with a prefix argument or by typing C-u C-h C-n.
 
+Temporary note:
++++ indicates that all necessary documentation updates are complete.
+    (This means all relevant manuals in doc/ AND lisp doc-strings.)
+--- means no change in the manuals is needed.
+When you add a new item, use the appropriate mark if you are sure it applies,
+otherwise leave it unmarked.
+
 
 * Installation Changes in Emacs 25.1
 
 +++
-
 ** Building Emacs now requires C99 or later.
 
-** The default value of `history-length' has increased to 100.
-
-** The variable `redisplay-dont-pause' is obsolete.
-
 ** Building Emacs now requires GNU make, version 3.81 or later.
 
-** `call-process-shell-command' and `process-file-shell-command' no longer
-take "&rest args".
-
-** The option `browse-url-firefox-startup-arguments' no longer has an effect.
-
 ** By default, Emacs no longer works on IRIX.  We expect that Emacs
 users are not affected by this, as SGI stopped supporting IRIX in
 December 2013.  If you are affected, please send a bug report.  You
@@ -39,41 +36,18 @@ should be able to work around the problem either by porting 
the Emacs
 undumping code to GCC under IRIX, or by configuring --with-wide-int,
 or by sticking with Emacs 24.4.
 
-** ERC
-
 ** 'configure' now prefers gnustep-config when configuring GNUstep.
 If gnustep-config is not available, the old heuristics are used.
 
-+++
-*** New option `erc-rename-buffers'.
-
-*** New faces `erc-my-nick-prefix-face' and `erc-nick-prefix-face'.
-
-*** address@hidden' displays all user modes instead of only op and voice.
-
-*** The display of irc commands in the current buffer has been disabled.
-
-*** `erc-version' now follows the Emacs version.
-
-** Obsolete packages
-
-*** cc-compat.el
-
 ---
 ** The configure option `--with-pkg-config-prog' has been removed.
 Use './configure PKG_CONFIG=/full/name/of/pkg-config' if you need to.
 
-*** crisp.el (moved to elpa.gnu.org)
-
 ** The configure option '--enable-silent-rules' is now the default,
 and silent rules are now quieter.  To get the old behavior where
 'make' chatters a lot, configure with '--disable-silent-rules' or
 build with 'make V=1'.
 
-*** tpu-edt.el, ws-mode.el
-These emulations of old editors are believed to be no longer relevant
- - contact address@hidden if you disagree.
-
 ---
 ** The configure option '--with-gameuser' now allows to specify a
 group instead of a user if its argument is prefixed by ':' (a colon).
@@ -86,8 +60,6 @@ be installed setgid.  The option now defaults to the 'games' 
group.
 It has no particular connection to Emacs and has not changed in years,
 so if you want to use it, you can always take a copy from an older Emacs.
 
-*** vi.el, vip.el (try M-x viper instead)
-
 
 * Startup Changes in Emacs 25.1
 
diff --git a/etc/NEWS.24 b/etc/NEWS.24
index 969713a..7d9e1f0 100644
--- a/etc/NEWS.24
+++ b/etc/NEWS.24
@@ -14,41 +14,45 @@ and NEWS.1-17 for changes in older Emacs versions.
 You can narrow news to a specific version by calling `view-emacs-news'
 with a prefix argument or by typing C-u C-h C-n.
 
-Temporary note:
-+++ indicates that all necessary documentation updates are complete.
-    (This means all relevant manuals in doc/ AND lisp doc-strings.)
---- means no change in the manuals is needed.
-When you add a new item, use the appropriate mark if you are sure it applies,
-otherwise leave it unmarked.
-
 
 * Changes in Emacs 24.5
 
----
+** This is mainly a bug-fix release, but there are some other changes.
+
 ** The default value of `history-length' has increased to 100.
 
-+++
-** `redisplay-dont-pause' is declared as obsolete.
+** The variable `redisplay-dont-pause' is obsolete.
 
 
 * Changes in Specialized Modes and Packages in Emacs 24.5
 
-** `call-process-shell-command' and `process-file-shell-command'
-don't take "&rest args" any more.
+** `call-process-shell-command' and `process-file-shell-command' no longer
+take "&rest args".
+
+** The option `browse-url-firefox-startup-arguments' no longer has an effect.
+
+** ERC
+
+*** New option `erc-rename-buffers'.
+
+*** New faces `erc-my-nick-prefix-face' and `erc-nick-prefix-face'.
+
+*** address@hidden' displays all user modes instead of only op and voice.
+
+*** The display of irc commands in the current buffer has been disabled.
+
+*** `erc-version' now follows the Emacs version.
 
 ** Obsolete packages
 
 *** cc-compat.el
 
----
-*** crisp.el - moved to elpa.gnu.org.
+*** crisp.el (moved to elpa.gnu.org)
 
----
 *** tpu-edt.el, ws-mode.el
 These emulations of old editors are believed to be no longer relevant
  - contact address@hidden if you disagree.
 
----
 *** vi.el, vip.el (try M-x viper instead)
 
 
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ad4a05f..60e2b50 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,21 @@
+2015-03-03  Agustín Martín Domingo <address@hidden>
+
+       * textmodes/ispell.el (ispell-aspell-find-dictionary): Make sure
+       .dat files for aspell dicts are also searched for in location
+       described by `ispell-aspell-dict-dir', matching aspell's dict-dir
+       variable.
+
+2015-03-03  Agustín Martín Domingo <address@hidden>
+
+       * textmodes/ispell.el (ispell-dicts-name2locale-equivs-alist)
+       (ispell-hunspell-fill-dictionary-entry)
+       (ispell-find-hunspell-dictionaries)
+       (ispell-set-spellchecker-params): New generic name for
+       `ispell-hunspell-dictionary-equivs-alist'.
+       (ispell-aspell-add-aliases): Also use
+       `ispell-dicts-name2locale-equivs-alist' to get aspell aliases for
+       standard dict names.
+
 2015-03-03  Glenn Morris  <address@hidden>
 
        * net/browse-url.el (browse-url-firefox-startup-arguments):
@@ -26,7 +44,6 @@
        with PAGER=cat.  (Bug#19870)
 
 2015-03-03  Glenn Morris  <address@hidden>
-2015-03-03  Glenn Morris  <address@hidden>
 
        * textmodes/flyspell.el (flyspell-duplicate-distance):
        Bump :version.
@@ -48,7 +65,6 @@
        Search as full word with defined casechars, not as substring.
 
 2015-03-03  Juri Linkov  <address@hidden>
-2015-03-03  Juri Linkov  <address@hidden>
 
        Better support for the case of typing RET on the prompt in comint.
        * comint.el (comint-get-old-input-default): Go to the field end
@@ -72,7 +88,6 @@
        :end-of-capability setting.
 
 2015-03-03  Juri Linkov  <address@hidden>
-2015-03-03  Juri Linkov  <address@hidden>
 
        Revert the previous change of comint-line-beginning-position callers,
        and modify comint-line-beginning-position instead.
@@ -100,7 +115,6 @@
        (Bug#19763)
 
 2015-03-03  Nicolas Petton  <address@hidden>
-2015-03-03  Nicolas Petton  <address@hidden>
 
        * emacs-lisp/authors.el (authors-ignored-files)
        (authors-renamed-files-alist): Additions.
@@ -121,7 +135,6 @@
        (authors-valid-file-names, authors-renamed-files-alist): Additions.
 
 2015-03-03  Alan Mackenzie  <address@hidden>
-2015-03-03  Alan Mackenzie  <address@hidden>
 
        CC Mode: Stop Font Lock forcing fontification from BOL.  Fixes
        debbugs#19669.
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 22ebae4..4f5fced 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -4,7 +4,6 @@
        package.el compatibility
 
 2015-03-03  Glenn Morris  <address@hidden>
-2015-03-03  Glenn Morris  <address@hidden>
 
        * erc.el (erc-rename-buffers): Doc fix.  Add :version.
 
diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index 82a09a0..498def0 100644
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -775,7 +775,7 @@ here just for backwards compatibility.")
 (make-obsolete-variable 'ispell-aspell-supports-utf8
                         'ispell-encoding8-command "23.1")
 
-(defvar ispell-hunspell-dictionary-equivs-alist
+(defvar ispell-dicts-name2locale-equivs-alist
   '(("american"      "en_US")
     ("brasileiro"    "pt_BR")
     ("british"       "en_GB")
@@ -807,7 +807,7 @@ here just for backwards compatibility.")
     ("slovenian"     "sl_SI")
     ("svenska"       "sv_SE")
     ("hebrew"        "he_IL"))
-  "Alist with matching hunspell dict names for standard dict names in
+  "Alist with known matching locales for standard dict names in
   `ispell-dictionary-base-alist'.")
 
 (defvar ispell-emacs-alpha-regexp
@@ -1056,27 +1056,35 @@ Assumes that value contains no whitespace."
   "For aspell dictionary DICT-NAME, return a list of parameters if an
 associated data file is found or nil otherwise.  List format is that
 of `ispell-dictionary-base-alist' elements."
+
+  ;; Make sure `ispell-aspell-dict-dir' is defined
+  (or ispell-aspell-dict-dir
+      (setq ispell-aspell-dict-dir
+           (ispell-get-aspell-config-value "dict-dir")))
+
   ;; Make sure `ispell-aspell-data-dir' is defined
   (or ispell-aspell-data-dir
       (setq ispell-aspell-data-dir
            (ispell-get-aspell-config-value "data-dir")))
-  ;; Try finding associated datafile
-  (let* ((datafile1
-         (concat ispell-aspell-data-dir "/"
-                 ;; Strip out variant, country code, etc.
-                 (and (string-match "^[[:alpha:]]+" dict-name)
-                      (match-string 0 dict-name)) ".dat"))
-        (datafile2
-         (concat ispell-aspell-data-dir "/"
-                 ;; Strip out anything but xx_YY.
-                 (and (string-match "^[[:alpha:]_]+" dict-name)
-                      (match-string 0 dict-name)) ".dat"))
-        (data-file
-         (if (file-readable-p datafile1)
-             datafile1
-           (if (file-readable-p datafile2)
-               datafile2)))
-        otherchars)
+
+  ;; Try finding associated datafile. aspell will look for master .dat
+  ;; file in `dict-dir' and `data-dir'. Associated .dat files must be
+  ;; in the same directory as master file.
+  (let ((data-file
+        (catch 'datafile
+          (dolist ( tmp-path (list ispell-aspell-dict-dir
+                                   ispell-aspell-data-dir ))
+            ;; Try xx.dat first, strip out variant, country code, etc,
+            ;; then try xx_YY.dat (without stripping country code).
+            (dolist (tmp-regexp (list "^[[:alpha:]]+"
+                                      "^[[:alpha:]_]+"))
+              (let ((fullpath
+                     (concat tmp-path "/"
+                             (and (string-match tmp-regexp dict-name)
+                                  (match-string 0 dict-name)) ".dat")))
+                (if (file-readable-p fullpath)
+                    (throw 'datafile fullpath)))))))
+       otherchars)
 
     (if data-file
        (with-temp-buffer
@@ -1128,6 +1136,13 @@ Return the new dictionary alist."
                 (realdict (assoc realname alist)))
            (when (and realdict (not already-exists-p))
              (push (cons aliasname (cdr realdict)) alist))))))
+    ;; Add entries for standard dict-names with found locale-matching entry
+    (dolist (dict-map-entry ispell-dicts-name2locale-equivs-alist)
+      (let ((name (car dict-map-entry))
+           (locale (cadr dict-map-entry)))
+       (unless (assoc name alist) ;; skip if already present
+         (if (assoc locale alist)
+             (push (cons name (cdr (assoc locale alist))) alist)))))
     alist))
 
 ;; Make ispell.el work better with hunspell.
@@ -1151,12 +1166,12 @@ all uninitialized dicts using that affix file."
   (if (cadr (assoc dict ispell-dictionary-alist))
       (message "ispell-hfde: Non void entry for %s. Skipping.\n" dict)
     (let ((dict-alias
-           (cadr (assoc dict ispell-hunspell-dictionary-equivs-alist)))
+           (cadr (assoc dict ispell-dicts-name2locale-equivs-alist)))
          (use-for-dicts (list dict))
          (dict-args-cdr (cdr (ispell-parse-hunspell-affix-file dict)))
          newlist)
       ;; Get a list of uninitialized dicts using the same affix file.
-      (dolist (dict-equiv-alist-entry ispell-hunspell-dictionary-equivs-alist)
+      (dolist (dict-equiv-alist-entry ispell-dicts-name2locale-equivs-alist)
        (let ((dict-equiv-key (car dict-equiv-alist-entry))
              (dict-equiv-value (cadr dict-equiv-alist-entry)))
          (if (or (member dict dict-equiv-alist-entry)
@@ -1221,7 +1236,7 @@ Return a list in `ispell-dictionary-alist' format."
   "Look for installed hunspell dictionaries.
 Will initialize `ispell-hunspell-dictionary-alist' and
 `ispell-hunspell-dictionary-alist' after values found
-and remove `ispell-hunspell-dictionary-equivs-alist'
+and remove `ispell-dicts-name2locale-equivs-alist'
 entries if a specific dict was found."
   (let ((hunspell-found-dicts
         (split-string
@@ -1260,15 +1275,15 @@ entries if a specific dict was found."
              "-- ispell-fhd: Skipping entry: %s\n" dict)))))
     ;; Remove entry from aliases alist if explicit dict was found.
     (let (newlist)
-      (dolist (dict ispell-hunspell-dictionary-equivs-alist)
+      (dolist (dict ispell-dicts-name2locale-equivs-alist)
        (if (assoc (car dict) ispell-hunspell-dict-paths-alist)
            (ispell-print-if-debug
              "-- ispell-fhd: Excluding %s alias. Standalone dict found.\n"
              (car dict))
          (add-to-list 'newlist dict)))
-      (setq ispell-hunspell-dictionary-equivs-alist newlist))
+      (setq ispell-dicts-name2locale-equivs-alist newlist))
     ;; Add known hunspell aliases
-    (dolist (dict-equiv ispell-hunspell-dictionary-equivs-alist)
+    (dolist (dict-equiv ispell-dicts-name2locale-equivs-alist)
       (let ((dict-equiv-key (car dict-equiv))
            (dict-equiv-value (cadr dict-equiv))
            (exclude-aliases (list   ;; Exclude TeX aliases
@@ -1365,7 +1380,7 @@ aspell is used along with Emacs).")
              (let* ((dict-name (nth 0 adict))
                     (dict-equiv
                      (cadr (assoc dict-name
-                                  ispell-hunspell-dictionary-equivs-alist)))
+                                  ispell-dicts-name2locale-equivs-alist)))
                     (ispell-args (nth 5 adict))
                     (ispell-args-has-d (member "-d" ispell-args))
                     skip-dict)
diff --git a/src/ChangeLog b/src/ChangeLog
index b1d9822..8acca6c 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -21,19 +21,16 @@
        mouse_position_for_popup only for X frames.  (Bug#19862)
 
 2015-03-03  Eli Zaretskii  <address@hidden>
-2015-03-03  Eli Zaretskii  <address@hidden>
 
        * buffer.c (syms_of_buffer): Doc fix.  (Bug#19841)
 
 2015-03-03  Eli Zaretskii  <address@hidden>
-2015-03-03  Eli Zaretskii  <address@hidden>
 
        * xfaces.c (map_tty_color): Use assoc_no_quit instead of
        assq_no_quit to fetch color definition by its string name.
        (Bug#19802)
 
 2015-03-03  Eli Zaretskii  <address@hidden>
-2015-03-03  Eli Zaretskii  <address@hidden>
 
        * xdisp.c (move_it_in_display_line_to): Handle the case where the
        last character of a screen line is whitespace, and we are under
@@ -41,7 +38,6 @@
        (Bug#19769)
 
 2015-03-03  Eli Zaretskii  <address@hidden>
-2015-03-03  Eli Zaretskii  <address@hidden>
 
        * xdisp.c (handle_stop, handle_single_display_spec)
        (next-element_from_image): Don't reset the