Simple lisp question

[Sebastian Tennant <seb@albert.vcisp.net>]

[-- Attachment #1.1: Type: text/plain, Size: 1040 bytes --]

Hu gnus.

What is wrong with this simple code, (taken directly from O'Reilly's 
Learning Gnu Emacs)?

	(defun count-words-buffer ()
	  (let ((count 0))
	    (goto-char (point-min))
	    (while (< (point) (point-max))
	      (forward-word 1)
	      (setq count (+ 1 count)))
	    (message "Buffer contains %d words." count)))
	
	(count-words-buffer)*
	
	--1-:**-F1  wordcount.el      [(Lisp 
Interaction)]--L10--All---------------


With point at * (above), C-j to evaluate achieves nothing.  Below is 
the backtrace buffer output.


	Debugger entered--Lisp error: (void-function count-words-buffer)
	  (count-words-buffer)
	  eval((count-words-buffer))
	  eval-last-sexp-1(t)
	  eval-last-sexp(t)
	  eval-print-last-sexp()
	  call-interactively(eval-print-last-sexp)
	
	-:%*-F1  *Backtrace*       
[(Debugger)]--L2-All----------------------------

Learning Gnu Emacs (2nd edition) is written for Emacs v. 19.30.  I'm 
running v. 21.2.  Can things have changed that much?

Seb.


"War is not the answer..." - Marvin Gaye - 'What's Going On?'

[-- Attachment #1.2: Type: text/enriched, Size: 1443 bytes --]

Hu gnus.


What is wrong with this simple code, (taken directly from O'Reilly's
<italic>Learning Gnu Emacs</italic>)? 


<fontfamily><param>Courier</param><color><param>9291,0000,9493</param><smaller>	(defun
count-words-buffer ()

	  (let ((count 0))

	    (goto-char (point-min))

	    (while (<< (point) (point-max))

	      (forward-word 1)

	      (setq count (+ 1 count)))

	    (message "Buffer contains %d words." count)))

	

	(count-words-buffer)*

	

	--1-:**-F1  wordcount.el      [(Lisp
Interaction)]--L10--All---------------


</smaller></color></fontfamily>

With point at * (above), C-j to evaluate achieves nothing.  Below is
the backtrace buffer output.  



<fontfamily><param>Courier</param><color><param>9291,0000,9493</param><smaller>	Debugger
entered--Lisp error: (void-function count-words-buffer)

	  (count-words-buffer)

	  eval((count-words-buffer))

	  eval-last-sexp-1(t)

	  eval-last-sexp(t)

	  eval-print-last-sexp()

	  call-interactively(eval-print-last-sexp)

	

	-:%*-F1  *Backtrace*      
[(Debugger)]--L2-All----------------------------

</smaller></color></fontfamily>

<italic>Learning Gnu Emacs </italic>(2nd edition) is written for Emacs
v. 19.30.  I'm running v. 21.2.  Can things have changed that much?


Seb.


<italic><color><param>FFFF,2727,4242</param>

</color></italic><color><param>FFFF,2727,4242</param>"War is not the
answer..." - Marvin Gaye -<italic> 'What's Going On?'</italic></color>

[-- Attachment #2: Type: text/plain, Size: 151 bytes --]

_______________________________________________
Help-gnu-emacs mailing list
Help-gnu-emacs@gnu.org
http://mail.gnu.org/mailman/listinfo/help-gnu-emacs