* auto-insert generates file names with concat instead of expand-file-name
@ 2004-07-14 18:04 Kevin Rodgers
0 siblings, 0 replies; only message in thread
From: Kevin Rodgers @ 2004-07-14 18:04 UTC (permalink / raw)
*** 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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2004-07-14 18:04 UTC | newest]
Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2004-07-14 18:04 auto-insert generates file names with concat instead of expand-file-name Kevin Rodgers
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).