Mercurial > emacs

changeset 58952:5c34e026a96e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(sc-cite-frame-alist): Doc fix. (sc-cite-region, sc-uncite-region, sc-recite-region): Fix previous change to handle not alist as a symbol, but a citation frame as a symbol that represents a variable name.
author Juri Linkov <juri@jurta.org>
date Tue, 14 Dec 2004 00:53:05 +0000
parents c7ebd794182b
children fa562c0fdafe
files lisp/mail/supercite.el
diffstat 1 files changed, 15 insertions(+), 17 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/supercite.el	Tue Dec 14 00:51:02 2004 +0000
+++ b/lisp/mail/supercite.el	Tue Dec 14 00:53:05 2004 +0000
@@ -146,8 +146,9 @@
              (...)))
 
 Where INFOKEY is a key for `sc-mail-field', REGEXP is a regular
-expression to match against the INFOKEY's value.  FRAME is a citation
-frame, or a variable containing a citation frame."
+expression to match against the INFOKEY's value.  FRAME is
+a citation frame, or a symbol that represents the name of
+a variable whose value is a citation frame."
   :type '(repeat (list symbol (repeat (cons regexp
 					    (choice (repeat (repeat sexp))
 						    symbol)))))
@@ -1434,12 +1435,11 @@
 and that means call `sc-select-attribution' too."
   (interactive "r\nP\np")
   (undo-boundary)
-  (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))
+  (let ((frame (sc-scan-info-alist sc-cite-frame-alist))
 	(sc-confirm-always-p (if confirm-p t sc-confirm-always-p)))
+    (if (and frame (symbolp frame))
+	(setq frame (symbol-value frame)))
+    (or frame (setq frame sc-default-cite-frame))
     (run-hooks 'sc-pre-cite-hook)
     (if interactive
 	(sc-select-attribution))
@@ -1450,11 +1450,10 @@
 First runs `sc-pre-uncite-hook'."
   (interactive "r")
   (undo-boundary)
-  (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)))
+  (let ((frame (sc-scan-info-alist sc-uncite-frame-alist)))
+    (if (and frame (symbolp frame))
+	(setq frame (symbol-value frame)))
+    (or frame (setq frame sc-default-uncite-frame))
     (run-hooks 'sc-pre-uncite-hook)
     (regi-interpret frame start end)))
 
@@ -1465,11 +1464,10 @@
   (let ((sc-confirm-always-p t))
     (sc-select-attribution))
   (undo-boundary)
-  (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)))
+  (let ((frame (sc-scan-info-alist sc-recite-frame-alist)))
+    (if (and frame (symbolp frame))
+	(setq frame (symbol-value frame)))
+    (or frame (setq frame sc-default-recite-frame))
     (run-hooks 'sc-pre-recite-hook)
     (regi-interpret frame start end)))