view lisp/term/linux.el @ 67450:fa74deeadab8

Require url when compiling. Call mac-process-deferred-apple-events after loading init files. (mac-apple-event-map): New defvar. Define event handlers in it. (core-event, internet-event): New Apple event class symbols. (open-application, reopen-application, open-documents) (print-documents, open-contents, quit-application) (application-died, show-preferences, autosave-now, get-url): New Apple event ID symbols. (about): New HICommand ID symbol. (mac-event-spec, mac-event-ae): New macros. (mac-ae-parameter, mac-ae-list, mac-bytes-to-integer) (mac-ae-selection-range, mac-ae-text-for-search) (mac-ae-open-documents, mac-ae-text, mac-ae-get-url): New functions. (mac-application-menu-map): Remove keymap. Handlers for HICommand and Services menu events are now defined in mac-apple-event-map. (mac-drag-n-drop): Remove selection range handling.

;; -*- no-byte-compile: t -*-
;; The Linux console handles Latin-1 by default.

(defun terminal-init-linux ()
  "Terminal initialization function for linux."  
  (unless (terminal-coding-system)
    (set-terminal-coding-system 'iso-latin-1))

  ;; It can't really display underlines.
  (tty-no-underline)

  ;; Make Latin-1 input characters work, too.
  ;; Meta will continue to work, because the kernel
  ;; turns that into Escape.

  (let ((value (current-input-mode)))
    ;; The third arg only matters in that it is not t or nil.
    (set-input-mode (nth 0 value) (nth 1 value) 'iso-latin-1 (nth 3 value))))

;;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f
;;; linux.el ends here