Mercurial > emacs
changeset 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 | d56eead5401d |
| children | bd39ecda6aea |
| files | lisp/mail/supercite.el |
| diffstat | 1 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/supercite.el Sat Nov 27 12:59:57 2004 +0000 +++ b/lisp/mail/supercite.el Sat Nov 27 17:12:32 2004 +0000 @@ -1434,7 +1434,10 @@ and that means call `sc-select-attribution' too." (interactive "r\nP\np") (undo-boundary) - (let ((frame (or (sc-scan-info-alist sc-cite-frame-alist) + (let ((frame (or (sc-scan-info-alist + (if (symbolp sc-cite-frame-alist) + (symbol-value sc-cite-frame-alist) + sc-cite-frame-alist)) sc-default-cite-frame)) (sc-confirm-always-p (if confirm-p t sc-confirm-always-p))) (run-hooks 'sc-pre-cite-hook) @@ -1447,7 +1450,10 @@ First runs `sc-pre-uncite-hook'." (interactive "r") (undo-boundary) - (let ((frame (or (sc-scan-info-alist sc-uncite-frame-alist) + (let ((frame (or (sc-scan-info-alist + (if (symbolp sc-uncite-frame-alist) + (symbol-value sc-uncite-frame-alist) + sc-uncite-frame-alist)) sc-default-uncite-frame))) (run-hooks 'sc-pre-uncite-hook) (regi-interpret frame start end))) @@ -1459,7 +1465,10 @@ (let ((sc-confirm-always-p t)) (sc-select-attribution)) (undo-boundary) - (let ((frame (or (sc-scan-info-alist sc-recite-frame-alist) + (let ((frame (or (sc-scan-info-alist + (if (symbolp sc-recite-frame-alist) + (symbol-value sc-recite-frame-alist) + sc-recite-frame-alist)) sc-default-recite-frame))) (run-hooks 'sc-pre-recite-hook) (regi-interpret frame start end)))