/usr/share/t-code/skk-startup.el is in t-code-common 2:2.3.1-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 | ;;; skk-startup.el --- startup routine of skkinput3 for tc2
;;; $Id: skk-startup.el,v 1.4 2003/03/21 09:20:24 kitajima Exp $
;;; skkinput3.0.4¤Îskk-startup.el¤òÊѹ¹¡£
(use-local-map im-local-map)
(setq lc-jp 14)
(defun tcode-mode (&optional arg)
"T-Code mode.
Type \\[tcode-mode-help] for more detail."
(interactive "P")
(tcode-activate (or arg
(if tcode-mode -1 1)))
(tcode-mode-line-redisplay))
(defun im-tab ()
(interactive)
(let ((str (buffer-string)))
(if (> (length str) 0)
(im-send-text im-client str)
(im-send-key im-client last-command-event))
(erase-buffer)))
(define-key im-local-map "\C-\\" 'tcode-mode)
(define-key minibuffer-local-map "\C-\\" 'tcode-mode)
(define-key im-local-map "\t" 'im-tab)
(defun im-send-text-command ()
(interactive)
(im-auto-send-text))
(load "tc-mazegaki")
(load "tc-bushu")
(load "tc-util")
(setq mode-line-format '(current-input-method-title))
(activate-input-method default-input-method)
(tcode-set-key "!" nil)
(tcode-set-key "|" nil)
;(add-hook 'post-command-hook 'im-auto-send-text t t)
;;; wrapper
(defun japanese-katakana (char)
"ʸ»ú CHAR ¤¬¤Ò¤é¤¬¤Ê¤Ê¤é¥«¥¿¥«¥Ê¤ËÊÑ´¹¤¹¤ë¡£
¤Ò¤é¤¬¤Ê¤Ç¤Ê¤¤¾ì¹ç¤Ï¤½¤Î¤Þ¤Þ¤ÎÃͤòÊÖ¤¹¡£"
(let ((str (char-to-string char)))
(if (string-match (concat "^[¤¡-¤ó]$") str)
(+ 256 char)
char)))
(defun tcode-display-help-buffer (buffer &optional display-only append)
;; dummy (disable this function)
)
(defun tcode-draw-current-table (table)
;; dummy (disable this function)
)
|