From: Steven Tamm <steventamm@mac.com>
Cc: emacs-devel ' <emacs-devel@gnu.org>
Subject: Re: Carbon port: setting the creator code (patch)
Date: Fri, 8 Jul 2005 20:04:09 -0700 [thread overview]
Message-ID: <FCD7AFC7-484E-4C3D-979A-86A281540BB6@mac.com> (raw)
In-Reply-To: <14EAA211-1A2F-4534-A504-867C51151104@inf.ed.ac.uk>
Sorry for the delay in reply, but it seems to me that using SetFile
would be easier, and more flexible.
(defun mac-set-creator-code-for-file ()
(call-process shell-file-name nil nil t shell-command-switch
(concat "/Developer/Tools/SetFile -c EMAx " buffer-file-name))
)
(add-hook 'after-save-hook 'mac-set-creator-code-for-file)
-Steven
On Jun 24, 2005, at 2:05 AM, David Reitter wrote:
> I'm posting some code that introduces a function "mac-set-creator"
> in the Mac (Carbon) port. The function sets the creator code
> (metadata information) of a file to 'EMAx'. That enables
> LaunchServices to start up Emacs whenever the file is double-clicked.
>
> In the Aquamacs distribution, I use it as follows:
>
> (defun mac-set-creator-code-for-file ()
> (if (and aquamacs-set-creator-codes-after-writing-files
> buffer-file-name
> (fboundp 'mac-set-creator)
> )
> (mac-set-creator buffer-file-name)
> )
> )
>
> (add-hook 'after-save-hook 'mac-set-creator-code-for-file)
>
> This contains some free code from Apple.
>
>
> <mac-set-creator.patch>
> _______________________________________________
> Emacs-devel mailing list
> Emacs-devel@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-devel
next prev parent reply other threads:[~2005-07-09 3:04 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-06-24 9:05 Carbon port: setting the creator code (patch) David Reitter
2005-07-09 3:04 ` Steven Tamm [this message]
2005-07-09 8:11 ` Sébastien Kirche
2005-07-09 13:06 ` David Reitter
2005-07-09 16:08 ` Steven Tamm
2005-07-10 0:56 ` YAMAMOTO Mitsuharu
2005-07-10 11:55 ` David Reitter
2005-07-10 11:16 ` David Reitter
2005-07-10 13:30 ` Benjamin Riefenstahl
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=FCD7AFC7-484E-4C3D-979A-86A281540BB6@mac.com \
--to=steventamm@mac.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.