diff options
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/mule-diag.el | 4 | ||||
| -rw-r--r-- | lisp/international/ogonek.el | 26 |
2 files changed, 15 insertions, 15 deletions
diff --git a/lisp/international/mule-diag.el b/lisp/international/mule-diag.el index 57b6d62e4aa..028c9916faf 100644 --- a/lisp/international/mule-diag.el +++ b/lisp/international/mule-diag.el @@ -770,7 +770,7 @@ but still contains full information about each coding system." # MNEMONIC-LETTER -- CODING-SYSTEM-NAME # DOC-STRING ") - (princ "\ + (princ (substitute-command-keys "\ ######################### ## LIST OF CODING SYSTEMS ## Each line corresponds to one coding system @@ -794,7 +794,7 @@ but still contains full information about each coding system." ## 0 ## POST-READ-CONVERSION, PRE-WRITE-CONVERSION = function name to be called ## -")) +"))) (dolist (coding-system (sort-coding-systems (coding-system-list 'base-only))) (if (null arg) (print-coding-system-briefly coding-system 'tightly) diff --git a/lisp/international/ogonek.el b/lisp/international/ogonek.el index 7caa5d4b30c..01cbe1e5222 100644 --- a/lisp/international/ogonek.el +++ b/lisp/international/ogonek.el @@ -133,10 +133,10 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco. `~/.emacs' za/z/ada/c wczytania wybranych funkcji, na dodatek dopiero w chwili ich rzeczywistego u/zycia: - (autoload 'ogonek-jak \"ogonek\") - (autoload 'ogonek-recode-region \"ogonek\") - (autoload 'ogonek-prefixify-region \"ogonek\") - (autoload 'ogonek-deprefixify-region \"ogonek\") + (autoload \\='ogonek-jak \"ogonek\") + (autoload \\='ogonek-recode-region \"ogonek\") + (autoload \\='ogonek-prefixify-region \"ogonek\") + (autoload \\='ogonek-deprefixify-region \"ogonek\") Cz/esto wyst/epuj/ace kombinacje wywo/la/n funkcji mo/zna dla wygody skr/oci/c i przypisa/c klawiszom. Oto praktyczne przyk/lady: @@ -144,17 +144,17 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco. (defun deprefixify-iso8859-2-region (start end) (interactive \"*r\") (ogonek-deprefixify-region start end ?/ \"iso8859-2\")) - (global-set-key \"\\C-cd\" 'deprefixify-iso8859-2-region) ; ctrl-c d + (global-set-key \"\\C-cd\" \\='deprefixify-iso8859-2-region) ; ctrl-c d (defun mazovia-to-iso8859-2 (start end) (interactive \"*r\") (ogonek-recode-region start end \"mazovia\" \"iso8859-2\")) - (global-set-key \"\\C-cr\" 'mazovia-to-iso8859-2) ; ctrl-c r + (global-set-key \"\\C-cr\" \\='mazovia-to-iso8859-2) ; ctrl-c r (defun prefixify-iso8859-2-region (start end) (interactive \"*r\") (ogonek-prefixify-region start end \"iso8859-2\" ?/)) - (global-set-key \"\\C-cp\" 'prefixify-iso8859-2-region) ; ctrl-c p + (global-set-key \"\\C-cp\" \\='prefixify-iso8859-2-region) ; ctrl-c p Ka/zd/a operacj/e przekodowania mo/zna w ca/lo/sci odwo/la/c przez wykonanie polecenia `undo'.") @@ -163,7 +163,7 @@ znak/ow diakrytycznych. Funkcje te mo/zna pogrupowa/c nast/epuj/aco. "Display `ogonek-informacja' in an auxiliary *ogonek-jak* buffer." (interactive) (set-buffer (get-buffer-create " *ogonek-jak*")) - (insert ogonek-informacja) + (insert (substitute-command-keys ogonek-informacja)) (switch-to-buffer " *ogonek-jak*") (goto-char (point-min))) @@ -233,10 +233,10 @@ The functions come in the following groups. to autoload the needed functions, for example by adding the following lines to your init file: - (autoload 'ogonek-how \"ogonek\") - (autoload 'ogonek-recode-region \"ogonek\") - (autoload 'ogonek-prefixify-region \"ogonek\") - (autoload 'ogonek-deprefixify-region \"ogonek\") + (autoload \\='ogonek-how \"ogonek\") + (autoload \\='ogonek-recode-region \"ogonek\") + (autoload \\='ogonek-prefixify-region \"ogonek\") + (autoload \\='ogonek-deprefixify-region \"ogonek\") The most frequent function calls can be abbreviated and assigned to keyboard keys. Here are a few practical examples: @@ -262,7 +262,7 @@ The functions come in the following groups. "Display `ogonek-information' in an auxiliary *recode-how* buffer." (interactive "*") (set-buffer (get-buffer-create " *ogonek-how*")) - (insert ogonek-information) + (insert (substitute-command-keys ogonek-information)) (switch-to-buffer " *ogonek-how*") (goto-char (point-min))) |