Mercurial > hg > Members > kokubo > emacs
diff .emacs.d/haskell-mode/haskell-compat.el @ 0:2764b4f45f9f
1st commit
author | Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 21 Apr 2014 04:30:59 +0900 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/.emacs.d/haskell-mode/haskell-compat.el Mon Apr 21 04:30:59 2014 +0900 @@ -0,0 +1,36 @@ +;;; haskell-compat.el --- legacy/compatibility backports for haskell-mode +;; +;; Filename: haskell-compat.el +;; Description: legacy/compatibility backports for haskell-mode + +;; This file is not part of GNU Emacs. + +;; This file is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation; either version 3, or (at your option) +;; any later version. + +;; This file is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: + +;;; Code: + +;; Missing in Emacs23, stolen from Emacs24's `subr.el' +(unless (fboundp 'process-live-p) + (defun process-live-p (process) + "Returns non-nil if PROCESS is alive. +A process is considered alive if its status is `run', `open', +`listen', `connect' or `stop'." + (memq (process-status process) + '(run open listen connect stop)))) + +(provide 'haskell-compat) + +;;; haskell-compat.el ends here