Mercurial > hg > xemacs-beta
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 |