[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bongo-patches] Move fallback implementations of `process-get' and `proc
From: |
Daniel Brockman |
Subject: |
[bongo-patches] Move fallback implementations of `process-get' and `process-put' to `bongo-emacs21.el' |
Date: |
Tue, 06 Feb 2007 22:40:45 +0100 |
User-agent: |
Gnus/5.11 (Gnus v5.11) Emacs/23.0.51 (gnu/linux) |
Tue Feb 6 16:00:57 CET 2007 Daniel Brockman <address@hidden>
* Move fallback implementations of `process-get' and
`process-put' to `bongo-emacs21.el'.
diff -rN -u old-bongo/bongo.el new-bongo/bongo.el
--- old-bongo/bongo.el 2007-02-06 22:40:42.000000000 +0100
+++ new-bongo/bongo.el 2007-02-06 22:40:42.000000000 +0100
@@ -108,6 +108,10 @@
'read-directory-name)
(defalias 'bongo-run-mode-hooks
'run-mode-hooks)
+ (defalias 'bongo-process-get
+ 'process-get)
+ (defalias 'bongo-process-put
+ 'process-put)
(defalias 'bongo-custom-set-minor-mode
'custom-set-minor-mode)
(defalias 'bongo-customize-mark-as-set
@@ -2740,31 +2744,6 @@
(and transient-mark-mode mark-active))
-;;;; Fallback implementations of `process-{get,put}'.
-
-(defvar bongo-process-alist nil)
-
-(defun bongo-process-plist (process)
- (bongo-alist-get bongo-process-alist process))
-
-(defun bongo-process-set-plist (process plist)
- (bongo-alist-put 'bongo-process-alist process plist))
-
-(defun bongo-process-get (process property)
- "Return the value of PROPERTY for PROCESS."
- (plist-get (bongo-process-plist process) property))
-
-(defun bongo-process-put (process property value)
- "Change the value of PROPERTY for PROCESS to VALUE."
- (bongo-process-set-plist
- process (plist-put (bongo-process-plist process)
- property value)))
-
-(when (and (fboundp 'process-put) (fboundp 'process-get))
- (defalias 'bongo-process-get 'process-get)
- (defalias 'bongo-process-put 'process-put))
-
-
;;;; Line-oriented convenience routines
(defun bongo-ensure-final-newline ()
diff -rN -u old-bongo/bongo-emacs21.el new-bongo/bongo-emacs21.el
--- old-bongo/bongo-emacs21.el 2007-02-06 22:40:42.000000000 +0100
+++ new-bongo/bongo-emacs21.el 2007-02-06 22:40:42.000000000 +0100
@@ -6,7 +6,7 @@
;; Author: Daniel Brockman <address@hidden>
;; URL: http://www.brockman.se/software/bongo/
;; Created: December 27, 2006
-;; Updated: January 4, 2007
+;; Updated: February 6, 2007
;; This file is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License as
@@ -108,6 +108,27 @@
(make-obsolete-variable ,obsolete-name ,current-name ,when)))
+;;;; Fallback implementations of `process-{get,put}'.
+
+(defvar bongo-process-alist nil)
+
+(defun bongo-process-plist (process)
+ (bongo-alist-get bongo-process-alist process))
+
+(defun bongo-process-set-plist (process plist)
+ (bongo-alist-put 'bongo-process-alist process plist))
+
+(defun bongo-process-get (process property)
+ "Return the value of PROPERTY for PROCESS."
+ (plist-get (bongo-process-plist process) property))
+
+(defun bongo-process-put (process property value)
+ "Change the value of PROPERTY for PROCESS to VALUE."
+ (bongo-process-set-plist
+ process (plist-put (bongo-process-plist process)
+ property value)))
+
+
;;;; Custom
(require 'custom)
--
Daniel Brockman <address@hidden>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [bongo-patches] Move fallback implementations of `process-get' and `process-put' to `bongo-emacs21.el',
Daniel Brockman <=