aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSam Steingold2001-11-27 18:00:53 +0000
committerSam Steingold2001-11-27 18:00:53 +0000
commitb2013aad9bdfc147a7351c058cbf672bc5bdcbcc (patch)
treee1fd04fc209cca4156729c9c9b3702899b3e0e53
parentc88e534769189eef199408527a753c8b6302f7ee (diff)
downloademacs-b2013aad9bdfc147a7351c058cbf672bc5bdcbcc.tar.gz
emacs-b2013aad9bdfc147a7351c058cbf672bc5bdcbcc.zip
Converted backquote to the new style (in comments).
-rw-r--r--lisp/ChangeLog1
-rw-r--r--lisp/mouse.el4
-rw-r--r--lisp/reposition.el5
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 @@
7 * progmodes/dcl-mode.el, progmodes/idlw-shell.el, progmodes/idlwave.el 7 * progmodes/dcl-mode.el, progmodes/idlw-shell.el, progmodes/idlwave.el
8 * term/sun-mouse.el, textmodes/artist.el: 8 * term/sun-mouse.el, textmodes/artist.el:
9 Converted backquote to the new style. 9 Converted backquote to the new style.
10 * mouse.el, reposition.el: Likewise (in comments).
10 11
112001-11-27 Richard M. Stallman <rms@gnu.org> 122001-11-27 Richard M. Stallman <rms@gnu.org>
12 13
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."
743 (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) 743 (mouse-scroll-subr start-window (1+ (- mouse-row bottom))
744 mouse-drag-overlay start-point) 744 mouse-drag-overlay start-point)
745 (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) 745 (setq end-of-range (overlay-end mouse-drag-overlay))))))))))
746 746
747 ;; In case we did not get a mouse-motion event 747 ;; In case we did not get a mouse-motion event
748 ;; for the final move of the mouse before a drag event 748 ;; for the final move of the mouse before a drag event
749 ;; pretend that we did get one. 749 ;; pretend that we did get one.
@@ -1860,7 +1860,7 @@ and selects that window."
1860;;;!! ;; (abs-x (car pos)) 1860;;;!! ;; (abs-x (car pos))
1861;;;!! ;; (abs-y (cdr pos)) 1861;;;!! ;; (abs-y (cdr pos))
1862;;;!! ;; (relative-coordinate 1862;;;!! ;; (relative-coordinate
1863;;;!! ;; (coordinates-in-window-p (` ((, abs-x) (, abs-y))) 1863;;;!! ;; (coordinates-in-window-p `(,abs-x ,abs-y)
1864;;;!! ;; (selected-window))) 1864;;;!! ;; (selected-window)))
1865;;;!! ;; (begin-reg nil) 1865;;;!! ;; (begin-reg nil)
1866;;;!! ;; (end-reg nil) 1866;;;!! ;; (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)."
191 (- lines)))) 191 (- lines))))
192 192
193;; (defmacro repos-debug-macro (case-no) 193;; (defmacro repos-debug-macro (case-no)
194;; (` (message 194;; `(message (concat "Case " ,case-no ": %s %s %s %s %s")
195;; (concat "Case " (, case-no) ": %s %s %s %s %s") 195;; ht line comment-height defun-height defun-depth))
196;; ht line comment-height defun-height defun-depth)))
197 196
198(provide 'reposition) 197(provide 'reposition)
199 198