[Emacs-diffs] /srv/bzr/emacs/trunk r109417: Fix whitespace-display-mappings.

[Eli Zaretskii]

------------------------------------------------------------
revno: 109417
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Fri 2012-08-03 14:51:11 +0300
message:
  Fix whitespace-display-mappings.
  
   lisp/whitespace.el (whitespace-display-mappings): Use Unicode
   codepoints, instead of emacs-mule codepoints.  See
   http://lists.gnu.org/archive/html/help-gnu-emacs/2012-07/msg00366.html
   for the details.
modified:
  lisp/ChangeLog
  lisp/whitespace.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-08-03 10:23:30 +0000
+++ b/lisp/ChangeLog    2012-08-03 11:51:11 +0000
@@ -1,5 +1,10 @@
 2012-08-03  Eli Zaretskii  <address@hidden>
 
+       * whitespace.el (whitespace-display-mappings): Use Unicode
+       codepoints, instead of emacs-mule codepoints.  See
+       http://lists.gnu.org/archive/html/help-gnu-emacs/2012-07/msg00366.html
+       for the details.
+
        * files.el (file-truename): Don't skip symlink-chasing part on
        windows-nt.  Incorporate the resolution of 8+3 short aliases on
        Windows into the loop that recursively chases symlinks.  Compare

=== modified file 'lisp/whitespace.el'
--- a/lisp/whitespace.el        2012-07-25 05:48:19 +0000
+++ b/lisp/whitespace.el        2012-08-03 11:51:11 +0000
@@ -927,17 +927,13 @@
   '(
     (space-mark   ?\     [?\u00B7]     [?.])           ; space - centered dot
     (space-mark   ?\xA0  [?\u00A4]     [?_])           ; hard space - currency
-    (space-mark   ?\x8A0 [?\x8A4]      [?_])           ; hard space - currency
-    (space-mark   ?\x920 [?\x924]      [?_])           ; hard space - currency
-    (space-mark   ?\xE20 [?\xE24]      [?_])           ; hard space - currency
-    (space-mark   ?\xF20 [?\xF24]      [?_])           ; hard space - currency
     ;; NEWLINE is displayed using the face `whitespace-newline'
     (newline-mark ?\n    [?$ ?\n])                     ; eol - dollar sign
     ;; (newline-mark ?\n    [?\u21B5 ?\n] [?$ ?\n])    ; eol - downwards arrow
     ;; (newline-mark ?\n    [?\u00B6 ?\n] [?$ ?\n])    ; eol - pilcrow
-    ;; (newline-mark ?\n    [?\x8AF ?\n]  [?$ ?\n])    ; eol - overscore
-    ;; (newline-mark ?\n    [?\x8AC ?\n]  [?$ ?\n])    ; eol - negation
-    ;; (newline-mark ?\n    [?\x8B0 ?\n]  [?$ ?\n])    ; eol - grade
+    ;; (newline-mark ?\n    [?\u00AF ?\n]  [?$ ?\n])   ; eol - overscore
+    ;; (newline-mark ?\n    [?\u00AC ?\n]  [?$ ?\n])   ; eol - negation
+    ;; (newline-mark ?\n    [?\u00B0 ?\n]  [?$ ?\n])   ; eol - degrees
     ;;
     ;; WARNING: the mapping below has a problem.
     ;; When a TAB occupies exactly one column, it will display the