5 |
;; Keywords: wp, convenience |
;; Keywords: wp, convenience |
6 |
;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> |
;; Author: Takaaki Ota <Takaaki.Ota@am.sony.com> |
7 |
;; Created: Sat Jul 08 2000 13:28:45 (PST) |
;; Created: Sat Jul 08 2000 13:28:45 (PST) |
8 |
;; Revised: Thu Aug 15 2002 14:02:14 (PDT) |
;; Revised: mar feb 18 2003 10:03:18 (Romance Standard Time) |
9 |
|
|
10 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
11 |
|
|
3039 |
(setq col-list (cons (car (table--get-coordinate (car starting-cell))) nil)) |
(setq col-list (cons (car (table--get-coordinate (car starting-cell))) nil)) |
3040 |
(setq row-list (cons (cdr (table--get-coordinate (car starting-cell))) nil)) |
(setq row-list (cons (cdr (table--get-coordinate (car starting-cell))) nil)) |
3041 |
(setq i 0) |
(setq i 0) |
3042 |
(let ((wheel [?- ?\ ?| ?/])) |
(let ((wheel [?- ?\\ ?| ?/])) |
3043 |
(while |
(while |
3044 |
(progn |
(progn |
3045 |
(if (interactive-p) |
(if (interactive-p) |