mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-15 16:20:17 +02:00
Code Activity

* guile-c.el (guile-c-deprecate-region): New command.

Browse source
This commit is contained in:
Keisuke Nishida 2001-03-13 01:56:47 +00:00
parent 8cdeee7d78
commit 468bd77ef5
2 changed files with 22 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
emacs/ChangeLog
View file

@ -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> 2001-03-11 Keisuke Nishida <kxn30@po.cwru.edu>
* guile-c.el: New file. * guile-c.el: New file.

18
emacs/guile-c.el
View file

@ -24,6 +24,7 @@
;; (require 'guile-c) ;; (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-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-p" 'guile-c-insert-define)
;; (define-key c-mode-map "\C-c\C-g\C-d" 'guile-c-deprecate-region)
;; )) ;; ))
;;; Code: ;;; Code:
@ -32,6 +33,7 @@
(defvar guile-c-prefix "scm_") (defvar guile-c-prefix "scm_")
;;; ;;;
;;; Insert templates ;;; Insert templates
;;; ;;;
@ -91,6 +93,7 @@
(while (string-match "[-:]" name) (setq name (replace-match "_" t t name))) (while (string-match "[-:]" name) (setq name (replace-match "_" t t name)))
(concat guile-c-prefix name)) (concat guile-c-prefix name))
;;; ;;;
;;; Edit docstrings ;;; Edit docstrings
;;; ;;;
@ -151,6 +154,21 @@
(forward-line 1)) (forward-line 1))
(cons start (- (point) 2)))))) (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) (provide 'guile-c)
;; guile-c.el ends here ;; guile-c.el ends here