Converted backquote to the new style (in comments).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c6699bf7197071886c0d65f30a64707fd5ca3534..f39090f4a6900808eef764501d6c1bd36debe7e4 100644 (file)
--- 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 73fed571f4e582fb330b4d3a84b5876ca0bde27d..0ad52d5d7d724ffc88fe6b93e5a194a4ce3beebf 100644 (file)
--- 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 fa3f8b782f479220df5fa9d76cac0bf2d53da9dc..0811f8dd5744b200a6dfbc2ce76cba572fccab5a 100644 (file)
--- 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)