diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2014-01-08 11:16:10 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2014-01-08 11:16:10 -0800 |
| commit | 136b74c53a66ae5607e0604246dc127718d3c5e6 (patch) | |
| tree | ce2e77dfa265dabe346dcdb38a8e3adc12b599aa /lisp/language | |
| parent | a129f1df5ddf94299dae724856b73e5d0b2c9095 (diff) | |
| download | emacs-136b74c53a66ae5607e0604246dc127718d3c5e6.tar.gz emacs-136b74c53a66ae5607e0604246dc127718d3c5e6.tar.bz2 emacs-136b74c53a66ae5607e0604246dc127718d3c5e6.zip | |
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.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/china-util.el | 12 |
1 files changed, 6 insertions, 6 deletions
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 |