Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

* dframe.el (dframe-mouse-position-function)

Browse source 
(dframe-reposition-frame-emacs, dframe-pass-event-to-popup-mode-menu)
(dframe-mouse-set-point): Fix typos in docstrings.
This commit is contained in:
Juanma Barranquero 2008-11-04 09:48:55 +00:00
parent a72000251e
commit ca68aad82b
2 changed files with 19 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-11-04 Juanma Barranquero <lekktu@gmail.com>
* dframe.el (dframe-mouse-position-function)
(dframe-reposition-frame-emacs, dframe-pass-event-to-popup-mode-menu)
(dframe-mouse-set-point): Fix typos in docstrings.
2008-11-04 Dan Nicolaescu <dann@ics.uci.edu>
* vc-dir.el (vc-dir-headers): Undo previous change.
@ -29,8 +35,8 @@
* subr.el (looking-back): Doc fix.
* term/x-win.el (x-initialize-window-system): Call
x-wm-set-size-hint after initialization.
* term/x-win.el (x-initialize-window-system):
Call x-wm-set-size-hint after initialization.
* eshell/em-hist.el (eshell-save-history-on-exit): Change default
to t.
@ -47,20 +53,20 @@
2008-11-02 Martin Rudalics <rudalics@gmx.at>
* window.el (save-selected-window-norecord): New macro
* window.el (save-selected-window-norecord): New macro.
(walk-windows): Use save-selected-window-norecord and call
select-window with NORECORD set. (Bug#1237)
(set-window-text-height, fit-window-to-buffer): Use
save-selected-window-norecord and call select-window with
(set-window-text-height, fit-window-to-buffer):
Use save-selected-window-norecord and call select-window with
NORECORD set.
* subr.el (with-selected-window): Call set-frame-selected-window
with new argument NORECORD set. Update doc-string.
(with-selected-frame): Call select-frame with new argument
NORECORD set. Update doc-string.
* emacs-lisp/lisp-mode.el (save-selected-window-norecord): Put
indent-function for save-selected-window-norecord.
* font-lock.el (lisp-font-lock-keywords-2): Add
save-selected-window-norecord.
* emacs-lisp/lisp-mode.el (save-selected-window-norecord):
Put indent-function for save-selected-window-norecord.
* font-lock.el (lisp-font-lock-keywords-2):
Add save-selected-window-norecord.
2008-11-01 Juanma Barranquero <lekktu@gmail.com>

8
lisp/dframe.el
View file

@ -173,7 +173,7 @@ Valid clicks are mouse 2, our double mouse 1.")
(make-variable-buffer-local 'dframe-mouse-click-function)
(defvar dframe-mouse-position-function nil
"*A function to called to position the cursor for a mouse click.")
"*A function to call to position the cursor for a mouse click.")
(make-variable-buffer-local 'dframe-mouse-position-function)
(defvar dframe-power-click nil
@ -424,7 +424,7 @@ LOCATION can be one of 'random, 'left, 'right, 'left-right, or 'top-bottom."
(defun dframe-reposition-frame-emacs (new-frame parent-frame location)
"Move NEW-FRAME to be relative to PARENT-FRAME.
LOCATION can be one of 'random, 'left-right, 'top-bottom, or
a cons cell indicationg a position of the form (LEFT . TOP)."
a cons cell indicating a position of the form (LEFT . TOP)."
;; Position dframe.
;; Do no positioning if not on a windowing system,
(unless (or (not window-system) (eq window-system 'pc))
@ -766,7 +766,7 @@ Evaluates all cached timer functions in sequence."
(fboundp 'function-max-args)
(setq max-args (function-max-args 'popup-mode-menu))
(not (zerop max-args))))
"The EVENT arg to 'popup-mode-menu' was introduced in XEmacs 21.4.0.")
"The EVENT arg to `popup-mode-menu' was introduced in XEmacs 21.4.0.")
;; In XEmacs, we make popup menus work on the item over mouse (as
;; opposed to where the point happens to be.) We attain this by
@ -852,7 +852,7 @@ BUFFER and POSITION are optional because XEmacs doesn't use them."
(funcall dframe-help-echo-function))))))
(defun dframe-mouse-set-point (e)
"Set POINT based on event E.
"Set point based on event E.
Handles clicking on images in XEmacs."
(if (and (featurep 'xemacs)
(save-excursion