Re: Help me unlock a file while in emacs on the Mac

[Andrew Choi <akochoi_NOSPAM_@shaw.ca>]

"Susan G. Conger" <congers@yoeric.com> writes:

> I need help.  I am trying to figure out the best way to unlock the file 
> I am currently editing in emacs on the Mac.  I need to have some type of 
> lisp command I believe that calls the shell and execute a command.  I 
> just don't know how to do this and it seems like it should be straight 
> forward.

I assume you want to unlock files with lock flags set in the Finder.
For read-only files, just use toggle-read-only.

Define the following two functions.

  (defun mac-unlock-file (fn)
    (interactive "fUnlock file: ")
    (call-process "/usr/bin/chflags" nil t nil "nouchg" (expand-file-name fn)))

  (defun mac-unlock-current-file ()
    (interactive)
    (mac-unlock-file (buffer-file-name)))

Then you can bind mac-unlock-current-file to a key (please see the
manual for how to do this) or just call it by typing M-x
mac-unlock-current-file.