From 18443e23b4f5c5b61980d268f4adc70e1f465d48 Mon Sep 17 00:00:00 2001 From: Tadashi MATSUO Date: Mon, 29 Mar 2010 00:38:37 +0900 Subject: [PATCH] Add comments for regexps related to full width characters. --- twittering-mode.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/twittering-mode.el b/twittering-mode.el index de7e43aa..f535c19b 100644 --- a/twittering-mode.el +++ b/twittering-mode.el @@ -690,10 +690,14 @@ as a list of a string on Emacs21." clauses))) (defvar twittering-regexp-hash - (concat "\\(?:#\\|" (char-to-string (twittering-ucs-to-char 65283)) "\\)")) + (let ((full-width-number-sign (twittering-ucs-to-char #xff03))) + ;; Unicode Character 'FULLWIDTH NUMBER SIGN' (U+FF03) + (concat "\\(?:#\\|" (char-to-string full-width-number-sign) "\\)"))) (defvar twittering-regexp-atmark - (concat "\\(?:@\\|" (char-to-string (twittering-ucs-to-char 65312)) "\\)")) + (let ((full-width-commercial-at (twittering-ucs-to-char #xff20))) + ;; Unicode Character 'FULLWIDTH COMMERCIAL AT' (U+FF20) + (concat "\\(?:@\\|" (char-to-string full-width-commercial-at) "\\)"))) ;;; ;;; Timeline spec functions