[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107945: Use auto-hscroll-mode rather than the alias automatic-hscrolling

[Glenn Morris]

------------------------------------------------------------
revno: 107945
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Mon 2012-04-16 20:04:53 -0400
message:
  Use auto-hscroll-mode rather than the alias automatic-hscrolling
  
  * lisp/mouse.el (mouse-drag-track):
  * lisp/speedbar.el (speedbar-frame-mode):
  Use auto-hscroll-mode rather than the alias automatic-hscrolling.
modified:
  lisp/ChangeLog
  lisp/mouse.el
  lisp/speedbar.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-16 23:57:09 +0000
+++ b/lisp/ChangeLog    2012-04-17 00:04:53 +0000
@@ -1,3 +1,9 @@
+2012-04-17  Glenn Morris  <address@hidden>
+
+       * mouse.el (mouse-drag-track):
+       * speedbar.el (speedbar-frame-mode):
+       Use auto-hscroll-mode rather than the alias automatic-hscrolling.
+
 2012-04-16  Leo Liu  <address@hidden>
 
        * progmodes/python.el: Trivial cleanup.

=== modified file 'lisp/mouse.el'
--- a/lisp/mouse.el     2012-01-19 07:21:25 +0000
+++ b/lisp/mouse.el     2012-04-17 00:04:53 +0000
@@ -1,6 +1,6 @@
 ;;; mouse.el --- window system-independent mouse support
 
-;; Copyright (C) 1993-1995, 1999-2012  Free Software Foundation, Inc.
+;; Copyright (C) 1993-1995, 1999-2012 Free Software Foundation, Inc.
 
 ;; Maintainer: FSF
 ;; Keywords: hardware, mouse
@@ -805,8 +805,8 @@
                                  (= click-count 1)))
         ;; Suppress automatic hscrolling, because that is a nuisance
         ;; when setting point near the right fringe (but see below).
-        (automatic-hscrolling-saved automatic-hscrolling)
-        (automatic-hscrolling nil)
+        (auto-hscroll-mode-saved auto-hscroll-mode)
+        (auto-hscroll-mode nil)
         event end end-point)
 
     (setq mouse-selection-click-count click-count)
@@ -838,7 +838,7 @@
          ;; Automatic hscrolling did not occur during the call to
          ;; `read-event'; but if the user subsequently drags the
          ;; mouse, go ahead and hscroll.
-         (let ((automatic-hscrolling automatic-hscrolling-saved))
+         (let ((auto-hscroll-mode auto-hscroll-mode-saved))
            (redisplay))
          (setq end (event-end event)
                end-point (posn-point end))

=== modified file 'lisp/speedbar.el'
--- a/lisp/speedbar.el  2012-03-10 07:58:54 +0000
+++ b/lisp/speedbar.el  2012-04-17 00:04:53 +0000
@@ -1,6 +1,6 @@
 ;;; speedbar --- quick access to files and tags in a frame
 
-;; Copyright (C) 1996-2012  Free Software Foundation, Inc.
+;; Copyright (C) 1996-2012 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <address@hidden>
 ;; Keywords: file, tags, tools
@@ -1022,7 +1022,7 @@
   (set (make-local-variable 'dframe-delete-frame-function)
        'speedbar-handle-delete-frame)
   ;; hscroll
-  (set (make-local-variable 'automatic-hscrolling) nil) ; Emacs 21
+  (set (make-local-variable 'auto-hscroll-mode) nil)
   ;; reset the selection variable
   (setq speedbar-last-selected-file nil))