This file is indexed.

/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)
  )