[bongo-patches] Move fallback implementations of `process-get' and `process-put' to `bongo-emacs21.el'

[Daniel Brockman]

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>