Mercurial > hg > xemacs-beta

comparison lisp/mule/viet-util.el @ 1196:6c18935dbbf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-01-09 13:08:53 by stephent] typos <87y95uv5hw.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 09 Jan 2003 13:09:05 +0000
parents 026c5bf9c134
children aa28d959af41
comparison
equal deleted inserted replaced
1195:dff007bd492b 1196:6c18935dbbf8
221 (defconst viqr-regexp 221 (defconst viqr-regexp
222 "[aeiouyAEIOUY]\\([(^+]?['`?~.]\\|[(^+]\\)\\|[Dd][Dd]") 222 "[aeiouyAEIOUY]\\([(^+]?['`?~.]\\|[(^+]\\)\\|[Dd][Dd]")
223 223
224 ;;;###autoload 224 ;;;###autoload
225 (defun viet-decode-viqr-region (from to) 225 (defun viet-decode-viqr-region (from to)
226 "Convert `VIQR' mnemonics of the current region to Vietnamese characaters. 226 "Convert `VIQR' mnemonics of the current region to Vietnamese characters.
227 When called from a program, expects two arguments, 227 When called from a program, expects two arguments,
228 positions (integers or markers) specifying the stretch of the region." 228 positions (integers or markers) specifying the stretch of the region."
229 (interactive "r") 229 (interactive "r")
230 (save-restriction 230 (save-restriction
231 (narrow-to-region from to) 231 (narrow-to-region from to)
238 (delete-region (match-beginning 0) (match-end 0)) 238 (delete-region (match-beginning 0) (match-end 0))
239 (insert ch))))))) 239 (insert ch)))))))
240 240
241 ;;;###autoload 241 ;;;###autoload
242 (defun viet-decode-viqr-buffer () 242 (defun viet-decode-viqr-buffer ()
243 "Convert `VIQR' mnemonics of the current buffer to Vietnamese characaters." 243 "Convert `VIQR' mnemonics of the current buffer to Vietnamese characters."
244 (interactive) 244 (interactive)
245 (viet-decode-viqr-region (point-min) (point-max))) 245 (viet-decode-viqr-region (point-min) (point-max)))
246 246
247 ;;;###autoload 247 ;;;###autoload
248 (defun viet-encode-viqr-region (from to) 248 (defun viet-encode-viqr-region (from to)
249 "Convert Vietnamese characaters of the current region to `VIQR' mnemonics. 249 "Convert Vietnamese characters of the current region to `VIQR' mnemonics.
250 When called from a program, expects two arguments, 250 When called from a program, expects two arguments,
251 positions (integers or markers) specifying the stretch of the region." 251 positions (integers or markers) specifying the stretch of the region."
252 (interactive "r") 252 (interactive "r")
253 (save-restriction 253 (save-restriction
254 (narrow-to-region from to) 254 (narrow-to-region from to)
261 (delete-char -1) 261 (delete-char -1)
262 (insert viqr))))))) 262 (insert viqr)))))))
263 263
264 ;;;###autoload 264 ;;;###autoload
265 (defun viet-encode-viqr-buffer () 265 (defun viet-encode-viqr-buffer ()
266 "Convert Vietnamese characaters of the current buffer to `VIQR' mnemonics." 266 "Convert Vietnamese characters of the current buffer to `VIQR' mnemonics."
267 (interactive) 267 (interactive)
268 (viet-encode-viqr-region (point-min) (point-max))) 268 (viet-encode-viqr-region (point-min) (point-max)))
269 269
270 ;;;###autoload 270 ;;;###autoload
271 (defun viqr-post-read-conversion (len) 271 (defun viqr-post-read-conversion (len)