Mercurial > hg > xemacs-beta

annotate lisp/tm/sc-setup.el @ 73:e2d7a37b7c8d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added tag r20-0b31 for changeset b9518feda344
author cvs
date Mon, 13 Aug 2007 09:03:47 +0200
parents 131b0175ea99
children c0c698873ce1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
4
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
1 ;;;
70
131b0175ea99 Import from CVS: tag r20-0b30
cvs
parents: 10
diff changeset
2 ;;; $Id: sc-setup.el,v 1.1.1.1 1996/12/18 22:43:38 steve Exp $
4
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
3 ;;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
4
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
5 (require 'emu)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
6
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
7
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
8 ;;; @ for Super Cite
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
9 ;;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
10
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
11 (if (< emacs-major-version 19)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
12 (autoload 'sc-cite-original "sc" nil t)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
13 (autoload 'sc-cite-original "supercite" "supercite 3.1" t)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
14 (autoload 'sc-submit-bug-report "supercite" "Supercite 3.1" t)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
15 )
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
16
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
17 (setq sc-citation-leader "")
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
18
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
19 (cond ((boundp 'MULE)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
20 ;; for MULE
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
21 (setq sc-cite-regexp "\\s *\\([a-zA-Z0-9]\\|\\cj\\)*>+\\s *")
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
22 )
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
23 ((boundp 'NEMACS)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
24 ;; for Nemacs
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
25 (setq sc-cite-regexp
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
26 "\\s *\\([a-zA-Z0-9]\\|\\cc\\|\\cC\\|\\ch\\|\\cH\\|\\ck\\|\\cK\\)*>+\\s *")
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
27 ))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
28
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
29 (if (< emacs-major-version 19)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
30 (progn
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
31 (defun my-sc-overload-hook ()
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
32 (require 'sc-oloads)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
33 (sc-overload-functions)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
34 )
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
35
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
36 ;; @@ for all but mh-e
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
37 ;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
38 (setq mail-yank-hooks (function sc-cite-original))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
39
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
40 ;; @@ for RMAIL, PCMAIL, GNUS
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
41 ;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
42 (add-hook 'mail-setup-hook (function my-sc-overload-hook))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
43
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
44 ;; @@ for Gnus
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
45 ;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
46 (add-hook 'news-reply-mode-hook (function my-sc-overload-hook))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
47 (add-hook 'gnews-ready-hook (function my-sc-overload-hook))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
48
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
49 ;; @@ for mh-e
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
50 ;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
51 (add-hook 'mh-letter-mode-hook (function my-sc-overload-hook))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
52 (setq mh-yank-hooks 'sc-cite-original) ; for MH-E only
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
53 )
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
54 (add-hook 'mail-citation-hook 'sc-cite-original)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
55 (setq news-reply-header-hook nil)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
56 )
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
57
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
58
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
59 ;;; @ for sc-register
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
60 ;;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
61 ;; (setq sc-load-hook
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
62 ;; '(lambda ()
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
63 ;; (require 'sc-register)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
64 ;; (setq sc-rewrite-header-list
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
65 ;; (append sc-rewrite-header-list
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
66 ;; (list (list 'sc-header-in-Japanese))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
67 ;; ))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
68 ;; (setq sc-preferred-header-style
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
69 ;; (- (length sc-rewrite-header-list) 1))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
70 ;; ))
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
71 (setq sc-preferred-attribution 'registeredname)
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
72
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
73
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
74 ;;; @ end
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
75 ;;;
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
76
b82b59fe008d Import from CVS: tag r19-15b3
cvs
parents:
diff changeset
77 (provide 'sc-setup)