comparison lisp/disp-table.el @ 3061:1e0f5fb4fcf1

* disp-table.el (standard-display-european): Doc fix. Make this autoload. Make it respond to prefix arg like a minor mode.

3060:6bb1c8f853cb

  (if (= (length glyph-table) 65536)
      (error "No free glyph codes remain"))
  (setq glyph-table (vconcat glyph-table (list string)))
  (1- (length glyph-table)))

(defun standard-display-european (arg)
  "Arrange to display European characters encoded with ISO 8859.
This means that characters in the range of 160 to 255 display not
as octal escapes, but as accented characters."
  (interactive "P")
  (if arg (standard-display-default 160 255)
    (standard-display-8bit 160 255)))
  

(provide 'disp-table)

;;; disp-table.el ends here

3061:1e0f5fb4fcf1

  (if (= (length glyph-table) 65536)
      (error "No free glyph codes remain"))
  (setq glyph-table (vconcat glyph-table (list string)))
  (1- (length glyph-table)))

;;;###autoload
(defun standard-display-european (arg)
  "Toggle display of European characters encoded with ISO 8859.
When enabled, characters in the range of 160 to 255 display not
as octal escapes, but as accented characters.
With prefix argument, enable European character display iff arg is positive."
  (interactive "P")
  (if (or (< (prefix-numeric-value arg) 0)
	  (and (null arg)
	       (vectorp standard-display-table)
	       (>= (length standard-display-table) 161)
	       (equal (aref standard-display-table 160) [160])))
      (standard-display-default 160 255)
    (standard-display-8bit 160 255)))

(provide 'disp-table)

;;; disp-table.el ends here