Re: Bug#141446: gettext-el: emacs has error loading 50gettext.el (fwd)

[Daniel Quinlan]

> I plan to use this startup file unless there is a good reason not
> to, but I'm not an emacs expert, is this safe enough to be used by
> both emacsen?

Since Debian also uses /etc/emacs for XEmacs, you probably should worry
about XEmacs too.  It will fail on XEmacs unless XEmacs has it has a
compatible modify-coding-system-alist function.

Assuming it doesn't, this should work:

------- start of cut text --------------
(setq auto-mode-alist
      (cons '("\\.po[tx]?\\'\\|\\.po\\." . po-mode) auto-mode-alist))
(autoload 'po-mode "gettext/po-mode"
  "Major mode for translators to edit PO files" t)
(autoload 'po-find-file-coding-system "gettext/po-mode")
(if (and (boundp 'emacs-version)
         (not (string-lessp emacs-version "20"))
         (not (string-match "XEmacs" emacs-version)))
    (modify-coding-system-alist 'file "\\.po[tx]?\\'\\|\\.po\\."
                                'po-find-file-coding-system))
------- end ----------------------------

Dan