Mercurial > emacs
comparison lisp/language/ethio-util.el @ 67646:585a898592ba
* language/ethio-util.el (ethio-fidel-to-sera-mail-or-marker):
* textmodes/picture.el (picture-mode): Update docstrings.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 18 Dec 2005 01:17:27 +0000 |
| parents | fa5b2493902e |
| children | 73d101c336ae |
comparison
equal
deleted
inserted
replaced
| 67645:3efc515483db | 67646:585a898592ba |
|---|---|
| 822 ;; 10000 | 822 ;; 10000 |
| 823 (insert-char ?$(3%%(B (/ z 4))))) | 823 (insert-char ?$(3%%(B (/ z 4))))) |
| 824 | 824 |
| 825 ;;;###autoload | 825 ;;;###autoload |
| 826 (defun ethio-sera-to-fidel-mail-or-marker (&optional arg) | 826 (defun ethio-sera-to-fidel-mail-or-marker (&optional arg) |
| 827 "Execute ethio-sera-to-fidel-mail or ethio-sera-to-fidel-marker depending on the current major mode. | 827 "Execute `ethio-sera-to-fidel-mail' or `ethio-sera-to-fidel-marker' depending on the current major mode. |
| 828 If in rmail-mode or in mail-mode, execute the former; otherwise latter." | 828 If in rmail-mode or in mail-mode, execute the former; otherwise latter." |
| 829 | 829 |
| 830 (interactive "P") | 830 (interactive "P") |
| 831 (if (or (eq major-mode 'rmail-mode) | 831 (if (or (eq major-mode 'rmail-mode) |
| 832 (eq major-mode 'mail-mode)) | 832 (eq major-mode 'mail-mode)) |
| 1212 ;; `q `k X `g mW bW GW fW pW wW | 1212 ;; `q `k X `g mW bW GW fW pW wW |
| 1213 (memq ethiocode '(389 405 421 437 440 441 442 443 444 457)))) | 1213 (memq ethiocode '(389 405 421 437 440 441 442 443 444 457)))) |
| 1214 | 1214 |
| 1215 ;;;###autoload | 1215 ;;;###autoload |
| 1216 (defun ethio-fidel-to-sera-mail-or-marker (&optional arg) | 1216 (defun ethio-fidel-to-sera-mail-or-marker (&optional arg) |
| 1217 "Execute ethio-fidel-to-sera-mail or ethio-fidel-to-sera-marker depending on the current major mode. | 1217 "Execute `ethio-fidel-to-sera-mail' or `ethio-fidel-to-sera-marker' depending on the current major mode. |
| 1218 If in rmail-mode or in mail-mode, execute the former; otherwise latter." | 1218 If in rmail-mode or in mail-mode, execute the former; otherwise latter." |
| 1219 | 1219 |
| 1220 (interactive "P") | 1220 (interactive "P") |
| 1221 (if (or (eq major-mode 'rmail-mode) | 1221 (if (or (eq major-mode 'rmail-mode) |
| 1222 (eq major-mode 'mail-mode)) | 1222 (eq major-mode 'mail-mode)) |