diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 1 | ||||
| -rw-r--r-- | lisp/mouse.el | 4 | ||||
| -rw-r--r-- | lisp/reposition.el | 5 |
3 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c6699bf7197..f39090f4a69 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -7,6 +7,7 @@ * progmodes/dcl-mode.el, progmodes/idlw-shell.el, progmodes/idlwave.el * term/sun-mouse.el, textmodes/artist.el: Converted backquote to the new style. + * mouse.el, reposition.el: Likewise (in comments). 2001-11-27 Richard M. Stallman <rms@gnu.org> diff --git a/lisp/mouse.el b/lisp/mouse.el index 73fed571f4e..0ad52d5d7d7 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -743,7 +743,7 @@ remains active. Otherwise, it remains until the next input event." (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) mouse-drag-overlay start-point) (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) - + ;; In case we did not get a mouse-motion event ;; for the final move of the mouse before a drag event ;; pretend that we did get one. @@ -1860,7 +1860,7 @@ and selects that window." ;;;!! ;; (abs-x (car pos)) ;;;!! ;; (abs-y (cdr pos)) ;;;!! ;; (relative-coordinate -;;;!! ;; (coordinates-in-window-p (` ((, abs-x) (, abs-y))) +;;;!! ;; (coordinates-in-window-p `(,abs-x ,abs-y) ;;;!! ;; (selected-window))) ;;;!! ;; (begin-reg nil) ;;;!! ;; (end-reg nil) diff --git a/lisp/reposition.el b/lisp/reposition.el index fa3f8b782f4..0811f8dd574 100644 --- a/lisp/reposition.el +++ b/lisp/reposition.el @@ -191,9 +191,8 @@ first comment line visible (if point is in a comment)." (- lines)))) ;; (defmacro repos-debug-macro (case-no) -;; (` (message -;; (concat "Case " (, case-no) ": %s %s %s %s %s") -;; ht line comment-height defun-height defun-depth))) +;; `(message (concat "Case " ,case-no ": %s %s %s %s %s") +;; ht line comment-height defun-height defun-depth)) (provide 'reposition) |