Path: utzoo!utgpu!watmath!att!tut.cis.ohio-state.edu!mailrus!csd4.milw.wisc.edu!cs.utexas.edu!uunet!yale!Duchier-Denys
From: Duchier-Denys@cs.yale.edu (Denys Duchier)
Newsgroups: comp.emacs
Subject: Re: Anybody hacked up texinfo with Umlauten ?
Message-ID: <69028@yale-celray.yale.UUCP>
Date: 8 Aug 89 18:14:58 GMT
References: <557@cadlab.cadlab.de>
Sender: root@yale.UUCP
Reply-To: Duchier-Denys@cs.yale.edu (Denys Duchier)
Organization: Computer Science, Yale University, New Haven, CT 06520-2158
Lines: 39
In-reply-to: schmidt@cadlab.cadlab.de (Michael Schmidt)

In article <557@cadlab.cadlab.de>, schmidt@cadlab (Michael Schmidt) writes:
> We would like to use GNU Emacs' texinfo system as an internal
> documentation carrier. But, most of the time we are speaking
> german to each other. And so should our documentation. Is there
> any possibility (despite of @iftex and @ifinfo, that is not
> acceptable) to get e.g. an Umlaut a in the printed manual and a
> "ae" in the info file or an \ss{} in the printed manual and a
> "ss" in the info file?
> -- 
>     Michael Schmidt, CADLAB / FB 17, Uni-GH Paderborn, Bahnhofstr. 32,
>                      D-4790 Paderborn, West Germany
> Mail:   schmidt@cadlab.UUCP         or          schmidt@cadlab.de

(defun texinfo-format-umlaut ()
  (texinfo-discard-command)
  (goto-char texinfo-command-start)
  (skip-chars-forward " \t\n")
  (delete-region texinfo-command-start (point))
  (cond ((not (eobp))
	 (let ((char (char-after (point))))
	   (cond ((memq char '(?a ?o ?u))
		  (forward-char 1)
		  (insert ?e)))))))

(put '\" 'texinfo-format 'texinfo-format-umlaut)

(defun texinfo-format-esset ()
  (texinfo-discard-command)
  (goto-char texinfo-command-start)
  (insert "ss")
  (if (looking-at "{}")
      (delete-char 2)
    (let ((start (point)))
      (skip-chars-forward " \t\n")
      (delete-region start (point)))))

(put 'ss 'texinfo-format 'texinfo-format-esset)

--Denys