* lisp/international/characters.el (standard-case-table): Set syntax of ?»

and ?« to punctuation.

2 files changed, 12 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f3cf82e7e0..5d44b897b51 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-06-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * international/characters.el (standard-case-table): Set syntax of ?»
+        and ?« to punctuation.
+
 2013-06-16  Juanma Barranquero  <lekktu@gmail.com>
 
         * progmodes/prog-mode.el (prog--prettify-font-lock-compose-symbol):
diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index d973ccf2d7e..9f56b1c8b7d 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -512,7 +512,13 @@ with L, LRE, or LRO Unicode bidi character type.")
   (set-case-syntax ?¦ "_" tbl)
   (set-case-syntax ?§ "." tbl)
   (set-case-syntax ?© "_" tbl)
-  (set-case-syntax-delims 171 187 tbl)  ; « »
+  ;; French wants
+  ;;   (set-case-syntax-delims ?« ?» tbl)
+  ;; And German wants
+  ;;   (set-case-syntax-delims ?» ?« tbl)
+  ;; So let's stay neutral and let users set these up if/when they want to.
+  (set-case-syntax ?« "." tbl)
+  (set-case-syntax ?» "." tbl)
   (set-case-syntax ?¬ "_" tbl)
   (set-case-syntax ?­ "_" tbl)
   (set-case-syntax ?® "_" tbl)