Merge from origin/emacs-24

0077b36 # NEWS copyedits
3ca2ff3 * lisp/erc/erc.el (erc-rename-buffers): Doc fix.  Add :version.
b85523f * lisp/textmodes/flyspell.el (flyspell-duplicate-distance):
decb48d Augment text-mode syntax table for a few special characters
8b3ba7a Improve docs of transient-mark-mode  (Bug#19841)
72fd047 NEWS: Add section to include ERC changes
a7254bb Improve string search in `flyspell-word-search-*`. (Bug#16800)

Conflicts:
	etc/ChangeLog
	etc/NEWS
	lisp/ChangeLog
	lisp/erc/ChangeLog
	src/ChangeLog

6 files changed, 106 insertions, 27 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69ccbfaa507..47ddedae883 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,7 +1,28 @@
+2015-03-03  Glenn Morris  <rgm@gnu.org>
+
+        * textmodes/flyspell.el (flyspell-duplicate-distance):
+        Bump :version.
+
+2015-03-03  Eli Zaretskii  <eliz@gnu.org>
+
+        * textmodes/text-mode.el (text-mode-syntax-table): Make some
+        punctuation character behave as word-constituent, for more
+        compatibility with Unicode.
+
+        * simple.el (transient-mark-mode): Doc fix.  (Bug#19841)
+
+2015-03-03  Agustín Martín Domingo <agustin6martin@gmail.com>
+
+        Improve string search in `flyspell-word-search-*`. (Bug#16800)
+        * flyspell.el (flyspell-duplicate-distance): Limit default search
+        distance for duplicated words to 40000.
+        (flyspell-word-search-backward, flyspell-word-search-forward):
+        Search as full word with defined casechars, not as substring.
+
+2015-03-03  Juri Linkov  <juri@linkov.net>
 2015-03-03  Juri Linkov  <juri@linkov.net>
 
         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
         when comint-use-prompt-regexp is nil.
         (comint-line-beginning-position): Check if point is already
diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index 4c1c8432733..f89d5a2d043 100644
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,11 @@
+2015-03-03  Glenn Morris  <rgm@gnu.org>
+
+        * erc.el (erc-rename-buffers): Doc fix.  Add :version.
+
+2015-03-03  Dima Kogan  <dima@secretsauce.net>
+
+        * erc-backend.el (define-erc-response-handler): Give hook-name
+        default value of nil and add-to-list (bug#19363).
 2015-02-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * erc-spelling.el (erc-spelling-init):
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el
index 7b9a3eb8620..e2366a1b58f 100644
--- a/lisp/erc/erc.el
+++ b/lisp/erc/erc.el
@@ -197,7 +197,8 @@ parameters and authentication."
          (set sym (if (functionp val) (funcall val) val))))
 
 (defcustom erc-rename-buffers nil
-  "When this is set to t, buffers will be renamed to network name if available"
+  "Non-nil means rename buffers with network name, if available."
+  :version "24.5"
   :group 'erc
   :type 'boolean)
 
@@ -1148,6 +1149,7 @@ which the local user typed."
   "Faces for ERC."
   :group 'erc)
 
+;; FIXME faces should not end in "-face".
 (defface erc-default-face '((t))
   "ERC default face."
   :group 'erc-faces)
diff --git a/lisp/simple.el b/lisp/simple.el
index 2f09042d817..1e64f998fd4 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -5168,10 +5168,11 @@ positive, and disable it otherwise.  If called from Lisp, enable
 Transient Mark mode if ARG is omitted or nil.
 
 Transient Mark mode is a global minor mode.  When enabled, the
-region is highlighted whenever the mark is active.  The mark is
-\"deactivated\" by changing the buffer, and after certain other
-operations that set the mark but whose main purpose is something
-else--for example, incremental search, \\[beginning-of-buffer], and \\[end-of-buffer].
+region is highlighted with the `region' face whenever the mark
+is active.  The mark is \"deactivated\" by changing the buffer,
+and after certain other operations that set the mark but whose
+main purpose is something else--for example, incremental search,
+\\[beginning-of-buffer], and \\[end-of-buffer].
 
 You can also deactivate the mark by typing \\[keyboard-quit] or
 \\[keyboard-escape-quit].
diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el
index ffaf7e753f4..8aadf51871f 100644
--- a/lisp/textmodes/flyspell.el
+++ b/lisp/textmodes/flyspell.el
@@ -93,7 +93,7 @@ downcased before comparing with these exceptions."
   :version "21.1"
   :type 'boolean)
 
-(defcustom flyspell-duplicate-distance -1
+(defcustom flyspell-duplicate-distance 400000
   "The maximum distance for finding duplicates of unrecognized words.
 This applies to the feature that when a word is not found in the dictionary,
 if the same spelling occurs elsewhere in the buffer,
@@ -102,7 +102,7 @@ This variable specifies how far to search to find such a duplicate.
 -1 means no limit (search the whole buffer).
 0 means do not search for duplicate unrecognized spellings."
   :group 'flyspell
-  :version "21.1"
+  :version "24.5"                       ; -1 -> 400000
   :type '(choice (const :tag "no limit" -1)
                  number))
 
@@ -1012,17 +1012,33 @@ Mostly we check word delimiters."
 ;;*---------------------------------------------------------------------*/
 (defun flyspell-word-search-backward (word bound &optional ignore-case)
   (save-excursion
-    (let ((r '())
-          (inhibit-point-motion-hooks t)
-          p)
-      (while (and (not r) (setq p (search-backward word bound t)))
-        (let ((lw (flyspell-get-word)))
-          (if (and (consp lw)
-                   (if ignore-case
-                       (string-equal (downcase (car lw)) (downcase word))
-                     (string-equal (car lw) word)))
-              (setq r p)
-            (goto-char p))))
+    (let* ((r '())
+           (inhibit-point-motion-hooks t)
+           (flyspell-not-casechars (flyspell-get-not-casechars))
+           (bound (if (and bound
+                           (> bound (point-min)))
+                      (- bound 1)))
+           (word-re (concat
+                     "\\(?:" flyspell-not-casechars "\\|\\`\\)"
+                     (regexp-quote word)
+                     flyspell-not-casechars))
+           p)
+      (while
+          (and (not r)
+               (setq p
+                     (and
+                      (re-search-backward word-re bound t)
+                      (if (bobp)
+                          (point)
+                        (forward-char)
+                        (point)))))
+        (let ((lw (flyspell-get-word)))
+          (if (and (consp lw)
+                   (if ignore-case
+                       (string-equal (downcase (car lw)) (downcase word))
+                     (string-equal (car lw) word)))
+              (setq r p)
+            (goto-char p))))
       r)))
 
 ;;*---------------------------------------------------------------------*/
@@ -1030,14 +1046,28 @@ Mostly we check word delimiters."
 ;;*---------------------------------------------------------------------*/
 (defun flyspell-word-search-forward (word bound)
   (save-excursion
-    (let ((r '())
-          (inhibit-point-motion-hooks t)
-          p)
-      (while (and (not r) (setq p (search-forward word bound t)))
-        (let ((lw (flyspell-get-word)))
-          (if (and (consp lw) (string-equal (car lw) word))
-              (setq r p)
-            (goto-char (1+ p)))))
+    (let* ((r '())
+           (inhibit-point-motion-hooks t)
+           (flyspell-not-casechars (flyspell-get-not-casechars))
+           (bound (if (and bound
+                           (< bound (point-max)))
+                      (+ bound 1)))
+           (word-re (concat flyspell-not-casechars
+                            (regexp-quote word)
+                            "\\(?:" flyspell-not-casechars "\\|\\'\\)"))
+           p)
+      (while
+          (and (not r)
+               (setq p (and
+                        (re-search-forward word-re bound t)
+                        (if (eobp)
+                            (point)
+                          (backward-char)
+                          (point)))))
+        (let ((lw (flyspell-get-word)))
+          (if (and (consp lw) (string-equal (car lw) word))
+              (setq r p)
+            (goto-char (1+ p)))))
       r)))
 
 (defvar flyspell-word) ;Backward compatibility; some predicates made use of it!
diff --git a/lisp/textmodes/text-mode.el b/lisp/textmodes/text-mode.el
index 5f2f671993c..84b578b5059 100644
--- a/lisp/textmodes/text-mode.el
+++ b/lisp/textmodes/text-mode.el
@@ -45,6 +45,23 @@ Use (derived-mode-p 'text-mode) instead.")
     (modify-syntax-entry ?\\ ".   " st)
     ;; We add `p' so that M-c on 'hello' leads to 'Hello' rather than 'hello'.
     (modify-syntax-entry ?' "w p" st)
+    ;; UAX #29 says HEBREW PUNCTUATION GERESH behaves like a letter
+    ;; for the purposes of finding word boundaries.
+    (modify-syntax-entry #x5f3 "w   ") ; GERESH
+    ;; UAX #29 says HEBREW PUNCTUATION GERSHAYIM should not be a word
+    ;; boundary when surrounded by letters.  Our infrastructure for
+    ;; finding a word boundary doesn't support 3-character
+    ;; definitions, so for now simply make this a word-constituent
+    ;; character.  This leaves a problem of having GERSHAYIM at the
+    ;; beginning or end of a word, where it should be a boundary;
+    ;; FIXME.
+    (modify-syntax-entry #x5f4 "w   ") ; GERSHAYIM
+    ;; These all should not be a word boundary when between letters,
+    ;; according to UAX #29, so they again are prone to the same
+    ;; problem as GERSHAYIM; FIXME.
+    (modify-syntax-entry #xb7 "w   ")   ; MIDDLE DOT
+    (modify-syntax-entry #x2027 "w   ") ; HYPHENATION POINT
+    (modify-syntax-entry #xff1a "w   ") ; FULLWIDTH COLON
     st)
   "Syntax table used while in `text-mode'.")