File suse-start-po-mode.el of Package gettext-runtime
xxxxxxxxxx
1
;; /usr/share/emacs/site-lisp/suse-start-po-mode.el
2
3
(autoload 'po-mode "po-mode"
4
"Major mode for translators when they edit PO files.
5
6
Special commands:
7
\\{po-mode-map}
8
Turning on PO mode calls the value of the variable 'po-mode-hook',
9
if that value is non-nil. Behaviour may be adjusted through some variables,
10
all reachable through 'M-x customize', in group 'Emacs.Editing.I18n.Po'." t)
11
(setq auto-mode-alist (cons '("\\.po[tx]?\\'" . po-mode)
12
auto-mode-alist))
13
14
;; To automatically use proper fonts under Emacs 20, also add:
15
16
(unless (fboundp 'po-find-file-coding-system)
17
(autoload 'po-find-file-coding-system "po-compat" "\
18
Return a Mule (DECODING . ENCODING) pair, according to PO file charset.
19
Called through file-coding-system-alist, before the file is visited for real."))
20
(modify-coding-system-alist 'file "\\.po[tx]?\\'"
21
'po-find-file-coding-system)
22
23
;; /usr/share/emacs/site-lisp/suse-start-po-mode.el ends here
24