(dframe-reposition-frame-emacs): Fix position computation for 'left

location.
Update copyright year.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e0aa3b99faeff24d39b9f733ce109e77ab9f4e8..7950d5e4dbcb77fb7669026277a0efd3871ad7ec 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2005-11-30  Romain Francoise  <romain@orebokech.com>
+
+       * dframe.el (dframe-reposition-frame-emacs): Fix position
+       computation for 'left location.
+       Update copyright year.
+
 2005-11-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * help.el (help-map): Move initialization into declaration.

diff --git a/lisp/dframe.el b/lisp/dframe.el
index 4be0ee8f097e2b5c7b79a746598fe72f17f8fc65..56bbdc36c016af118f339bb6d715ceb7a555dfbf 100644 (file)
--- a/lisp/dframe.el
+++ b/lisp/dframe.el
@@ -1,6 +1,6 @@
 ;;; dframe --- dedicate frame support modes
 
-;;; Copyright (C) 1996, 97, 98, 99, 2000, 01, 02, 03, 04 Free Software Foundation
+;;; Copyright (C) 1996, 97, 98, 99, 2000, 01, 02, 03, 04, 05 Free Software Foundation
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: file, tags, tools
@@ -509,7 +509,7 @@ a cons cell indicationg a position of the form (LEFT . TOP)."
             (setq newleft (+ pfx pfw 5)
                   newtop pfy))
            ((eq location 'left)
-            (setq newleft (+ pfx 10 nfw)
+            (setq newleft (- pfx 10 nfw)
                   newtop pfy))
            ((eq location 'left-right)
             (setq newleft