This file is indexed.

/usr/share/t-code/tc-skki.el is in t-code-common 2:2.3.1-3.5.

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
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
;;; tc-skki.el  --- setup for tc2 on skkinput3

;; Copyright (C) 2002 KITAJIMA Akira.

;; Author: KITAJIMA Akira <kitajima@isc.osakac.ac.jp>
;; Created: 20 Sept. 2002
;; Version: $Id: tc-skki.el,v 1.2 2002/12/23 05:41:03 kitajima Exp $

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2 of the License, or
;; (at your option) any later version.

;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with this program; if not, write to the Free Software
;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA.

;;; Commentary:

;;; This file is a wrapper of tc-pre.el, tc-sysdep.el,
;;; and tc-setup.el for skkinput3.

;;; Code:

;;;
;;; supplement code for skkinput3
;;;

;;; new variable

(defvar tcode-im-end-conversion-hook nil)

;;; setup some variables that are not used in skkinput3.
(setq emacs-version "19.28.1"
      emacs-major-version 19
      kill-emacs-hook nil
      self-insert-after-hook nil
      minibuffer-exit-hook nil
      current-prefix-arg nil
      fill-prefix nil)

;;; setup some variables to disable specific features in tc2.
(setq tcode-mazegaki-stroke-priority-list '(23 22 21 20 26 27 28 29)
      tcode-mazegaki-face nil
      tcode-mazegaki-selected-candidate-register nil
      input-method-verbose-flag nil
      tcode-verbose-message nil
      tcode-display-help-delay 0
      tcode-stroke-table-size 0
      tcode-auto-help nil
      tcode-init-file-name (expand-file-name "~/.tc-skk"))

;;; define functions that are not defined on skkinput3.

(defvar features nil
  "A list of symbols which are the features of the executing emacs.
Used by `featurep' and `require', and altered by `provide'.")

(defun require (feature &optional filename noerror)
  "If feature FEATURE is not loaded, load it from FILENAME.
If FEATURE is not a member of the list `features', then the feature
is not loaded; so load the file FILENAME.
If FILENAME is omitted, the printname of FEATURE is used as the file name,
and `load' will try to load this name appended with the suffix `.elc',
`.el' or the unmodified name, in that order.
If the optional third argument NOERROR is non-nil,
then return nil if the file is not found instead of signaling an error.
Normally the return value is FEATURE.
The normal messages at start and end of loading FILENAME are suppressed."
  (if (memq feature features)
      features
    (and (load (or filename 
		   (symbol-name feature))
	       noerror)
	 feature)))

(defun bolp ()
  "Return t if point is at the beginning of a line."
  (save-excursion
    (let ((p (point)))
      (beginning-of-line)
      (= p (point)))))

(or (fboundp 'ash)
    (defun ash (value count)
      (if (>= count 0)
	  (while (> count 0)
	    (setq value (+ value value)
		  count (1- count)))
	(setq count (- count))
	(while (> count 0)
	  (setq value (/ value 2)
		count (1- count))))
      value))

(or (fboundp 'sort)
    (defun sort (list predicate)
      (if (< (length list) 2)
	  list
	(let ((g (list (car list)))
	      l
	      (m (car list)))
	  (setq list (cdr list))
	  (while list
	    (if (funcall predicate (car list) m)
		(setq l (cons (car list) l))
	      (setq g (cons (car list) g)))
	    (setq list (cdr list)))
	  (nconc (sort l predicate) (sort g predicate))))))

(or (fboundp 'make-list)
    (defun make-list (length init)
      (let (l)
	(while (> length 0)
	  (setq l (cons init l)
		length (1- length)))
	l)))

;;; functions below are not yet implemented correctly.

(or (fboundp 'file-newer-than-file-p)
    (defun file-newer-than-file-p (file1 file2)
      nil))

(or (fboundp 'substitute-command-keys)
    (defun substitute-command-keys (string)
      string))

;; (or (fboundp 'buffer-name)
;;     (defun buffer-name (&optional buffer)
;;       buffer-name))

(or (fboundp 'reverse)
    (defun reverse (list)
      (nreverse list)))

(or (fboundp 'make-vector)
    (defun make-vector (num val)
      (let (list)
	(while (> num 0)
	  (setq list (cons val list)
		num (1- num)))
	(vconcat list))))

(or (fboundp 'char-or-string-p)
    (defun char-or-string-p (obj)
      (or (integerp obj)
 	  (stringp obj))))

(or (fboundp 'window-minibuffer-p)
    (defun window-minibuffer-p (window)
      nil))

(or (fboundp 'autoload)
    (defun autoload (function file &optional docstring interactive type)
      "Define FUNCTION to autoload from FILE.
FUNCTION is a symbol; FILE is a file name string to pass to `load'.
Third arg DOCSTRING is documentation for the function.
Fourth arg INTERACTIVE if non-nil says function can be called interactively.
Fifth arg TYPE indicates the type of the object:
   nil or omitted says FUNCTION is a function,
   `keymap' says FUNCTION is really a keymap, and
   `macro' or t says FUNCTION is really a macro.
Third through fifth args give info about the real definition.
They default to nil.
If FUNCTION is already defined other than as an autoload,
this does nothing and returns nil."
      (or (fboundp function)
	  ;; define autoload function
	  )))

(or (fboundp 'char-syntax)
    (defun char-syntax (character)
      (if (memq character '(? ?\n ?\t ?\f ?\r))
	  ? 
	?w)))

(or (fboundp 'make-backup-file-name)
    (defun make-backup-file-name (file)
      (concat file "~")))

(or (fboundp 'all-completions)
    (defun all-completions (string alist &optional predicate hide-spaces)
      (let (list)
	(while alist
	  (if (string= (substring (car (car alist)) 0 (length string))
		       string)
	      (setq list (cons (car (car alist)) list)))
	  (setq alist (cdr alist)))
	(nreverse list))))

(or (fboundp 'screen-width)
    (defun screen-width ()
      (window-width)))

;;;
;;; loading tc-sysdep.el
;;;
(setq tcode-emacs-version 'skkinput3)
(load "tc-sysdep")

;;;
;;; loading tc-setup.el
;;;
(setq tcode-emacs-version 'nemacs)
(load "tc-setup")

;;; tc-skki.el ends here