File: comment.el

package info (click to toggle)
yatex 1.77%2Bdfsg1-3
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 1,952 kB
  • ctags: 1,810
  • sloc: lisp: 13,490; makefile: 172; ruby: 92; sh: 66
file content (86 lines) | stat: -rw-r--r-- 2,832 bytes parent folder | download | duplicates (6)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;;; -*- Emacs-Lisp -*-
;;; comment/uncomment region for emacs.
;;; comment.el rev.0.1
;;; (c) 1992, 2002 by HIROSE Yuuji.(yuuji@yatex.org)
;;; Last modified Mon Nov 25 18:33:23 2002 on firestorm

;;; Rename `comment-region' to `comment-out-region' for standard
;;; Emacs-19 function.

(provide 'comment)

(defvar current-comment-prefix "> " "*Default prefix string")

(defun cite-region (beg end)
  (save-excursion
    (goto-char (max beg end))
    (if (bolp)
	(forward-line -1))
    (if (string= string "") (setq string current-comment-prefix)
      (setq current-comment-prefix string))
    (save-restriction 
      (narrow-to-region (min beg end) (point))
      (goto-char (point-min))
      (message "%s" string)
      (while (re-search-forward "^" nil t)
	(replace-match string))
      ))
)

(defun comment-out-region (string &optional beg end once)
  "Inserts STRING at the beginning of every line in the region specified
BEG and END.
Called interactively, STRING defaults to comment-start (or '> ' if
none is defined) unless a prefix argument is given, in which case it
prompts for a string.  Optional second argument ONCE is only for
compatibility for uncomment-region.  It has no means now."
  (interactive
   (list (if current-prefix-arg
	     (read-string 
	      (concat "String to insert"
		      (format "(default \"%s\")" current-comment-prefix
			      " ")
		      ": "))
	   current-comment-prefix)))
  (if (not (stringp string)) (setq string current-comment-prefix))
  (cite-region (or beg (region-beginning)) (or end (region-end)))
)


(defun uncomment-out-region (string &optional beg end once)
  "Deletes STRING from the beginning of every line in the region.
Called interactively, STRING defaults to comment-start (or '> ' if
none is defined) unless a prefix argument is given, in which case it
prompts for a string.  Optional second argument ONCE restricts
deletion to first occurance of STRING on each line."
  (interactive
   (list (if current-prefix-arg
	     (read-string 
	      (concat "String to delete"
		      (format "(default \"%s\")" current-comment-prefix
			      " ")
		      ": "))
	   current-comment-prefix)))
  (if (not (stringp string)) (setq string current-comment-prefix))
  (save-excursion
    (save-restriction 
      (narrow-to-region (or beg (region-beginning)) (or end (region-end)))
      (goto-char (point-min))
      (while (re-search-forward (concat "^" string) nil t)
	(replace-match "")
	(if once (end-of-line)))
      ))
)

(defun cite-file (filename)
  "insert the file with citation string."
  (interactive "FCite-file: ")
  (let*
      ((string
	(read-string
	 (format "Citation string (default \"%s\"): " current-comment-prefix)
	 ))
       (ins-tail (car (cdr (insert-file-contents filename)))))
    (save-excursion
      (cite-region (point) (+ (point) ins-tail))))
)