# HG changeset patch # User Sam Steingold # Date 1006884053 0 # Node ID 64ee9a4a698e801e2be008707f29598b34d6129e # Parent 775cb3632b29755322ab2d774cf49ec82e2eb8db Converted backquote to the new style (in comments). diff -r 775cb3632b29 -r 64ee9a4a698e lisp/ChangeLog --- a/lisp/ChangeLog Tue Nov 27 17:35:04 2001 +0000 +++ b/lisp/ChangeLog Tue Nov 27 18:00:53 2001 +0000 @@ -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 diff -r 775cb3632b29 -r 64ee9a4a698e lisp/mouse.el --- a/lisp/mouse.el Tue Nov 27 17:35:04 2001 +0000 +++ b/lisp/mouse.el Tue Nov 27 18:00:53 2001 +0000 @@ -743,7 +743,7 @@ (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 @@ ;;;!! ;; (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 -r 775cb3632b29 -r 64ee9a4a698e lisp/reposition.el --- a/lisp/reposition.el Tue Nov 27 17:35:04 2001 +0000 +++ b/lisp/reposition.el Tue Nov 27 18:00:53 2001 +0000 @@ -191,9 +191,8 @@ (- 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)