Mercurial > hg > xemacs-beta

diff lisp/prim/frame.el @ 78:c7528f8e288d r20-0b34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b34
author cvs
date Mon, 13 Aug 2007 09:05:42 +0200
parents c0c698873ce1
children 1ce6082ce73f
line wrap: on
line diff
--- a/lisp/prim/frame.el	Mon Aug 13 09:05:11 2007 +0200
+++ b/lisp/prim/frame.el	Mon Aug 13 09:05:42 2007 +0200
@@ -796,7 +796,10 @@
 Calls the internal function cde-start-drag-internal to do the actual work."
   (interactive "_r")
   (if (featurep 'cde)
-      (cde-start-drag-internal (buffer-substring-no-properties begin end))
+      ;; Avoid build-time doc string warning by calling the function
+      ;; in the following roundabout way:
+      (funcall (intern "cde-start-drag-internal")
+	       (buffer-substring-no-properties begin end))
     (error "CDE functionality not compiled in.")))