[prev in list] [next in list] [prev in thread] [next in thread] 

List:       kde-commits
Subject:    kdesdk/scripts/kde-emacs
From:       David Faure <faure () kde ! org>
Date:       2004-04-06 17:37:43
Message-ID: 20040406173743.4A54090E3 () office ! kde ! org
[Download RAW message or body]

CVS commit by faure: 

Fixed off by one in the 'namespace support for agulbra-make-member'


  M +2 -1      kde-emacs-utils.el   1.46


--- kdesdk/scripts/kde-emacs/kde-emacs-utils.el  #1.45:1.46
@@ -103,5 +103,6 @@
         ; This is a modified version of (backward-up-list) which doesn't
         ; throw an error when not found.
-        (goto-char (or (scan-lists (point) -1 1 nil t) (buffer-end -1)))
+        (let ((pos (scan-lists (point) -1 1 nil t)))
+          (goto-char (if pos (+ pos 1) (point-min))))
         ))
     (progn


[prev in list] [next in list] [prev in thread] [next in thread]