diff options
| author | Hiroki Sato <hrs@FreeBSD.org> | 2015-01-29 04:59:32 +0000 |
|---|---|---|
| committer | Hiroki Sato <hrs@FreeBSD.org> | 2015-01-29 04:59:32 +0000 |
| commit | 12e15d364f8b887be6f26085009444dc3131d26c (patch) | |
| tree | d8f772c84d60a2f0d0e4ac177c3264f3a4d48144 /editors/tamago/files | |
| parent | 53c219fdabaf36b18c4fdce8f4d8b199ad6862ae (diff) | |
Notes
Diffstat (limited to 'editors/tamago/files')
| -rw-r--r-- | editors/tamago/files/patch-egg-sim.el | 44 |
1 files changed, 38 insertions, 6 deletions
diff --git a/editors/tamago/files/patch-egg-sim.el b/editors/tamago/files/patch-egg-sim.el index 7ee7f5b9a85e..8ca01857b5ca 100644 --- a/editors/tamago/files/patch-egg-sim.el +++ b/editors/tamago/files/patch-egg-sim.el @@ -1,6 +1,38 @@ ---- egg-sim.el.orig 2014-11-23 15:19:11.000000000 +0900 -+++ egg-sim.el 2014-11-23 15:20:02.000000000 +0900 -@@ -432,7 +432,7 @@ +--- egg-sim.el.orig 2001-01-28 03:53:13.000000000 +0900 ++++ egg-sim.el 2015-01-28 19:42:32.000000000 +0900 +@@ -56,19 +56,23 @@ + (<= to max) + (cond ((= (charset-dimension charset) 1) + (while (<= from to) +- (setq result (cons (char-to-string +- (make-char charset to)) +- result) +- to (1- to))) ++ (let ((c (ignore-errors (make-char charset to)))) ++ (if c (progn ++ (setq result (cons ++ (char-to-string c) ++ result))))) ++ (setq to (1- to))) + result) + ((= (charset-dimension charset) 2) + (while (<= from to) + (let ((code max)) + (while (<= min code) +- (setq result (cons (char-to-string +- (make-char charset to code)) +- result) +- code (1- code)))) ++ (let ((c (ignore-errors (make-char charset to code)))) ++ (if c (progn ++ (setq result (cons ++ (char-to-string c) ++ result))))) ++ (setq code (1- code)))) + (setq to (1- to))) + result))))) + +@@ -432,7 +436,7 @@ (insert "-+") (let ((i 0)) (while (< i 16) @@ -9,7 +41,7 @@ (setq i (1+ i)))) (insert "\n") -@@ -461,7 +461,7 @@ +@@ -461,7 +465,7 @@ (insert "-+") (let ((i 0)) (while (< i 16) @@ -18,7 +50,7 @@ (setq i (1+ i)))) (insert "\n") -@@ -496,7 +496,7 @@ +@@ -496,7 +500,7 @@ (insert "-+") (let ((i 0)) (while (< i 16) @@ -27,7 +59,7 @@ (setq i (1+ i)))) (insert "\n") -@@ -531,7 +531,7 @@ +@@ -531,7 +535,7 @@ (insert "-+") (let ((i 1)) (while (<= i 94) |