diff options
| author | Juri Linkov | 2011-10-20 01:35:48 +0300 |
|---|---|---|
| committer | Juri Linkov | 2011-10-20 01:35:48 +0300 |
| commit | aa42ab43f2e3ea06adb21f82abb3d4c502bc9d40 (patch) | |
| tree | 50f6ff7aea7c02b06648bc2dc16ae895a3afd967 | |
| parent | 89400f1da21c47f39b3dd96f48382c31aa6dde86 (diff) | |
| download | emacs-aa42ab43f2e3ea06adb21f82abb3d4c502bc9d40.tar.gz emacs-aa42ab43f2e3ea06adb21f82abb3d4c502bc9d40.zip | |
* lisp/descr-text.el (describe-char): Add #x2010 and #x2011 to
the list of hard-coded chars with escape-glyph face.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/descr-text.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5a16793633e..149e8be4133 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2011-10-19 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * descr-text.el (describe-char): Add #x2010 and #x2011 to | ||
| 4 | the list of hard-coded chars with escape-glyph face. | ||
| 5 | |||
| 1 | 2011-10-19 Stefan Monnier <monnier@iro.umontreal.ca> | 6 | 2011-10-19 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 7 | ||
| 3 | * vc/log-edit.el (log-edit-empty-buffer-p): Ignore empty headers. | 8 | * vc/log-edit.el (log-edit-empty-buffer-p): Ignore empty headers. |
diff --git a/lisp/descr-text.el b/lisp/descr-text.el index 7d267cec480..c175bd7c3c7 100644 --- a/lisp/descr-text.el +++ b/lisp/descr-text.el | |||
| @@ -606,7 +606,8 @@ as well as widgets, buttons, overlays, and text properties." | |||
| 606 | 'trailing-whitespace) | 606 | 'trailing-whitespace) |
| 607 | ((and nobreak-char-display char (eq char '#xa0)) | 607 | ((and nobreak-char-display char (eq char '#xa0)) |
| 608 | 'nobreak-space) | 608 | 'nobreak-space) |
| 609 | ((and nobreak-char-display char (eq char '#xad)) | 609 | ((and nobreak-char-display char |
| 610 | (memq char '(#xad #x2010 #x2011))) | ||
| 610 | 'escape-glyph) | 611 | 'escape-glyph) |
| 611 | ((and (< char 32) (not (memq char '(9 10)))) | 612 | ((and (< char 32) (not (memq char '(9 10)))) |
| 612 | 'escape-glyph))))) | 613 | 'escape-glyph))))) |