From 8a2c27b96c3650af79b2cf436eca75da849f2549 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Wed, 30 Nov 2005 19:40:13 +0000 Subject: [PATCH] (dframe-reposition-frame-emacs): Fix position computation for 'left location. Update copyright year. --- lisp/ChangeLog | 6 ++++++ lisp/dframe.el | 4 ++-- 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 + + * 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 -- 2.39.5