diff options
| author | Michal Nazarewicz | 2014-10-27 17:14:38 +0100 |
|---|---|---|
| committer | Michal Nazarewicz | 2015-01-20 14:38:38 +0100 |
| commit | 11e161f54de5009c4ccba3a3d7bcc86850d5b2b2 (patch) | |
| tree | 63d9d9218c0e0f8a8773fede82c45afd08461fad | |
| parent | 6ffb560b2a940d19419ac5afe11418588ef8c61f (diff) | |
| download | emacs-11e161f54de5009c4ccba3a3d7bcc86850d5b2b2.tar.gz emacs-11e161f54de5009c4ccba3a3d7bcc86850d5b2b2.zip | |
paragraphs: recognise more Unicode characters as end of sentence
* lisp/textmodes/paragraphs.el (sentence-end-base): Include an
ellipsis (…) and interrobang (‽) characters as end of a sentence,
and a closing single quote (’) as an end of a quote.
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/textmodes/paragraphs.el | 2 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 35b08b0f1de..d3bfafdf721 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,5 +1,11 @@ | |||
| 1 | 2015-01-20 Michal Nazarewicz <mina86@mina86.com> | 1 | 2015-01-20 Michal Nazarewicz <mina86@mina86.com> |
| 2 | 2 | ||
| 3 | * textmodes/paragraphs.el (sentence-end-base): Include an | ||
| 4 | ellipsis (…) and interrobang (‽) characters as end of a sentence, | ||
| 5 | and a closing single quote (’) as an end of a quote. | ||
| 6 | |||
| 7 | 2015-01-20 Michal Nazarewicz <mina86@mina86.com> | ||
| 8 | |||
| 3 | * textmodes/tildify.el (tildify-double-space-undos): A new | 9 | * textmodes/tildify.el (tildify-double-space-undos): A new |
| 4 | variable specifying whether pressing space in `tildify-mode' after | 10 | variable specifying whether pressing space in `tildify-mode' after |
| 5 | a space has been replaced with hard space undos the substitution. | 11 | a space has been replaced with hard space undos the substitution. |
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el index b18a93cd3e6..09451a6b197 100644 --- a/lisp/textmodes/paragraphs.el +++ b/lisp/textmodes/paragraphs.el | |||
| @@ -168,7 +168,7 @@ to obtain the value of this variable." | |||
| 168 | :type '(choice regexp (const :tag "Use default value" nil))) | 168 | :type '(choice regexp (const :tag "Use default value" nil))) |
| 169 | (put 'sentence-end 'safe-local-variable 'string-or-null-p) | 169 | (put 'sentence-end 'safe-local-variable 'string-or-null-p) |
| 170 | 170 | ||
| 171 | (defcustom sentence-end-base "[.?!][]\"'”)}]*" | 171 | (defcustom sentence-end-base "[.?!…‽][]\"'”’)}]*" |
| 172 | "Regexp matching the basic end of a sentence, not including following space." | 172 | "Regexp matching the basic end of a sentence, not including following space." |
| 173 | :group 'paragraphs | 173 | :group 'paragraphs |
| 174 | :type 'string | 174 | :type 'string |