> hi. I have wrote an elisp code for org-mode, which puts entries in a > table. It is a simple code in my opinion and it does the job I > intended. But when executed, the activation of CPU shoots up and it > will take a while to complete it. I do not believe that this little > code requires such a work-load for the computer. There must be my > wrong-doing.
You have an infinite loop. The predicate of the while loop would always evaluate to 'true' and never become 'false'. > Could anyone help me for fixing it? Try the following snippet with suitable variations. (setq word-list (list "apple" "orange" "lemon" "baseball" "football")) (defun test-table (word-list) (let ((line 0) (column 3)) (mapcar (lambda (word) (org-table-put i column word t)) word-list))) Jambunathan K. > > soichi > > > > P.S. the code follows, and there is "word" in the table so that "search" > command > looks for it. > > ;;--------------------------------------------- > > (require 'org-table) > > (setq alist (list "apple" "orange" "lemon" "baseball" "football")) > > (defun test-table (word-list) > > "test to see if org-table-put works well" > > (find-file-noselect (concat "~/Dropbox/language/word.org")) > > (set-buffer "word.org") > > (save-excursion > > (goto-char (point-min)) > > (search-forward "word") > > (goto-char (match-beginning 0)) > > (let ((i 1)) > > (while word-list > > (org-table-put i 3 (nth (- i 1) word-list) t) > > (setq i (1+ i)))))) > > > > (test-table alist) ;;execute it here > > > _______________________________________________ > Emacs-orgmode mailing list > Please use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode _______________________________________________ Emacs-orgmode mailing list Please use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode