[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/leim/quail/uni-input.el [emacs-unicode-2]
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] Changes to emacs/leim/quail/uni-input.el [emacs-unicode-2] |
Date: |
Mon, 08 Sep 2003 08:45:54 -0400 |
Index: emacs/leim/quail/uni-input.el
diff -c /dev/null emacs/leim/quail/uni-input.el:1.4.6.1
*** /dev/null Mon Sep 8 08:45:54 2003
--- emacs/leim/quail/uni-input.el Mon Sep 8 08:45:39 2003
***************
*** 0 ****
--- 1,132 ----
+ ;;; uni-input.el --- Hex Unicode input method
+
+ ;; Copyright (C) 2001, 2002 Free Software Foundation, Inc.
+
+ ;; Author: Dave Love <address@hidden>
+ ;; Keywords: i18n
+
+ ;; This file is part of GNU Emacs.
+
+ ;; This file 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, or (at your option)
+ ;; any later version.
+
+ ;; This file 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 GNU Emacs; see the file COPYING. If not, write to
+ ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+
+ ;;; Commentary:
+
+ ;; Provides an input method for entering characters by hex unicode in
+ ;; the form `uxxxx', similarly to the Yudit editor.
+
+ ;; This is not really a Quail method, but uses some Quail functions.
+ ;; There is probably A Better Way.
+
+ ;; You can get a similar effect by using C-q with
+ ;; `read-quoted-char-radix' set to 16.
+
+ ;; Note that this only allows you to enter BMP values unless someone
+ ;; extends it to use variable numbers of digits.
+
+ ;;; Code:
+
+ (require 'quail)
+
+ (defun ucs-input-method (key)
+ (if (or buffer-read-only
+ (and (/= key ?U) (/= key ?u)))
+ (list key)
+ (quail-setup-overlays nil)
+ (let ((current-prefix-arg)
+ (last-command-char key))
+ (call-interactively 'self-insert-command))
+ (let ((modified-p (buffer-modified-p))
+ (buffer-undo-list t)
+ (input-method-function nil)
+ (echo-keystrokes 0)
+ (help-char nil)
+ (events (list key))
+ (str " "))
+ (unwind-protect
+ (catch 'non-digit
+ (progn
+ (dotimes (i 4)
+ (let ((seq (read-key-sequence nil))
+ key)
+ (if (and (stringp seq)
+ (= 1 (length seq))
+ (setq key (aref seq 0))
+ (memq key '(?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9 ?a
+ ?b ?c ?d ?e ?f ?A ?B ?C ?D ?E ?F)))
+ (progn
+ (push key events)
+ (let ((last-command-char key)
+ (current-prefix-arg))
+ (call-interactively 'self-insert-command)))
+ (let ((last-command-char key)
+ (current-prefix-arg))
+ (condition-case nil
+ (call-interactively (key-binding seq))))
+ (quail-delete-region)
+ (throw 'non-digit (append (reverse events)
+ (listify-key-sequence seq))))))
+ (quail-delete-region)
+ (let ((n (string-to-number (apply 'string
+ (cdr (nreverse events)))
+ 16)))
+ (if (characterp n)
+ (list n)))))
+ (quail-delete-overlays)
+ (set-buffer-modified-p modified-p)
+ (run-hooks 'input-method-after-insert-chunk-hook)))))
+
+ (defun ucs-input-activate (&optional arg)
+ "Activate UCS input method.
+ With arg, activate UCS input method if and only if arg is positive.
+
+ While this input method is active, the variable
+ `input-method-function' is bound to the function `ucs-input-method'."
+ (if (and arg
+ (< (prefix-numeric-value arg) 0))
+ (unwind-protect
+ (progn
+ (quail-hide-guidance-buf)
+ (quail-delete-overlays)
+ (setq describe-current-input-method-function nil))
+ (kill-local-variable 'input-method-function))
+ (setq inactivate-current-input-method-function 'ucs-input-inactivate)
+ (setq describe-current-input-method-function 'ucs-input-help)
+ (quail-delete-overlays)
+ (if (eq (selected-window) (minibuffer-window))
+ (add-hook 'minibuffer-exit-hook 'quail-exit-from-minibuffer))
+ (add-hook 'kill-buffer-hook 'quail-kill-guidance-buf nil t)
+ (set (make-local-variable 'input-method-function)
+ 'ucs-input-method)))
+
+ (defun ucs-input-inactivate ()
+ "Inactivate UCS input method."
+ (interactive)
+ (ucs-input-activate -1))
+
+ (defun ucs-input-help ()
+ (interactive)
+ (with-output-to-temp-buffer "*Help*"
+ (princ "\
+ Input method: ucs (mode line indicator:U)
+
+ Input as Unicode: U<hex> or u<hex>, where <hex> is a four-digit hex
number.")))
+
+ (register-input-method "ucs" "UTF-8" 'ucs-input-activate "U+"
+ "Unicode input as hex in the form Uxxxx.")
+
+ (provide 'uni-input)
+
+ ;;; uni-input.el ends here
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/leim/quail/uni-input.el [emacs-unicode-2],
Kenichi Handa <=