Mercurial > hg > Members > kokubo > emacs

comparison .emacs.d/haskell-mode/haskell-compat.el @ 0:2764b4f45f9f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
1st commit
author Shohei KOKUBO <e105744@ie.u-ryukyu.ac.jp>
date Mon, 21 Apr 2014 04:30:59 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:2764b4f45f9f
1 ;;; haskell-compat.el --- legacy/compatibility backports for haskell-mode
2 ;;
3 ;; Filename: haskell-compat.el
4 ;; Description: legacy/compatibility backports for haskell-mode
5
6 ;; This file is not part of GNU Emacs.
7
8 ;; This file is free software; you can redistribute it and/or modify
9 ;; it under the terms of the GNU General Public License as published by
10 ;; the Free Software Foundation; either version 3, or (at your option)
11 ;; any later version.
12
13 ;; This file is distributed in the hope that it will be useful,
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 ;; GNU General Public License for more details.
17
18 ;; You should have received a copy of the GNU General Public License
19 ;; along with this program. If not, see <http://www.gnu.org/licenses/>.
20
21 ;;; Commentary:
22
23 ;;; Code:
24
25 ;; Missing in Emacs23, stolen from Emacs24's `subr.el'
26 (unless (fboundp 'process-live-p)
27 (defun process-live-p (process)
28 "Returns non-nil if PROCESS is alive.
29 A process is considered alive if its status is `run', `open',
30 `listen', `connect' or `stop'."
31 (memq (process-status process)
32 '(run open listen connect stop))))
33
34 (provide 'haskell-compat)
35
36 ;;; haskell-compat.el ends here