changeset 41611:64ee9a4a698e

Converted backquote to the new style (in comments).
author Sam Steingold <sds@gnu.org>
date Tue, 27 Nov 2001 18:00:53 +0000
parents 775cb3632b29
children 83f879e86675
files lisp/ChangeLog lisp/mouse.el lisp/reposition.el
diffstat 3 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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  <rms@gnu.org>
 
--- 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)
--- 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)