[slime-cvs] CVS update: slime/hyperspec.el

[Luke Gorrie]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv2453

Modified Files:
	hyperspec.el 
Log Message:
(common-lisp-hyperspec-format): This command now works at the end of
the buffer, fixed `char-after' usage as suggested by Johan Bockgård.

Date: Mon Jun 28 04:05:48 2004
Author: lgorrie

Index: slime/hyperspec.el
diff -u slime/hyperspec.el:1.4 slime/hyperspec.el:1.5
--- slime/hyperspec.el:1.4	Mon Jun 28 03:19:11 2004
+++ slime/hyperspec.el	Mon Jun 28 04:05:48 2004
@@ -1153,7 +1153,8 @@
 
 (defun common-lisp-hyperspec-format (character-name)
    (interactive 
-    (list (let ((char-at-point (char-to-string (char-after (point)))))
+    (list (let ((char-at-point
+                 (ignore-errors (char-to-string (char-after (point))))))
 	    (if (and char-at-point
 		     (intern-soft (upcase char-at-point)
 				  common-lisp-hyperspec-format-characters))