From: Romain Francoise Date: Wed, 30 Nov 2005 19:40:13 +0000 (+0000) Subject: (dframe-reposition-frame-emacs): Fix position computation for 'left X-Git-Tag: emacs-pretest-22.0.90~5582 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a2c27b96c3650af79b2cf436eca75da849f2549;p=emacs.git (dframe-reposition-frame-emacs): Fix position computation for 'left location. Update copyright year. --- 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 + + * dframe.el (dframe-reposition-frame-emacs): Fix position + computation for 'left location. + Update copyright year. + 2005-11-30 Stefan Monnier * 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 ;; 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