comparison lisp/mouse.el @ 778:2923009caf47

[xemacs-hg @ 2002-03-16 10:38:59 by ben] cm.c, file-coding.c: fix warnings. .cvsignore: Those pesky *.tmp files. mule\arabic.el, mule\canna-leim.el, mule\china-util.el, mule\chinese.el, mule\cyril-util.el, mule\cyrillic.el, mule\devan-util.el, mule\devanagari.el, mule\english.el, mule\ethio-util.el, mule\ethiopic.el, mule\european.el, mule\greek.el, mule\hebrew.el, mule\indian.el, mule\japan-util.el, mule\japanese.el, mule\korea-util.el, mule\korean.el, mule\lao-util.el, mule\lao.el, mule\misc-lang.el, mule\mule-charset.el, mule\mule-cmds.el, mule\thai-util.el, mule\thai.el, mule\tibet-util.el, mule\tibetan.el, mule\viet-util.el, mule\vietnamese.el, unicode.el: Fix lots of warnings. Sync up some files to FSF 21.1. Copy over all charset definitions from FSF 21.1, convert them to our format, and stick them in the relevant files. Eventually we will actually be able to dump these files (though they may not quite work). autoload.el: Support defun*, defmacro*. mule/mule-composite.el, mule/mule-composite-stub.el: New file, stubs for nonexistent composition funs/vars. mule/viet-chars.el, dumped-lisp.el: Account for these changes. font.el, mouse.el, msw-font-menu.el, printer.el, startup.el: fix warnings.
author ben
date Sat, 16 Mar 2002 10:39:19 +0000
parents 79940b592197
children e38acbeb1cae
comparison
equal deleted inserted replaced
777:e65d9cf16707 778:2923009caf47
220 EVENT should be the button event that initiated the drag. 220 EVENT should be the button event that initiated the drag.
221 Returns whether a drag was begun." 221 Returns whether a drag was begun."
222 ;; #### barely implemented. 222 ;; #### barely implemented.
223 (when (click-inside-selection-p event) 223 (when (click-inside-selection-p event)
224 (cond ((featurep 'offix) 224 (cond ((featurep 'offix)
225 (offix-start-drag-region 225 (declare-fboundp
226 event 226 (offix-start-drag-region
227 (extent-start-position zmacs-region-extent) 227 event
228 (extent-end-position zmacs-region-extent)) 228 (extent-start-position zmacs-region-extent)
229 (extent-end-position zmacs-region-extent)))
229 t) 230 t)
230 ((featurep 'cde) 231 ((featurep 'cde)
231 ;; should also work with CDE 232 ;; should also work with CDE
232 (cde-start-drag-region event 233 (declare-fboundp
233 (extent-start-position zmacs-region-extent) 234 (cde-start-drag-region event
234 (extent-end-position zmacs-region-extent)) 235 (extent-start-position zmacs-region-extent)
236 (extent-end-position zmacs-region-extent)))
235 t)))) 237 t))))
236 238
237 (defun mouse-eval-sexp (click force-window) 239 (defun mouse-eval-sexp (click force-window)
238 "Evaluate the sexp under the mouse. Usually, this is the last sexp before 240 "Evaluate the sexp under the mouse. Usually, this is the last sexp before
239 the click, but if you click on a left paren, then it is the sexp beginning 241 the click, but if you click on a left paren, then it is the sexp beginning