--- a/lisp/wid-edit.el	Mon Aug 13 11:06:08 2007 +0200
+++ b/lisp/wid-edit.el	Mon Aug 13 11:07:10 2007 +0200
@@ -533,7 +533,7 @@
 	  widget-shadow-subrs)
   (defun widget-put (widget property value)
     "In WIDGET set PROPERTY to VALUE.
-The value can later be retrived with `widget-get'."
+The value can later be retrieved with `widget-get'."
     (setcdr widget (plist-put (cdr widget) property value))))
 
 ;; Recoded in C, for efficiency:
@@ -730,7 +730,7 @@
 		 ;; format.
 		 (when (valid-image-instantiator-format-p (caar formats))
 		   (setq file (locate-file image dirlist
-					   (mapconcat 'identity (cdar formats)
+					   (mapconcat #'identity (cdar formats)
 						      ":"))))
 		 (unless file
 		   (pop formats)))
@@ -1129,7 +1129,7 @@
       (error "This widget is inactive"))
     (let ((current-glyph 'down))
       ;; We always know what glyph is drawn currently, to avoid
-      ;; unnecessary extent changes.  Is this any noticable gain?
+      ;; unnecessary extent changes.  Is this any noticeable gain?
       (unwind-protect
 	  (progn
 	    ;; Press the glyph.