summaryrefslogtreecommitdiff
path: root/lisp/mouse.el
Commit message (Collapse)AuthorAgeFilesLines
* * lisp/subr.el (posn-point, posn-string): Fix it here instead.Stefan Monnier2013-03-201-2/+1
| | | | | | * lisp/mouse.el (mouse-on-link-p): Undo scroll-bar fix. Fixes: debbugs:13979
* * lisp/mouse.el (mouse--down-1-maybe-follows-link): Fix follow-linkStefan Monnier2013-03-191-1/+8
| | | | | remapping in mode-line. (mouse-on-link-p): Also check [mode-line follow-link] bindings.
* * mouse.el (mouse-on-link-p): Check for scroll bar.Jan Djärv2013-03-181-1/+2
| | | | Fixes: debbugs:13979
* * lisp/mouse.el (mouse-drag-track): Remove left-over debugging code.Stefan Monnier2013-03-091-1/+0
|
* Separate mouse-1-click-follows-link from mouse-drag-region.Stefan Monnier2013-03-081-50/+44
| | | | | | | | | | | | * lisp/mouse.el (mouse--down-1-maybe-follows-link): New function. (key-translation-map): Use it to implement mouse-1-click-follows-link. (mouse-drag-line, mouse-drag-track): Remove mouse-1-click-follows-link code. (mouse--remap-link-click-p): Remove. * src/keyboard.c (access_keymap_keyremap): Accept nil return value from functions to mean "no change". * src/keyboard.h (EVENT_START, EVENT_END, POSN_WINDOW, POSN_POSN) (POSN_WINDOW_POSN, POSN_TIMESTAMP): Be careful since events may come from Elisp via unread-command-events.
* mouse.el commentGlenn Morris2013-02-061-0/+2
|
* * lisp/mouse.el (mouse-drag-track): Always deactivate the mark beforeStefan Monnier2013-02-011-1/+1
| | | | | | | running the final event's command since that command is in charge of activating the mark if needed. Fixes: debbugs:13523
* mouse-drag-line changes for mouse-1 in header-lineGlenn Morris2013-01-301-32/+27
| | | | | | | | * lisp/mouse.el (mouse-drag-line): Avoid pushing same event onto unread-command-events twice in some cases. This tries to implement the 2012-07-26 changes in a different way. Fixes: debbugs:13560
* Update copyright notices for 2013.Paul Eggert2013-01-011-1/+1
|
* Fix follow-mouse clicks on undraggable mode/header lines.Chong Yidong2012-11-241-7/+7
| | | | | | | | * mouse.el (mouse-drag-line): Even if the line is not draggable, keep reading until we get the up-event anyway, in order to process the up-event for mouse-1-click-follows-link. Fixes: debbugs:12971
* Fix bug#12731 in mouse-drag-line.Martin Rudalics2012-10-261-2/+2
| | | | | | | * mouse.el (mouse-drag-line): Move last form into preceding when clause (Bug#12731). * help.el (resize-temp-buffer-window): Fix doc-string.
* Merge from trunkDaniel Colascione2012-10-071-3/+3
|\
| * Use declare forms, where possible, to mark obsolete functions.Chong Yidong2012-09-251-3/+3
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | * lisp/allout.el (allout-passphrase-hint-string): Likewise. (allout-init): Use a declare form to mark obsolete. * lisp/calendar/calendar.el (calendar-version): * lisp/calendar/icalendar.el (icalendar-extract-ical-from-buffer) (icalendar-convert-diary-to-ical): * lisp/cus-edit.el (custom-mode): * lisp/ansi-color.el (ansi-color-unfontify-region): * lisp/international/latin1-disp.el (latin1-char-displayable-p): * lisp/progmodes/cwarn.el (turn-on-cwarn-mode): * lisp/progmodes/which-func.el (which-func-update-1): Use define-obsolete-function-alias. * lisp/bookmark.el (bookmark-jump-noselect): Use a declare form to mark this function obsolete. * lisp/calendar/cal-x.el (calendar-two-frame-setup) (calendar-only-one-frame-setup, calendar-one-frame-setup): * lisp/calendar/calendar.el (american-calendar, european-calendar) (calendar-for-loop): * lisp/comint.el (comint-dynamic-simple-complete) (comint-dynamic-complete-as-filename, comint-unquote-filename): * lisp/desktop.el (desktop-load-default): * lisp/dired-x.el (dired-omit-here-always) (dired-hack-local-variables, dired-default-directory): * lisp/emacs-lisp/derived.el (derived-mode-class): * lisp/emacs-lisp/timer.el (timer-set-time-with-usecs): * lisp/emacs-lock.el (toggle-emacs-lock): * lisp/epa.el (epa-display-verify-result): * lisp/epg.el (epg-sign-keys, epg-start-sign-keys) (epg-passphrase-callback-function): * lisp/eshell/esh-util.el (eshell-for): * lisp/eshell/eshell.el (eshell-remove-from-window-buffer-names) (eshell-add-to-window-buffer-names): * lisp/files.el (locate-file-completion): * lisp/imenu.el (imenu-example--create-c-index) (imenu-example--create-lisp-index) (imenu-example--lisp-extract-index-name) (imenu-example--name-and-position): * lisp/international/mule-cmds.el (princ-list): * lisp/international/mule-diag.el (decode-codepage-char): * lisp/international/mule-util.el (detect-coding-with-priority): * lisp/iswitchb.el (iswitchb-read-buffer): * lisp/mail/mailalias.el (mail-complete): * lisp/mail/sendmail.el (mail-sent-via): * lisp/mouse.el (mouse-popup-menubar-stuff, mouse-popup-menubar) (mouse-major-mode-menu): * lisp/password-cache.el (password-read-and-add): * lisp/pcomplete.el (pcomplete-parse-comint-arguments): * lisp/progmodes/sh-script.el (sh-maybe-here-document): * lisp/replace.el (query-replace-regexp-eval): * lisp/savehist.el (savehist-load): * lisp/simple.el (choose-completion-delete-max-match): * lisp/term.el (term-dynamic-simple-complete): * lisp/vc/ediff-init.el (ediff-check-version): * lisp/vc/ediff-wind.el (ediff-choose-window-setup-function-automatically): * lisp/vc/vc.el (vc-diff-switches-list): * lisp/view.el (view-return-to-alist-update): Likewise. * lisp/iswitchb.el (iswitchb-read-buffer): Move code of iswitchb-define-mode-map here, and delete that obsolete function. * lisp/subr.el (eval-next-after-load, makehash, insert-string) (assoc-ignore-representation, assoc-ignore-case): Use declare to mark obsolete. (mode-line-inverse-video): Variable deleted. * lisp/emacs-lisp/byte-run.el (make-obsolete): Doc fix; emphasize that this applies to functions. * lisp/erc/erc.el (erc-send-command): Use define-obsolete-function-alias. * lisp/international/mule-util.el (string-to-sequence): Remove. * lisp/net/newst-backend.el (newsticker-cache-filename): * lisp/net/newst-treeview.el (newsticker-groups-filename): Fix incorrect obsolescence declaration. * lisp/net/snmp-mode.el (snmp-font-lock-keywords-3): Don't use obsolete font-lock-reference-face. * lisp/url/url-parse.el (url-recreate-url-attributes): * lisp/url/url-util.el (url-generate-unique-filename): Use declare to mark obsolete. * src/xdisp.c (mode_line_inverse_video): Delete obsolete variable.
* | Implement cygw32Daniel Colascione2012-09-171-1/+1
|/ | | | | | | | | | | | | | | | | | | | | | | | | | | Here, we use the generic window-system configuration system we just implemented to support the w32 window-system in the mainline build under Cygwin. (Previously, the w32 window system could only be compiled as part of the NT-native Emacs build process.) The changes in this patch need to be applied atomically in order to avoid breaking Emacs. The changes include: - Changes throughout the Lisp and C code to not assume that NT Emacs and the w32 window system are synonymous. - Wiring up the regular select(2) event loop to Windows messages - Cleaning up the w32 drag-and-drop receiving code. - Exposing Cygwin path conversion functions to elisp. - Unicode file dialog support when compiling for Cygwin. - Splitting the w32 term lisp initialization code into code applicable to any w32 window-system and code specific to system-type windows-nt. - Integrating the old and new w32 code into the build system.
* Allow face-remapping using :font, and use it in mouse-appearance-menu.Chong Yidong2012-08-171-6/+8
| | | | | | | | | | | | * mouse.el (mouse-appearance-menu): If x-select-font returns a font spec, set the font directly. * xfaces.c (merge_face_vectors): If the target font specfies a font spec, make the font's attributes take precedence over directly-specified attributes. (merge_face_ref): Recognize :font. Fixes: debbugs:3228
* * lisp/term/x-win.el (x-menu-bar-open): Always pass last-nonmenu-event.Stefan Monnier2012-08-101-20/+9
| | | | | | | | * lisp/subr.el (eventp): `nil' is not an event, and eventp is not hot. (event-start, event-end): Use posn-at-point to return a more informative posn. (posnp): New function. * lisp/mouse.el (popup-menu-normalize-position): Use it.
* * lisp/mouse.el (popup-menu-normalize-position): New function.Masatake YAMATO2012-08-101-17/+35
| | | | | | | | (popup-menu): Use `popup-menu-normalize-position' to normalize the form for POSITION argument. * lisp/term/x-win.el (x-menu-bar-open): Use the value returend from (posn-at-point) as position passed to `popup-menu'.
* In mouse-drag-line don't exit tracking prematurely (Bug#12006).Martin Rudalics2012-07-261-24/+47
| | | | | | * mouse.el (popup-menu): Fix doc-string and re-indent code. (mouse-drag-line): Don't exit tracking when a switch-frame or switch-window event occurs (Bug#12006).
* * lisp/mouse.el (popup-menu): Fix last change.Stefan Monnier2012-07-251-1/+1
|
* * lisp/term/x-win.el (x-menu-bar-open): Use `frame-parameter'Masatake YAMATO2012-07-201-4/+13
| | | | | | to check whether menu-bar is shown or not. If not shown, show the menu-bar as a popup menu instead of using tmm. * lisp/mouse.el (popup-menu): Accept `point' as `position' argument.
* Fix interaction of line-dragging with mouse-1-click-follows-link.Chong Yidong2012-07-081-97/+59
| | | | | | | | | | * lisp/mouse.el (mouse-drag-line): Rewrite the track-mouse loop. Implement the mouse-1-click-follows-link handling properly. * lisp/info.el (Info-link-keymap): Use follow-link mechanism for header-line links. Fixes: debbugs:374
* Fix last commit.Chong Yidong2012-06-231-3/+0
|
* * mouse.el (mouse-drag-track): Deactivate the mark before popping.Chong Yidong2012-06-231-4/+9
|
* Do not set mark on single mouse-1 clicks.Chong Yidong2012-06-131-6/+9
| | | | | | | * mouse.el (mouse-drag-track): Do not set the mark if the user releases the mouse without selecting anything. Fixes: debbugs:11588
* Add new error and function `user-error'.Stefan Monnier2012-05-041-1/+1
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | * lisp/subr.el (user-error): New function. * lisp/window.el (switch-to-buffer): * lisp/vc/smerge-mode.el (smerge-resolve-function, smerge-resolve) (smerge-match-conflict): * lisp/simple.el (previous-matching-history-element) (next-matching-history-element, goto-history-element, undo-more) (undo-start): * lisp/progmodes/etags.el (visit-tags-table-buffer, find-tag-tag) (find-tag-noselect, find-tag-in-order, etags-goto-tag-location) (next-file, tags-loop-scan, list-tags, complete-tag): * lisp/progmodes/compile.el (compilation-loop): * lisp/mouse.el (mouse-minibuffer-check): * lisp/man.el (Man-bgproc-sentinel, Man-goto-page): * lisp/info.el (Info-find-node-2, Info-extract-pointer, Info-history-back) (Info-history-forward, Info-follow-reference, Info-menu) (Info-extract-menu-item, Info-extract-menu-counting) (Info-forward-node, Info-backward-node, Info-next-menu-item) (Info-last-menu-item, Info-next-preorder, Info-last-preorder) (Info-next-reference, Info-prev-reference, Info-index) (Info-index-next, Info-follow-nearest-node) (Info-copy-current-node-name): * lisp/imenu.el (imenu--make-index-alist) (imenu-default-create-index-function, imenu-add-to-menubar): * lisp/files.el (basic-save-buffer, recover-file): * lisp/emacs-lisp/easy-mmode.el (easy-mmode-define-navigation): * lisp/emacs-lisp/checkdoc.el (checkdoc-continue, checkdoc-comments) (checkdoc-message-text, checkdoc-defun): * lisp/dabbrev.el (dabbrev-completion, dabbrev--abbrev-at-point): * lisp/cus-edit.el (customize-changed-options, customize-rogue) (customize-saved, custom-variable-set, custom-variable-mark-to-save) (custom-variable-mark-to-reset-standard) (custom-variable-reset-backup, custom-face-mark-to-reset-standard) (custom-file): * lisp/completion.el (check-completion-length): * lisp/comint.el (comint-search-arg) (comint-previous-matching-input-string-position) (comint-previous-matching-input) (comint-replace-by-expanded-history-before-point, comint-send-input) (comint-copy-old-input, comint-backward-matching-input) (comint-goto-process-mark, comint-set-process-mark): * lisp/calendar/calendar.el (calendar-cursor-to-date): Use it. * lisp/bindings.el (debug-ignored-errors): Remove regexps, add `user-error'. * src/data.c (PUT_ERROR): New macro. (syms_of_data): Use it. Add new error type `user-error'. * src/undo.c (user_error): New function. (Fprimitive_undo): Use it. * src/print.c (print_error_message): Adjust print style for `user-error'. * src/keyboard.c (user_error): New function. (Fexit_recursive_edit, Fabort_recursive_edit): Use it.
* Merge changes from emacs-24 branchChong Yidong2012-04-271-12/+11
|\
| * Fix resizing of minibuffer windows (Bug#11276).Martin Rudalics2012-04-201-12/+11
| | | | | | | | | | | | | | * window.el (adjust-window-trailing-edge, enlarge-window) (shrink-window, window-resize): * mouse.el (mouse-drag-line): Fix resizing of minibuffer windows (Bug#11276).
* | lisp/*: Add declarations, remove unused bindings, mark unused args.Juanma Barranquero2012-04-191-2/+1
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | * lisp/avoid.el (mouse-avoidance-mode): Mark unused arg. (mouse-avoidance-nudge-mouse): Remove unused binding. * lisp/imenu.el (imenu-default-goto-function): Mark unused args. (imenu-progress-message): Remove obsolete macro; all callers changed. * lisp/mouse.el (mouse-menu-major-mode-map): * lisp/emacs-lisp/authors.el (authors-scan-change-log) (authors-add-to-author-list): * lisp/emacs-lisp/avl-tree.el (avl-tree--enter-balance): * lisp/emacs-lisp/smie.el (smie-auto-fill): * lisp/mail/sendmail.el (mail-bury): * lisp/mail/unrmail.el (unrmail): * lisp/net/tls.el (open-tls-stream): * lisp/textmodes/picture.el (picture-mouse-set-point): Remove unused bindings. * lisp/subr.el (keymap-canonicalize): Remove unused binding. (read-passwd): Mark unused arg. * lisp/tutorial.el (tutorial--display-changes): Remove unused binding. (tutorial--save-tutorial-to): Remove unused variable. * lisp/emacs-lisp/package.el (define-package, package-menu-mark-delete) (package-menu-mark-install, package-menu-mark-unmark): Mark unused args. (package-generate-autoloads, package-menu--generate) (package-menu--find-upgrades): Remove unused bindings. * lisp/emulation/cua-rect.el (cua-restrict-regexp-rectangle) (cua-restrict-prefix-rectangle): Doc fixes. Remove unused bindings. (cua--mouse-ignore, cua--delete-rectangle, cua--extract-rectangle) (cua--indent-rectangle, cua-open-rectangle, cua-close-rectangle) (cua-blank-rectangle, cua-string-rectangle, cua-replace-in-rectangle) (cua-incr-rectangle, cua-sequence-rectangle, cua--convert-rectangle-as) (cua--rectangle-aux-replace, cua--left-fill-rectangle) (cua-scroll-rectangle-up, cua-scroll-rectangle-down) (cua-delete-char-rectangle): Mark unused args. (cua-align-rectangle): Remove unused binding. * lisp/mail/rmail.el (compilation--message->loc) (epa--find-coding-system-for-mime-charset): Declare. * lisp/net/dbus.el (dbus-register-service): Declare. (dbus-name-owner-changed-handler): Remove unused binding. * lisp/nxml/nxml-mode.el (nxml-electric-slash, nxml-in-mixed-content-p) (nxml-compute-indent-from-matching-start-tag): Remove unused variables. (nxml-scan-backward-within): Mark unused arg. (nxml-dynamic-markup-word): Remove unused binding.
* | Use auto-hscroll-mode rather than the alias automatic-hscrollingGlenn Morris2012-04-161-4/+4
|/ | | | | | * lisp/mouse.el (mouse-drag-track): * lisp/speedbar.el (speedbar-frame-mode): Use auto-hscroll-mode rather than the alias automatic-hscrolling.
* Add 2012 to FSF copyright years for Emacs filesGlenn Morris2012-01-051-1/+1
|
* Spelling fixes.Paul Eggert2011-12-301-1/+1
|
* * lisp/mouse.el (mouse-yank-primary): Push the mark.Chong Yidong2011-10-291-5/+6
| | | | Fixes: debbugs:9894
* In mouse-drag-line correctly use window-in-direction.Martin Rudalics2011-10-221-3/+4
|
* Fix minibuffer resizing.Martin Rudalics2011-10-221-1/+3
| | | | | * mouse.el (mouse-drag-line): Fix minibuffer resizing broken by last change.
* Fix and improve mouse-dragging of horizontal/vertical lines.Martin Rudalics2011-10-211-277/+141
| | | | | | | | | | | * mouse.el (mouse-drag-window-above) (mouse-drag-move-window-bottom, mouse-drag-move-window-top) (mouse-drag-mode-line-1, mouse-drag-header-line) (mouse-drag-vertical-line-rightward-window): Remove. (mouse-drag-line): New function. (mouse-drag-mode-line, mouse-drag-header-line) (mouse-drag-vertical-line): Call mouse-drag-line. * window.el (window-at-side-p, windows-at-side): New functions.
* * lisp/mouse.el (mouse-drag-mode-line-1): Modify the end-event we pushed onStefan Monnier2011-10-141-2/+4
| | | | unread-command-events rather than pushing yet-another event.
* * mouse.el (mouse-drag-track): Set scroll-margin to 0 while tracking.Chong Yidong2011-09-241-1/+2
| | | | Fixes: debbugs:9541
* mouse-set-region doc fixLars Magne Ingebrigtsen2011-07-141-1/+3
| | | | | * mouse.el (mouse-set-region): Link to `mouse-drag-copy-region' in the doc string (bug#7015).
* * lisp/mouse.el (mouse--strip-first-event): New function.Stefan Monnier2011-07-011-7/+9
| | | | (function-key-map): Use it to map fringe clicks to normal clicks by default.
* * lisp/minibuffer.el (minibuffer-inactive-mode-map): New var.Stefan Monnier2011-06-011-13/+4
| | | | | | | | (minibuffer-inactive-mode): New major mode. * src/minibuf.c (get_minibuffer, read_minibuf_unwind): Call it. * lisp/mouse.el (mouse-drag-region): Remove the "mouse-1 pops up the *Messages* buffer" hack. (mouse-popup-menubar): Don't burp if the event is a normal key.
* Merge from emacs-23; up to 2010-06-09T17:54:28Z!albinus@detlef.Glenn Morris2011-04-221-0/+3
|\
| * Handle deferred `event-kind' property when using unread-command-events.Chong Yidong2011-04-091-0/+3
| | | | | | | | | | * src/mouse.el (mouse-drag-mode-line-1): Make sure that if we push mouse-2 into unread-command-events, it is interpreted correctly.
* | * lisp/mouse.el (mouse-buffer-menu-mode-groups): Add a "GDB" group.Sam Steingold2011-02-041-0/+2
| |
* | undo 2011-02-01T18:15:18Z!sds@gnu.org (purecopy-cons, purecopy-car) at ↵Sam Steingold2011-02-011-1/+1
| | | | | | | | Stefan Monnier's request
* | * lisp/subr.el (purecopy-cons, purecopy-car): Add shortcuts.Sam Steingold2011-02-011-1/+1
| | | | | | | | | | | | | | | | | | | | | | | | * lisp/faces.el (face-x-resources): Use `purecopy-cons'. * lisp/files.el (auto-mode-alist, interpreter-mode-alist): Use `purecopy-car'. * lisp/international/fontset.el (font-encoding-alist): Ditto. * lisp/international/mule-conf.el (file-coding-system-alist): Ditto. * lisp/international/mule.el (auto-coding-alist) (auto-coding-regexp-alist): Ditto. * lisp/mouse.el (mouse-buffer-menu-mode-groups): Use `purecopy-cons'. * lisp/term/x-win.el (x-gtk-stock-map): Ditto.
* | Merge changes from emacs-23 branchChong Yidong2011-01-311-3/+3
|\ \ | |/
| * * mouse.el (mouse-menu-non-singleton): Doc fix (Bug#7801).Chong Yidong2011-01-281-3/+3
| |
* | Convert consecutive FSF copyright years to ranges.Glenn Morris2011-01-241-2/+1
| |
* | Merge from emacs-23Stefan Monnier2011-01-141-1/+1
|\ \ | |/
| * Add 2011 to FSF/AIST copyright years.Glenn Morris2011-01-021-1/+1
| |
View Lorry Controller Status