(defun insert-ethio-space nil "Inserts the colon-like Ethiopic space." (interactive) (insert "$(2$O(B")) (define-key global-map [?\C-^] 'insert-ethio-space)[The above contains escape characters that may not be visible in your web browser but should appear if read in vi editor or Mule, click here for the above in uuencoded form.]
This maps the ":" character onto the key C-^ which is generally not used. It is then necessary to make a second mapping for Shift-space to serve as C-^ . You may do so by adding the following line to your .xinitrc or .xsession file:
xmodmap -e 'keysym space = space 30'
which you may also perform at the command line. Since the xmodmap affects ALL x-client programs, these commands will likely not be added to the default Mule configuration.
(defun any2ps-buffer nil "Call any2ps via shell-command-on-region." (interactive) (shell-command-on-region (point-min) (point-max) "any2ps | lpr")) (substitute-key-definition 'print-buffer 'any2ps-buffer menu-bar-file-menu)These lines will automatically perform the line commands given above. The directory with `any2ps' must be in your session PATH. If not you may add the path in the "shell" line above, also the `any2ps' script will require the same edits for `coco' and `m2ps' which it calls.