[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/supercite.el
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/supercite.el |
Date: |
Fri, 04 Apr 2003 01:22:36 -0500 |
Index: emacs/lisp/mail/supercite.el
diff -c emacs/lisp/mail/supercite.el:1.30 emacs/lisp/mail/supercite.el:1.31
*** emacs/lisp/mail/supercite.el:1.30 Fri Mar 8 16:08:19 2002
--- emacs/lisp/mail/supercite.el Tue Feb 4 08:14:00 2003
***************
*** 250,256 ****
the number of lines in the region is greater than this
value, a warning message will be printed and the region
will not be cited. Lines in region are counted with
! `count-lines'.
The gathering of attribution information is not affected by the value
of this variable. The number of lines in the region is calculated
--- 250,256 ----
the number of lines in the region is greater than this
value, a warning message will be printed and the region
will not be cited. Lines in region are counted with
! `count-lines'.
The gathering of attribution information is not affected by the value
of this variable. The number of lines in the region is calculated
***************
*** 595,601 ****
(define-key sc-mode-map "\C-b" 'sc-submit-bug-report)
(define-key sc-mode-map "?" 'sc-describe)
)
!
(defvar sc-electric-mode-map ()
"Keymap for `sc-electric-mode' electric references mode.")
(if sc-electric-mode-map
--- 595,601 ----
(define-key sc-mode-map "\C-b" 'sc-submit-bug-report)
(define-key sc-mode-map "?" 'sc-describe)
)
!
(defvar sc-electric-mode-map ()
"Keymap for `sc-electric-mode' electric references mode.")
(if sc-electric-mode-map
***************
*** 1152,1158 ****
This populates the `sc-attributions' with the list of possible attributions."
(if (and (stringp from)
(< 0 (length from)))
! (let* ((sc-mumble "")
(namestring (sc-attribs-extract-namestring from))
(namelist (sc-attribs-filter-namelist
(sc-attribs-chop-namestring namestring)))
--- 1152,1158 ----
This populates the `sc-attributions' with the list of possible attributions."
(if (and (stringp from)
(< 0 (length from)))
! (let* ((sc-mumble "")
(namestring (sc-attribs-extract-namestring from))
(namelist (sc-attribs-filter-namelist
(sc-attribs-chop-namestring namestring)))
***************
*** 1164,1170 ****
(emailname (sc-attribs-emailname from))
(n 1)
author middlenames)
!
;; put basic information
(setq
;; put middle names and build sc-author entry
--- 1164,1170 ----
(emailname (sc-attribs-emailname from))
(n 1)
author middlenames)
!
;; put basic information
(setq
;; put middle names and build sc-author entry
***************
*** 1342,1348 ****
(setq citation choice
attribution (or (sc-guess-attribution citation)
citation))
!
(setq citation (sc-make-citation choice)
attribution choice))
))
--- 1342,1348 ----
(setq citation choice
attribution (or (sc-guess-attribution citation)
citation))
!
(setq citation (sc-make-citation choice)
attribution choice))
))
***************
*** 1543,1549 ****
sc-default-uncite-frame)))
(run-hooks 'sc-pre-uncite-hook)
(regi-interpret frame start end)))
!
(defun sc-recite-region (start end)
"Recite a region delineated by START and END.
First runs `sc-pre-recite-hook'."
--- 1543,1549 ----
sc-default-uncite-frame)))
(run-hooks 'sc-pre-uncite-hook)
(regi-interpret frame start end)))
!
(defun sc-recite-region (start end)
"Recite a region delineated by START and END.
First runs `sc-pre-recite-hook'."
***************
*** 1702,1708 ****
(progn
(eval ref)
(let ((lines (count-lines (point-min) (point-max))))
! (or nomsg (message "Ref header %d [%d line%s]: %s"
sc-eref-style lines
(if (= lines 1) "" "s")
ref))))
--- 1702,1708 ----
(progn
(eval ref)
(let ((lines (count-lines (point-min) (point-max))))
! (or nomsg (message "Ref header %d [%d line%s]: %s"
sc-eref-style lines
(if (= lines 1) "" "s")
ref))))
***************
*** 2020,2026 ****
(mark-active t) ; for Emacs
(point (point-marker))
(mark (copy-marker (mark-marker))))
!
;; make sure point comes before mark, not all functions are
;; interactive "r"
(if (< mark point)
--- 2020,2026 ----
(mark-active t) ; for Emacs
(point (point-marker))
(mark (copy-marker (mark-marker))))
!
;; make sure point comes before mark, not all functions are
;; interactive "r"
(if (< mark point)
- [Emacs-diffs] Changes to emacs/lisp/mail/supercite.el,
Miles Bader <=