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 |
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 |
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))) |
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 |
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 |
)) |
)) |
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'." |
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)))) |
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) |