[Emacs-diffs] Changes to emacs/lisp/calc/calc-yank.el,v

[Jay Belanger]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Jay Belanger <jpb>      08/05/19 02:42:29

Index: calc-yank.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/calc/calc-yank.el,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -b -r1.31 -r1.32
--- calc-yank.el        18 May 2008 20:34:02 -0000      1.31
+++ calc-yank.el        19 May 2008 02:42:28 -0000      1.32
@@ -156,9 +156,9 @@
 text) or `nil'."
   (let ((cval (cdr (assq reg calc-register-alist)))
         (val (cdr (assq reg register-alist))))
+    (if (stringp val)
     (if (and (stringp (car cval))
-             (stringp val))
-        (if (string= (car cval) val)
+                 (string= (car cval) val))
             (cdr cval)
           val))))