/[emacs]/emacs/lisp/mail/supercite.el
ViewVC logotype

Diff of /emacs/lisp/mail/supercite.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by rms, Fri Mar 8 21:08:19 2002 UTC revision 1.30.2.1 by miles, Fri Apr 4 06:20:27 2003 UTC
# Line 250  nil       -- do not cite the region at a Line 250  nil       -- do not cite the region at a
250               the number of lines in the region is greater than this               the number of lines in the region is greater than this
251               value, a warning message will be printed and the region               value, a warning message will be printed and the region
252               will not be cited.  Lines in region are counted with               will not be cited.  Lines in region are counted with
253               `count-lines'.               `count-lines'.
254    
255  The gathering of attribution information is not affected by the value  The gathering of attribution information is not affected by the value
256  of this variable.  The number of lines in the region is calculated  of this variable.  The number of lines in the region is calculated
# Line 595  If this is nil, Supercite keymap is not Line 595  If this is nil, Supercite keymap is not
595    (define-key sc-mode-map "\C-b" 'sc-submit-bug-report)    (define-key sc-mode-map "\C-b" 'sc-submit-bug-report)
596    (define-key sc-mode-map "?"    'sc-describe)    (define-key sc-mode-map "?"    'sc-describe)
597    )    )
598      
599  (defvar sc-electric-mode-map ()  (defvar sc-electric-mode-map ()
600    "Keymap for `sc-electric-mode' electric references mode.")    "Keymap for `sc-electric-mode' electric references mode.")
601  (if sc-electric-mode-map  (if sc-electric-mode-map
# Line 1152  supplied, is used instead of the line po Line 1152  supplied, is used instead of the line po
1152  This populates the `sc-attributions' with the list of possible attributions."  This populates the `sc-attributions' with the list of possible attributions."
1153    (if (and (stringp from)    (if (and (stringp from)
1154             (< 0 (length from)))             (< 0 (length from)))
1155        (let* ((sc-mumble "")                  (let* ((sc-mumble "")
1156               (namestring (sc-attribs-extract-namestring from))               (namestring (sc-attribs-extract-namestring from))
1157               (namelist   (sc-attribs-filter-namelist               (namelist   (sc-attribs-filter-namelist
1158                            (sc-attribs-chop-namestring namestring)))                            (sc-attribs-chop-namestring namestring)))
# Line 1164  This populates the `sc-attributions' wit Line 1164  This populates the `sc-attributions' wit
1164               (emailname  (sc-attribs-emailname from))               (emailname  (sc-attribs-emailname from))
1165               (n 1)               (n 1)
1166               author middlenames)               author middlenames)
1167        
1168          ;; put basic information          ;; put basic information
1169          (setq          (setq
1170           ;; put middle names and build sc-author entry           ;; put middle names and build sc-author entry
# Line 1342  to the auto-selected attribution string. Line 1342  to the auto-selected attribution string.
1342                (setq citation choice                (setq citation choice
1343                      attribution (or (sc-guess-attribution citation)                      attribution (or (sc-guess-attribution citation)
1344                                      citation))                                      citation))
1345                
1346              (setq citation (sc-make-citation choice)              (setq citation (sc-make-citation choice)
1347                    attribution choice))                    attribution choice))
1348            ))            ))
# Line 1543  First runs `sc-pre-uncite-hook'." Line 1543  First runs `sc-pre-uncite-hook'."
1543                     sc-default-uncite-frame)))                     sc-default-uncite-frame)))
1544      (run-hooks 'sc-pre-uncite-hook)      (run-hooks 'sc-pre-uncite-hook)
1545      (regi-interpret frame start end)))      (regi-interpret frame start end)))
1546          
1547  (defun sc-recite-region (start end)  (defun sc-recite-region (start end)
1548    "Recite a region delineated by START and END.    "Recite a region delineated by START and END.
1549  First runs `sc-pre-recite-hook'."  First runs `sc-pre-recite-hook'."
# Line 1702  error occurs." Line 1702  error occurs."
1702          (progn          (progn
1703            (eval ref)            (eval ref)
1704            (let ((lines (count-lines (point-min) (point-max))))            (let ((lines (count-lines (point-min) (point-max))))
1705              (or nomsg (message "Ref header %d [%d line%s]: %s"              (or nomsg (message "Ref header %d [%d line%s]: %s"
1706                                 sc-eref-style lines                                 sc-eref-style lines
1707                                 (if (= lines 1) "" "s")                                 (if (= lines 1) "" "s")
1708                                 ref))))                                 ref))))
# Line 2020  before, and `sc-post-hook' is run after Line 2020  before, and `sc-post-hook' is run after
2020           (mark-active t)                ; for Emacs           (mark-active t)                ; for Emacs
2021           (point (point-marker))           (point (point-marker))
2022           (mark  (copy-marker (mark-marker))))           (mark  (copy-marker (mark-marker))))
2023      
2024      ;; make sure point comes before mark, not all functions are      ;; make sure point comes before mark, not all functions are
2025      ;; interactive "r"      ;; interactive "r"
2026      (if (< mark point)      (if (< mark point)

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.30.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26