auto-insert generates file names with concat instead of expand-file-name

[Kevin Rodgers]

*** emacs-21.3/lisp/autoinsert.el~      Fri Aug  2 11:56:49 2002
--- emacs-21.3/lisp/autoinsert.el       Wed Jul 14 12:02:12 2004
***************
*** 233,239 ****
         ;; Now, if we found something, do it
         (and action
              (if (stringp action)
!                 (file-readable-p (concat auto-insert-directory action))
                t)
              (if auto-insert-query
                  (or (if (eq auto-insert-query 'function)
--- 233,240 ----
         ;; Now, if we found something, do it
         (and action
              (if (stringp action)
!                 (file-readable-p
!                  (expand-file-name action auto-insert-directory))
                t)
              (if auto-insert-query
                  (or (if (eq auto-insert-query 'function)
***************
*** 244,250 ****
               (lambda (action)
                 (if (stringp action)
                     (if (file-readable-p
! 	 
	  (setq action (concat auto-insert-directory action)))
                         (insert-file-contents action))
                   (save-window-excursion
                     ;; make buffer visible before skeleton or function
--- 245,252 ----
               (lambda (action)
                 (if (stringp action)
                     (if (file-readable-p
! 	 
	  (setq action
! 	 
		(expand-file-name action auto-insert-directory)))
                         (insert-file-contents action))
                   (save-window-excursion
                     ;; make buffer visible before skeleton or function

--
Kevin Rodgers