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

location.
Update copyright year.

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e0aa3b99fa..7950d5e4dbc 100644
--- 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 4be0ee8f097..56bbdc36c01 100644
--- 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