From 136b74c53a66ae5607e0604246dc127718d3c5e6 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 8 Jan 2014 11:16:10 -0800 Subject: Spelling fixes. * lisp/language/china-util.el (hz-ascii-designation): Rename from hz-ascii-designnation. (hz-ascii-designation): Rename from hz-ascii-designnation. All uses changed. * lisp/cedet/semantic/decorate/include.el (semantic-decoration-mouse-3): Rename from semantic-decoratiton-mouse-3. All uses changed. * lisp/org/org-irc.el (org-irc-ellipsify-description): Rename from org-irc-elipsify-description. All uses changed. --- lisp/language/china-util.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'lisp/language') diff --git a/lisp/language/china-util.el b/lisp/language/china-util.el index d03352a86d8..1a893e136d7 100644 --- a/lisp/language/china-util.el +++ b/lisp/language/china-util.el @@ -52,16 +52,16 @@ ;; ISO-2022 escape sequence to designate GB2312. (defvar iso2022-gb-designation "\e$A") ;; HZ escape sequence to designate GB2312. -(defvar hz-gb-designnation "~{") +(defvar hz-gb-designation "~{") ;; ISO-2022 escape sequence to designate ASCII. (defvar iso2022-ascii-designation "\e(B") ;; HZ escape sequence to designate ASCII. -(defvar hz-ascii-designnation "~}") +(defvar hz-ascii-designation "~}") ;; Regexp of ZW sequence to start GB2312. (defvar zw-start-gb "^zW") ;; Regexp for start of GB2312 in an encoding mixture of HZ and ZW. (defvar hz/zw-start-gb - (concat hz-gb-designnation "\\|" zw-start-gb "\\|[^\0-\177]")) + (concat hz-gb-designation "\\|" zw-start-gb "\\|[^\0-\177]")) (defvar decode-hz-line-continuation nil "Flag to tell if we should care line continuation convention of Hz.") @@ -117,7 +117,7 @@ Return the length of resulting text." (progn (translate-region (point) end hz-set-msb-table) (goto-char end)) - (if (search-forward hz-ascii-designnation + (if (search-forward hz-ascii-designation (if decode-hz-line-continuation nil end) t) (delete-char -2)) @@ -155,11 +155,11 @@ Return the length of resulting text." (goto-char pos) (while (search-forward iso2022-gb-designation nil t) (delete-char -3) - (insert hz-gb-designnation)) + (insert hz-gb-designation)) (goto-char pos) (while (search-forward iso2022-ascii-designation nil t) (delete-char -3) - (insert hz-ascii-designnation)))) + (insert hz-ascii-designation)))) (- (point-max) (point-min))))) ;;;###autoload -- cgit v1.2.3