Mercurial > emacs
comparison lisp/mail/supercite.el @ 58581:56323d9f97e3
(sc-cite-region): Handle the case where sc-cite-frame-alist is a symbol.
(sc-uncite-region): Handle the case where sc-uncite-frame-alist is a symbol.
(sc-recite-region): Handle the case where sc-recite-frame-alist is a symbol.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Sat, 27 Nov 2004 17:12:32 +0000 |
| parents | 59c9a776a021 |
| children | 9a25f0f7fd26 |
comparison
equal
deleted
inserted
replaced
| 58580:d56eead5401d | 58581:56323d9f97e3 |
|---|---|
| 1432 | 1432 |
| 1433 When called interactively, the optional arg INTERACTIVE is non-nil, | 1433 When called interactively, the optional arg INTERACTIVE is non-nil, |
| 1434 and that means call `sc-select-attribution' too." | 1434 and that means call `sc-select-attribution' too." |
| 1435 (interactive "r\nP\np") | 1435 (interactive "r\nP\np") |
| 1436 (undo-boundary) | 1436 (undo-boundary) |
| 1437 (let ((frame (or (sc-scan-info-alist sc-cite-frame-alist) | 1437 (let ((frame (or (sc-scan-info-alist |
| 1438 (if (symbolp sc-cite-frame-alist) | |
| 1439 (symbol-value sc-cite-frame-alist) | |
| 1440 sc-cite-frame-alist)) | |
| 1438 sc-default-cite-frame)) | 1441 sc-default-cite-frame)) |
| 1439 (sc-confirm-always-p (if confirm-p t sc-confirm-always-p))) | 1442 (sc-confirm-always-p (if confirm-p t sc-confirm-always-p))) |
| 1440 (run-hooks 'sc-pre-cite-hook) | 1443 (run-hooks 'sc-pre-cite-hook) |
| 1441 (if interactive | 1444 (if interactive |
| 1442 (sc-select-attribution)) | 1445 (sc-select-attribution)) |
| 1445 (defun sc-uncite-region (start end) | 1448 (defun sc-uncite-region (start end) |
| 1446 "Uncite a region delineated by START and END. | 1449 "Uncite a region delineated by START and END. |
| 1447 First runs `sc-pre-uncite-hook'." | 1450 First runs `sc-pre-uncite-hook'." |
| 1448 (interactive "r") | 1451 (interactive "r") |
| 1449 (undo-boundary) | 1452 (undo-boundary) |
| 1450 (let ((frame (or (sc-scan-info-alist sc-uncite-frame-alist) | 1453 (let ((frame (or (sc-scan-info-alist |
| 1454 (if (symbolp sc-uncite-frame-alist) | |
| 1455 (symbol-value sc-uncite-frame-alist) | |
| 1456 sc-uncite-frame-alist)) | |
| 1451 sc-default-uncite-frame))) | 1457 sc-default-uncite-frame))) |
| 1452 (run-hooks 'sc-pre-uncite-hook) | 1458 (run-hooks 'sc-pre-uncite-hook) |
| 1453 (regi-interpret frame start end))) | 1459 (regi-interpret frame start end))) |
| 1454 | 1460 |
| 1455 (defun sc-recite-region (start end) | 1461 (defun sc-recite-region (start end) |
| 1457 First runs `sc-pre-recite-hook'." | 1463 First runs `sc-pre-recite-hook'." |
| 1458 (interactive "r") | 1464 (interactive "r") |
| 1459 (let ((sc-confirm-always-p t)) | 1465 (let ((sc-confirm-always-p t)) |
| 1460 (sc-select-attribution)) | 1466 (sc-select-attribution)) |
| 1461 (undo-boundary) | 1467 (undo-boundary) |
| 1462 (let ((frame (or (sc-scan-info-alist sc-recite-frame-alist) | 1468 (let ((frame (or (sc-scan-info-alist |
| 1469 (if (symbolp sc-recite-frame-alist) | |
| 1470 (symbol-value sc-recite-frame-alist) | |
| 1471 sc-recite-frame-alist)) | |
| 1463 sc-default-recite-frame))) | 1472 sc-default-recite-frame))) |
| 1464 (run-hooks 'sc-pre-recite-hook) | 1473 (run-hooks 'sc-pre-recite-hook) |
| 1465 (regi-interpret frame start end))) | 1474 (regi-interpret frame start end))) |
| 1466 | 1475 |
| 1467 | 1476 |