Mercurial > emacs
comparison src/filelock.c @ 12104:10197e4b3fb2
(unlock_file, lock_file): Call Fexpand_file_name.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Wed, 07 Jun 1995 20:39:56 +0000 |
parents | e4fb5e01090a |
children | 11f5ce737c57 |
comparison
equal
deleted
inserted
replaced
12103:5a4f4ce4ebb6 | 12104:10197e4b3fb2 |
---|---|
200 register Lisp_Object fn; | 200 register Lisp_Object fn; |
201 { | 201 { |
202 register Lisp_Object attack; | 202 register Lisp_Object attack; |
203 register char *lfname; | 203 register char *lfname; |
204 | 204 |
205 fn = Fexpand_file_name (fn, Qnil); | |
206 | |
205 MAKE_LOCK_NAME (lfname, fn); | 207 MAKE_LOCK_NAME (lfname, fn); |
206 | 208 |
207 /* See if this file is visited and has changed on disk since it was | 209 /* See if this file is visited and has changed on disk since it was |
208 visited. */ | 210 visited. */ |
209 { | 211 { |
327 unlock_file (fn) | 329 unlock_file (fn) |
328 register Lisp_Object fn; | 330 register Lisp_Object fn; |
329 { | 331 { |
330 register char *lfname; | 332 register char *lfname; |
331 | 333 |
334 fn = Fexpand_file_name (fn, Qnil); | |
335 | |
332 MAKE_LOCK_NAME (lfname, fn); | 336 MAKE_LOCK_NAME (lfname, fn); |
333 | 337 |
334 lock_superlock (lfname); | 338 lock_superlock (lfname); |
335 | 339 |
336 if (current_lock_owner_1 (lfname) == getpid ()) | 340 if (current_lock_owner_1 (lfname) == getpid ()) |