~ubuntu-branches/ubuntu/dapper/wnn7egg/dapper

« back to all changes in this revision

Viewing changes to elisp/emacs20/wnn7egg-cnv.el

  • Committer: Bazaar Package Importer
  • Author(s): ISHIKAWA Mutsumi
  • Date: 2004-09-22 17:39:30 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040922173930-pna2yuvlq63wxgc9
Tags: 1.02-5
update dolist macro confliction fix, thanks TSUCHIYA Masatoshi.
realy closes: #270839

Show diffs side-by-side

added added

removed removed

Lines of Context:
64
64
 
65
65
;;;  $B=$@5%a%b(B
66
66
 
 
67
;;;  02/5/16  $B>.J8;z$R$i$,$J!J$!$#$%!K$NJQ498e$N(B M-k, M-h $BF0:n$N=$@5(B
 
68
;;;  02/5/16  skip-wnn-setenv-if-env-exist $B$r(B t $B$KJQ99(B
67
69
;;;  01/9/30  bug fix by OMRON SOFTWARE Co.,Ltd.
68
70
 
69
71
;;;  94/2/3   kWnn support by H.Kuribayashi
118
120
 
119
121
;;; Code:
120
122
 
121
 
;;; Last modified date: 2001/9/30
122
 
;;; wnn7egg-cnv.el version 1.01
 
123
;;; Last modified date: 2002/5/16
 
124
;;; wnn7egg-cnv.el version 1.02
123
125
 
124
126
(require 'wnn7egg-lib)
125
127
 
227
229
;;; Entry functions for egg-startup-file
228
230
;;;
229
231
 
230
 
(defvar skip-wnn-setenv-if-env-exist nil
 
232
(defvar skip-wnn-setenv-if-env-exist t
231
233
  "skip wnn environment setting when the same name environment exists")
232
234
 
233
235
(defmacro push-end (val loc)
1104
1106
 
1105
1107
(defun wnn7-henkan-hiragana ()
1106
1108
  (interactive)
1107
 
  (wnn7-henkan-goto-kouho (- (wnn7-bunsetu-kouho-suu *bunsetu-number* nil) 1)))
 
1109
  (if (= 2 (wnn7-bunsetu-kouho-suu *bunsetu-number* nil))
 
1110
      (wnn7-henkan-goto-kouho (- (wnn7-bunsetu-kouho-suu *bunsetu-number* nil) 2))
 
1111
    (wnn7-henkan-goto-kouho (- (wnn7-bunsetu-kouho-suu *bunsetu-number* nil) 1))))
1108
1112
 
1109
1113
(defun wnn7-henkan-katakana ()
1110
1114
  (interactive)
1111
 
  (wnn7-henkan-goto-kouho (- (wnn7-bunsetu-kouho-suu *bunsetu-number* nil) 2)))
 
1115
  (if (= 2 (wnn7-bunsetu-kouho-suu *bunsetu-number* nil))
 
1116
      (wnn7-henkan-goto-kouho (- (wnn7-bunsetu-kouho-suu *bunsetu-number* nil) 1))
 
1117
    (wnn7-henkan-goto-kouho (- (wnn7-bunsetu-kouho-suu *bunsetu-number* nil) 2))))
1112
1118
 
1113
1119
(defun wnn7-henkan-next-kouho ()
1114
1120
  (interactive)