[OT, meta] markup (Re: have emacs use SIGTERM to end a process instead of SIGHUP)

[Emanuel Berg <embe8573@student.uu.se>]

Tassilo Horn <tsdh@gnu.org> writes:

> --8<---------------cut here---------------start------------->8---
> (defvar nanoc-process nil)
> (make-variable-buffer-local 'nanoc-process)
>
> (defun nanoc-kill-process ()
>   (when nanoc-process
>     (delete-process nanoc-process)))
>
> (defun nanoc-server ()
>   "Runs a nanoc web server"
>   (interactive)
>   (let ((default-directory (repository-root))
>         (process-connection-type t))
>     (setq nanoc-process
>           (start-process-shell-command
>            "nanoc-server" "nanoc-server"
>            "bundle exec nanoc view -p 3005 -C"))
>     (add-hook 'kill-buffer-hook #'nanoc-kill-process nil t)))
> --8<---------------cut here---------------end--------------->8---

Are there any perks of this markup that I'm unaware of? I think it
just looks strange. I take it is configurable like everything
else, but it may be a wasted effort as my impression is that not
that many people use it. So it'd be interesting to hear.

-- 
Emanuel Berg - programmer (hire me! CV below)
computer projects: http://user.it.uu.se/~embe8573
internet activity: http://home.student.uu.se/embe8573