|
@@ -2511,7 +2511,7 @@ directory."
|
|
(file-truename bfname))
|
|
(file-truename bfname))
|
|
(concat (file-name-sans-extension filename)
|
|
(concat (file-name-sans-extension filename)
|
|
"-source."
|
|
"-source."
|
|
- (file-name-extension filename)))))
|
|
|
|
|
|
+ (file-name-extension filename))
|
|
filename)))
|
|
filename)))
|
|
(backup-inhibited t)
|
|
(backup-inhibited t)
|
|
(buffer (find-file-noselect filename))
|
|
(buffer (find-file-noselect filename))
|