diff --git a/emacs/ChangeLog b/emacs/ChangeLog
index 1243b61f4..a816ff5df 100644
--- a/emacs/ChangeLog
+++ b/emacs/ChangeLog
@@ -1,3 +1,7 @@
+2001-03-12  Keisuke Nishida  <kxn30@po.cwru.edu>
+
+	* guile-c.el (guile-c-deprecate-region): New command.
+
 2001-03-11  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* guile-c.el: New file.
diff --git a/emacs/guile-c.el b/emacs/guile-c.el
index 8d1b9f59c..3c7344985 100644
--- a/emacs/guile-c.el
+++ b/emacs/guile-c.el
@@ -24,6 +24,7 @@
 ;;     (require 'guile-c)
 ;;     (define-key c-mode-map "\C-c\C-g\C-e" 'guile-c-edit-docstring)
 ;;     (define-key c-mode-map "\C-c\C-g\C-p" 'guile-c-insert-define)
+;;     (define-key c-mode-map "\C-c\C-g\C-d" 'guile-c-deprecate-region)
 ;;     ))
 
 ;;; Code:
@@ -32,6 +33,7 @@
 
 (defvar guile-c-prefix "scm_")
 
+
 ;;;
 ;;; Insert templates
 ;;;
@@ -91,6 +93,7 @@
   (while (string-match "[-:]" name) (setq name (replace-match "_" t t name)))
   (concat guile-c-prefix name))
 
+
 ;;;
 ;;; Edit docstrings
 ;;;
@@ -151,6 +154,21 @@
 	    (forward-line 1))
 	  (cons start (- (point) 2))))))
 
+
+;;;
+;;; Others
+;;;
+
+(defun guile-c-deprecate-region (start end)
+  (interactive "r")
+  (save-excursion
+    (let ((marker (make-marker)))
+      (set-marker marker end)
+      (goto-char start)
+      (insert "#if (SCM_DEBUG_DEPRECATED == 0)\n\n")
+      (goto-char marker)
+      (insert "\n#endif /* (SCM_DEBUG_DEPRECATED == 0) */\n"))))
+
 (provide 'guile-c)
 
 ;; guile-c.el ends here