Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
77:6cb4f478e7bc 78:c7528f8e288d
794 (defun cde-start-drag (begin end) 794 (defun cde-start-drag (begin end)
795 "Implements the CDE drag operation. 795 "Implements the CDE drag operation.
796 Calls the internal function cde-start-drag-internal to do the actual work." 796 Calls the internal function cde-start-drag-internal to do the actual work."
797 (interactive "_r") 797 (interactive "_r")
798 (if (featurep 'cde) 798 (if (featurep 'cde)
799 (cde-start-drag-internal (buffer-substring-no-properties begin end)) 799 ;; Avoid build-time doc string warning by calling the function
800 ;; in the following roundabout way:
801 (funcall (intern "cde-start-drag-internal")
802 (buffer-substring-no-properties begin end))
800 (error "CDE functionality not compiled in."))) 803 (error "CDE functionality not compiled in.")))
801 804
802 805
803 ;;; Application-specific frame-management 806 ;;; Application-specific frame-management
804 807