* emulation/edt-mapper.el (edt-emacs-variant): Replace the only

use with the definition. Remove.

* add-log.el (change-log-start-entry-re): New defconst.
(change-log-sortable-date-at): Use it.
(change-log-beginning-of-defun, change-log-end-of-defun): New
functions.
(change-log-mode): Use them for beginning-of-defun-function and
end-of-defun-function.

* erc-ibuffer.el (erc-modified-channels-alist): Pacify
byte-compiler.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1c034582a15a89b6f01a19c327018f33b0e31171..b7a6a0dafa6251fa7ebf4e49b1ba02f827bfa7a1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2007-10-25  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * emulation/edt-mapper.el (edt-emacs-variant): Replace the only
+       use with the definition. Remove.
+
+       * add-log.el (change-log-start-entry-re): New defconst.
+       (change-log-sortable-date-at): Use it.
+       (change-log-beginning-of-defun, change-log-end-of-defun): New
+       functions.
+       (change-log-mode): Use them for beginning-of-defun-function and
+       end-of-defun-function.
+
 2007-10-25  Jonathan Yavner  <jyavner@member.fsf.org>
 
        * ses.el: Make `ses--symbolic-formulas' a safe local variable.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 5ec498619061774a8891f9f259652120b4252fa2..3ca1b613955e3da72f5f1d7b7425443f30ea6ad9 100644 (file)
--- a/lisp/add-log.el
+++ b/lisp/add-log.el
@@ -763,6 +763,10 @@ Runs `change-log-mode-hook'.
        '(change-log-font-lock-keywords t nil nil backward-paragraph))
   (set (make-local-variable 'isearch-buffers-next-buffer-function)
        'change-log-next-buffer)
+  (set (make-local-variable 'beginning-of-defun-function) 
+       'change-log-beginning-of-defun)
+  (set (make-local-variable 'end-of-defun-function) 
+       'change-log-end-of-defun)
   (isearch-buffers-minor-mode))
 
 (defun change-log-next-buffer (&optional buffer wrap)
@@ -1095,11 +1099,13 @@ Has a preference of looking backwards."
          (change-log-get-method-definition-1 ""))
        (concat change-log-get-method-definition-md "]"))))))
 \f
+(defconst change-log-start-entry-re "^\\sw.........[0-9:+ ]*")
+
 (defun change-log-sortable-date-at ()
   "Return date of log entry in a consistent form for sorting.
 Point is assumed to be at the start of the entry."
   (require 'timezone)
-  (if (looking-at "^\\sw.........[0-9:+ ]*")
+  (if (looking-at change-log-start-entry-re)
       (let ((date (match-string-no-properties 0)))
        (if date
            (if (string-match "\\(....\\)-\\(..\\)-\\(..\\)\\s-+" date)
@@ -1186,6 +1192,32 @@ old-style time formats for entries are supported."
              (goto-char (point-max)))
            (insert-buffer-substring other-buf start)))))))
 
+(defun change-log-beginning-of-defun ()
+  (re-search-backward change-log-start-entry-re nil 'move))
+
+(defun change-log-end-of-defun ()
+  ;; Look back and if there is no entry there it means we are before
+  ;; the first ChangeLog entry, so go forward until finding one.
+  (unless (save-excursion (re-search-backward change-log-start-entry-re nil t))
+    (re-search-forward change-log-start-entry-re nil t))
+
+  ;; In case we are at the end of log entry going forward a line will
+  ;; make us find the next entry when searching. If we are inside of
+  ;; an entry going forward a line will still keep the point inside
+  ;; the same entry.
+  (forward-line 1)
+
+  ;; In case we are at the beginning of an entry, move past it.
+  (when (looking-at change-log-start-entry-re)
+    (goto-char (match-end 0))
+    (forward-line 1))
+
+  ;; Search for the start of the next log entry.  Go to the end of the
+  ;; buffer if we could not find a next entry.
+  (when (re-search-forward change-log-start-entry-re nil 'move)
+    (goto-char (match-beginning 0))
+    (forward-line -1)))
+
 (provide 'add-log)
 
 ;; arch-tag: 81eee6fc-088f-4372-a37f-80ad9620e762

diff --git a/lisp/emulation/edt-mapper.el b/lisp/emulation/edt-mapper.el
index 484cfe58b3ab7841bb60fd5089657e0005921336..d26c88b751f93c5e7062a67a6a22a7aca6c50c35 100644 (file)
--- a/lisp/emulation/edt-mapper.el
+++ b/lisp/emulation/edt-mapper.el
@@ -118,12 +118,6 @@
 ;;;  Decide Emacs Variant, GNU Emacs or XEmacs (aka Lucid Emacs).
 ;;;  Determine Window System, and X Server Vendor (if appropriate).
 ;;;
-(defconst (featurep 'xemacs) (string-match "XEmacs" emacs-version)
-  "Non-nil if we are running XEmacs version 19, or higher.")
-
-(defconst edt-emacs-variant (if (featurep 'xemacs) "xemacs" "gnu")
-  "Indicates Emacs variant:  GNU Emacs or XEmacs \(aka Lucid Emacs\).")
-
 (defconst edt-window-system (if (featurep 'xemacs) (console-type) window-system)
   "Indicates window system \(in GNU Emacs\) or console type \(in XEmacs\).")
 
@@ -514,7 +508,7 @@
 ;;;  Save the key mapping file
 ;;;
 (let ((file (concat
-            "~/.edt-" edt-emacs-variant
+            "~/.edt-" (if (featurep 'xemacs) "xemacs" "gnu")
             (if edt-term (concat "-" edt-term))
             (if edt-xserver (concat "-" edt-xserver))
             (if edt-window-system (concat "-" (upcase (symbol-name edt-window-system))))

diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog
index fb824f0899607cc32928694e2325f399b2081c1c..09882be34b82d85c93c73a230253d027c1ad2797 100644 (file)
--- a/lisp/erc/ChangeLog
+++ b/lisp/erc/ChangeLog
@@ -1,3 +1,8 @@
+2007-10-25  Dan Nicolaescu  <dann@ics.uci.edu>
+
+       * erc-ibuffer.el (erc-modified-channels-alist): Pacify
+       byte-compiler.
+
 2007-10-13  Glenn Morris  <rgm@gnu.org>
 
        * erc-track.el (erc-modified-channels-update): Use mapc rather

diff --git a/lisp/erc/erc-ibuffer.el b/lisp/erc/erc-ibuffer.el
index ae256b877faa07841d7f2c4d328a302e5296de46..e4de3c1fe506b4328887b63d2458bf1c8d1a66c0 100644 (file)
--- a/lisp/erc/erc-ibuffer.el
+++ b/lisp/erc/erc-ibuffer.el
@@ -71,6 +71,8 @@
         (string-match qualifier (or erc-server-announced-name
                                     erc-session-server)))))
 
+(defvar erc-modified-channels-alist)
+
 (define-ibuffer-column erc-modified (:name "M")
   (if (and (boundp 'erc-track-mode)
           erc-track-mode)