# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1133379613 0
# Node ID fd62535b63a8357ed59e483cb6d1d4c5e8d1dc4e
# Parent  371499b11b3c564c6c466c4ccc826ffb34b68c38
(dframe-reposition-frame-emacs): Fix position computation for 'left
location.
Update copyright year.

diff -r 371499b11b3c -r fd62535b63a8 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 30 19:06:42 2005 +0000
+++ b/lisp/ChangeLog	Wed Nov 30 19:40:13 2005 +0000
@@ -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 -r 371499b11b3c -r fd62535b63a8 lisp/dframe.el
--- a/lisp/dframe.el	Wed Nov 30 19:06:42 2005 +0000
+++ b/lisp/dframe.el	Wed Nov 30 19:40:13 2005 +0000
@@ -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 @@
 	     (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