;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-;;; Comentary:
+;;; Commentary:
;; Functionalities
;; ---------------
;; identified by a string called package name. Use robin-define-package
;; to define a robin package.
-;; (robin-define-package NAME DOCTSTRING
-;; (INPUT1 OUPUT1)
-;; (INPUT2 OUPUT2)
+;; (robin-define-package NAME DOCSTRING
+;; (INPUT1 OUTPUT1)
+;; (INPUT2 OUTPUT2)
;; ...)
;; NAME is a string identifying the robin package. It often starts with a
;; Use the symbol `robin-use-package' as the third argument.
-;; The fourth argument is the prompt that appears in modeline when this
+;; The fourth argument is the prompt that appears in mode line when this
;; input method is active.
;; The fifth argument is a documentation string; it may or may not be
;; As stated in Murphy's law, it took longer than expected to develop the
;; very first version of Japanese input subsystem in NEmacs (Nihongo
;; Emacs). So the subsystem was named "TAMAGO", which is an acronym of
-;; "TAkusan Matasete GOmennasai" (Sorry to have kept you waiting so
+;; "TAkusan Matasete GOmen-nasai" (Sorry to have kept you waiting so
;; long). "Tamago" as a Japanese word means "egg", so the word "egg" was
;; also used for related filenames and function names.
(setq robin-current-package-name name)
(robin-activate)))
-(defun robin-inactivate ()
- "Inactivate robin input method."
+(defun robin-deactivate ()
+ "Deactivate robin input method."
(interactive)
(robin-activate -1))
+(define-obsolete-function-alias 'robin-inactivate 'robin-deactivate "24.3")
+
(defun robin-activate (&optional arg)
"Activate robin input method.
(if (and arg
(< (prefix-numeric-value arg) 0))
- ;; inactivate robin input method.
+ ;; deactivate robin input method.
(unwind-protect
(progn
(setq robin-mode nil)
(setq describe-current-input-method-function nil)
- (run-hooks 'robin-inactivate-hook))
+ (run-hooks
+ 'robin-inactivate-hook ; for backward compatibility
+ 'robin-deactivate-hook))
(kill-local-variable 'input-method-function))
;; activate robin input method.
(setq robin-mode t
describe-current-input-method-function 'robin-help
- inactivate-current-input-method-function 'robin-inactivate)
+ deactivate-current-input-method-function 'robin-deactivate)
(if (eq (selected-window) (minibuffer-window))
(add-hook 'minibuffer-exit-hook 'robin-exit-from-minibuffer))
(run-hooks 'input-method-activate-hook
(set (make-local-variable 'input-method-function)
'robin-input-method)))
+(define-obsolete-variable-alias
+ 'robin-inactivate-hook
+ 'robin-deactivate-hook "24.3")
+
(defun robin-exit-from-minibuffer ()
- (inactivate-input-method)
+ (deactivate-input-method)
(if (<= (minibuffer-depth) 1)
(remove-hook 'minibuffer-exit-hook 'robin-exit-from-minibuffer)))
(list key)
(delete-region start (point))
(if key
- (setq unread-command-events (list key)))
+ (push key unread-command-events))
(if (stringp output)
(string-to-list output)
(list output))))))
(provide 'robin)
;; Local Variables:
-;; coding: utf-8-emacs
+;; coding: utf-8
;; End:
;;; robin.el ends here