Mercurial > emacs

--- a/lisp/ChangeLog	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/ChangeLog	Sat Oct 20 06:30:18 2007 +0000
@@ -1,3 +1,42 @@
+2007-10-20  Dan Nicolaescu  <dann@ics.uci.edu>
+
+	* term/x-win.el (x-gtk-stock-map, icon-map-list)
+	(x-gtk-map-stock): Delete duplicated definitions from merge.
+
+	* progmodes/octave-mod.el: Require octave-inf at compile time
+
+	* progmodes/compile.el (compilation-skip-to-next-location)
+	(compilation-skip-threshold, compilation-skip-visited): Move
+	definitions earlier.
+
+	* play/zone.el (zone-fall-through-ws):
+	* play/landmark.el (lm-move-down, lm-move-up):
+	* play/handwrite.el (handwrite):
+	* mail/mspools.el (mspools-visit-spool):
+	* wdired.el (wdired-next-line, wdired-previous-line):
+	* tar-mode.el (tar-subfile-save-buffer):
+	* scroll-lock.el (scroll-lock-next-line)
+	(scroll-lock-previous-line):
+	* image-dired.el (image-dired-next-line)
+	(image-dired-previous-line):
+	* ediff-help.el (ediff-help-message-line-length): Use
+	forward-line.
+
+	* smerge-mode.el (smerge-auto-refine):
+	* diff-mode.el (diff-auto-refine): Add :group.
+
+	* play/yow.el: Require doctor at compile time.
+
+	* vmsproc.el: Provide vmsproc.
+	(command-send-input): Use forward-line.
+
+	* vms-patch.el: Require ps-print and vmsproc at compile time.
+
+	* vc-mtn.el (log-view-message-re, log-view-file-re)
+	(log-view-font-lock-keywords): Pacify byte-compiler.
+
+	* vc-hg.el: Require log-view at compile time.
+
 2007-10-20  Eric S. Raymond  <esr@snark.thyrsus.com>

 	* log-view.el (log-view-diff): Adapt log-view-diff for new VC API.
--- a/lisp/diff-mode.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/diff-mode.el	Sat Oct 20 06:30:18 2007 +0000
@@ -92,7 +92,8 @@

 (defcustom diff-auto-refine t
   "Automatically highlight changes in detail as the user visits hunks."
-  :type 'boolean)
+  :type 'boolean
+  :group 'diff-mode)

 (defcustom diff-mode-hook nil
   "Run after setting up the `diff-mode' major mode."
--- a/lisp/ediff-help.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/ediff-help.el	Sat Oct 20 06:30:18 2007 +0000
@@ -258,7 +258,7 @@
   (save-excursion
     (goto-char (point-min))
     (if ediff-use-long-help-message
-	(next-line 1))
+	(forward-line 1))
     (end-of-line)
     (current-column)))
--- a/lisp/image-dired.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/image-dired.el	Sat Oct 20 06:30:18 2007 +0000
@@ -1137,7 +1137,7 @@
 (defun image-dired-next-line ()
   "Move to next line and display properties."
   (interactive)
-  (next-line 1)
+  (forward-line 1)
   ;; If we end up in an empty spot, back up to the next thumbnail.
   (if (not (image-dired-image-at-point-p))
       (image-dired-backward-image))
@@ -1149,7 +1149,7 @@
 (defun image-dired-previous-line ()
   "Move to previous line and display properties."
   (interactive)
-  (previous-line 1)
+  (forward-line -1)
   ;; If we end up in an empty spot, back up to the next
   ;; thumbnail. This should only happen if the user deleted a
   ;; thumbnail and did not refresh, so it is not very common. But we
--- a/lisp/mail/mspools.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/mail/mspools.el	Sat Oct 20 06:30:18 2007 +0000
@@ -272,9 +272,9 @@
 			     (end-of-line)
 			     (point)))
 	      mspools-files-len)
-	  (next-line (- 1 mspools-files-len)) ;back to top of list
+	  (forward-line (- 1 mspools-files-len)) ;back to top of list
 	;; else just on to next line
-	(next-line 1))
+	(forward-line 1))

       ;; Choose whether to use VM or RMAIL for reading folder.
       (if mspools-using-vm
--- a/lisp/play/handwrite.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/play/handwrite.el	Sat Oct 20 06:30:18 2007 +0000
@@ -226,7 +226,7 @@
 	(forward-line 1)
 	))
     (switch-to-buffer ps-buf-name)
-    (next-line 1)
+    (forward-line 1)
     (insert "showpage exec Hwsave restore\n\n")
     (insert "%%Pages " (number-to-string ipage) " 0\n")
     (insert "%%EOF\n")
--- a/lisp/play/landmark.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/play/landmark.el	Sat Oct 20 06:30:18 2007 +0000
@@ -1052,13 +1052,13 @@
   "Move point down one row on the Lm board."
   (interactive)
   (if (< (lm-point-y) lm-board-height)
-      (next-line 1)));;; lm-square-height)))
+      (forward-line 1)));;; lm-square-height)))

 (defun lm-move-up ()
   "Move point up one row on the Lm board."
   (interactive)
   (if (> (lm-point-y) 1)
-      (previous-line lm-square-height)))
+      (forward-line (- lm-square-height))))

 (defun lm-move-ne ()
   "Move point North East on the Lm board."
--- a/lisp/play/yow.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/play/yow.el	Sat Oct 20 06:30:18 2007 +0000
@@ -35,6 +35,7 @@
 ;;; Code:

 (require 'cookie1)
+(eval-when-compile (require 'doctor))

 (defgroup yow nil
   "Quote random zippyisms."
--- a/lisp/play/zone.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/play/zone.el	Sat Oct 20 06:30:18 2007 +0000
@@ -489,7 +489,7 @@
          (wait 0.15)
          newpos fall-p)
     (while (when (save-excursion
-                   (next-line 1)
+                   (forward-line 1)
                    (and (= col (current-column))
                         (setq newpos (point))
                         (string= spaces (buffer-substring-no-properties
--- a/lisp/progmodes/compile.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/progmodes/compile.el	Sat Oct 20 06:30:18 2007 +0000
@@ -619,6 +619,31 @@
   "If non-nil, automatically jump to the next error encountered.")
 (make-variable-buffer-local 'compilation-auto-jump-to-next)

+
+(defvar compilation-skip-to-next-location t
+  "*If non-nil, skip multiple error messages for the same source location.")
+
+(defcustom compilation-skip-threshold 1
+  "Compilation motion commands skip less important messages.
+The value can be either 2 -- skip anything less than error, 1 --
+skip anything less than warning or 0 -- don't skip any messages.
+Note that all messages not positively identified as warning or
+info, are considered errors."
+  :type '(choice (const :tag "Warnings and info" 2)
+		 (const :tag "Info" 1)
+		 (const :tag "None" 0))
+  :group 'compilation
+  :version "22.1")
+
+(defcustom compilation-skip-visited nil
+  "Compilation motion commands skip visited messages if this is t.
+Visited messages are ones for which the file, line and column have been jumped
+to from the current content in the current compilation buffer, even if it was
+from a different message."
+  :type 'boolean
+  :group 'compilation
+  :version "22.1")
+
 (defun compilation-face (type)
   (or (and (car type) (match-end (car type)) compilation-warning-face)
       (and (cdr type) (match-end (cdr type)) compilation-info-face)
@@ -1266,30 +1291,6 @@

 (put 'compilation-mode 'mode-class 'special)

-(defvar compilation-skip-to-next-location t
-  "*If non-nil, skip multiple error messages for the same source location.")
-
-(defcustom compilation-skip-threshold 1
-  "Compilation motion commands skip less important messages.
-The value can be either 2 -- skip anything less than error, 1 --
-skip anything less than warning or 0 -- don't skip any messages.
-Note that all messages not positively identified as warning or
-info, are considered errors."
-  :type '(choice (const :tag "Warnings and info" 2)
-		 (const :tag "Info" 1)
-		 (const :tag "None" 0))
-  :group 'compilation
-  :version "22.1")
-
-(defcustom compilation-skip-visited nil
-  "Compilation motion commands skip visited messages if this is t.
-Visited messages are ones for which the file, line and column have been jumped
-to from the current content in the current compilation buffer, even if it was
-from a different message."
-  :type 'boolean
-  :group 'compilation
-  :version "22.1")
-
 ;;;###autoload
 (defun compilation-mode (&optional name-of-mode)
   "Major mode for compilation log buffers.
--- a/lisp/scroll-lock.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/scroll-lock.el	Sat Oct 20 06:30:18 2007 +0000
@@ -88,7 +88,7 @@
   (or arg (setq arg 1))
   (scroll-lock-update-goal-column)
   (if (pos-visible-in-window-p (point-max))
-      (next-line arg)
+      (forward-line arg)
     (scroll-up arg))
   (scroll-lock-move-to-column scroll-lock-temporary-goal-column))

@@ -99,7 +99,7 @@
   (scroll-lock-update-goal-column)
   (condition-case nil
       (scroll-down arg)
-    (beginning-of-buffer (previous-line arg)))
+    (beginning-of-buffer (forward-line (- arg))))
   (scroll-lock-move-to-column scroll-lock-temporary-goal-column))

 (defun scroll-lock-forward-paragraph (&optional arg)
--- a/lisp/smerge-mode.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/smerge-mode.el	Sat Oct 20 06:30:18 2007 +0000
@@ -81,6 +81,7 @@

 (defcustom smerge-auto-refine t
   "Automatically highlight changes in detail as the user visits conflicts."
+  :group 'smerge
   :type 'boolean)

 (defface smerge-mine
--- a/lisp/tar-mode.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/tar-mode.el	Sat Oct 20 06:30:18 2007 +0000
@@ -1210,7 +1210,7 @@
 	    ;;
 	    (let ((position (- (length tar-parse-info) (length head))))
 	      (goto-char (point-min))
-	      (next-line position)
+	      (forward-line position)
 	      (beginning-of-line)
 	      (let ((p (point))
 		    after
--- a/lisp/term/x-win.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/term/x-win.el	Sat Oct 20 06:30:18 2007 +0000
@@ -2679,62 +2679,5 @@

 (provide 'x-win)

-(defcustom x-gtk-stock-map
-  '(
-    ("etc/images/new" . "gtk-new")
-    ("etc/images/open" . "gtk-open")
-    ("etc/images/diropen" . "n:system-file-manager")
-    ("etc/images/close" . "gtk-close")
-    ("etc/images/save" . "gtk-save")
-    ("etc/images/saveas" . "gtk-save-as")
-    ("etc/images/undo" . "gtk-undo")
-    ("etc/images/cut" . "gtk-cut")
-    ("etc/images/copy" . "gtk-copy")
-    ("etc/images/paste" . "gtk-paste")
-    ("etc/images/search" . "gtk-find")
-    ("etc/images/print" . "gtk-print")
-    ("etc/images/preferences" . "gtk-preferences")
-    ("etc/images/help" . "gtk-help")
-    ("etc/images/left-arrow" . "gtk-go-back")
-    ("etc/images/right-arrow" . "gtk-go-forward")
-    ("etc/images/home" . "gtk-home")
-    ("etc/images/jump-to" . "gtk-jump-to")
-    ("etc/images/index" . "gtk-index")
-    ("etc/images/search" . "gtk-find")
-    ("etc/images/exit" . "gtk-quit"))
-  "How icons for tool bars are mapped to Gtk+ stock items.
-Emacs must be compiled with the Gtk+ toolkit for this to have any effect.
-A value that begins with n: denotes a named icon instead of a stock icon."
-  :version "22.2"
-  :type 'alist
-  :group 'x)
-
-(defvar icon-map-list nil
-  "*A list of alists that maps icon file names to stock/named icons.
-The alists are searched in the order they appear.  The first match is used.
-The keys in the alists are file names without extension and with two directory
-components.  For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm
-to stock item gtk-open, use:
-
-  (\"etc/images/open\" . \"gtk-open\")
-
-Themes also have named icons.  To map to one of those, use n: before the name:
-
-  (\"etc/images/diropen\" . \"n:system-file-manager\")
-
-The list elements are either the symbol name for the alist or the alist itself.")
-
-(defun x-gtk-map-stock (file)
-  "Map icon with file name FILE to a Gtk+ stock name, using `x-gtk-stock-map'."
-  (let* ((file-sans (file-name-sans-extension file))
-	 (key (and (string-match "/\\([^/]+/[^/]+/[^/]+$\\)" file-sans)
-		   (match-string 1 file-sans)))
-	 (value))
-    (mapc (lambda (elem)
- 	    (let ((assoc (if (symbolp elem) (symbol-value elem) elem)))
-	      (or value (setq value (assoc-string (or key file-sans) assoc)))))
-	    icon-map-list)
-    (and value (cdr value))))
-
 ;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
 ;;; x-win.el ends here
--- a/lisp/vc-hg.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/vc-hg.el	Sat Oct 20 06:30:18 2007 +0000
@@ -481,6 +481,7 @@
     (vc-hg-incoming-mode)))

 ;; XXX maybe also add key bindings for these functions.
+(eval-when-compile (require 'log-view))
 (defun vc-hg-push ()
   (interactive)
   (let ((marked-list (log-view-get-marked)))
--- a/lisp/vc-mtn.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/vc-mtn.el	Sat Oct 20 06:30:18 2007 +0000
@@ -150,6 +150,10 @@
 (defun vc-mtn-print-log (files &optional buffer)
   (vc-mtn-command buffer 0 files "log"))

+(defvar log-view-message-re)
+(defvar log-view-file-re)
+(defvar log-view-font-lock-keywords)
+
 (define-derived-mode vc-mtn-log-view-mode log-view-mode "Mtn-Log-View"
   ;; TODO: Not sure what to do about file markers for now.
   (set (make-local-variable 'log-view-file-re) "\\'\\`")
--- a/lisp/vms-patch.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/vms-patch.el	Sat Oct 20 06:30:18 2007 +0000
@@ -27,6 +27,10 @@

 ;;; Code:

+(eval-when-compile
+  (require 'ps-print)
+  (require 'vmsproc))
+
 (setq auto-mode-alist (cons '(("\\.com\\'" . dcl-mode)) auto-mode-alist))

 ;;; Functions that need redefinition
--- a/lisp/vmsproc.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/vmsproc.el	Sat Oct 20 06:30:18 2007 +0000
@@ -122,11 +122,11 @@
 		(send-command-to-subprocess 1 current-line)
 		(if command-prefix-string
 		    (progn (beginning-of-line) (insert command-prefix-string)))
-		(next-line 1))))
+		(forward-line 1))))
       ;; else -- if not at last line in buffer
       (goto-char (point-max))
       (backward-char)
-      (next-line 1)
+      (forward-line 1)
       (insert
        (if (compare-strings command-prefix-string nil nil
                             current-line 0 (length command-prefix-string))
@@ -141,5 +141,7 @@

 (define-key esc-map "$" 'subprocess-command)

+(provide 'vmsproc)
+
 ;; arch-tag: 600b2512-f903-4887-bcd2-e76b306f5b66
 ;;; vmsproc.el ends here
--- a/lisp/wdired.el	Sat Oct 20 06:26:37 2007 +0000
+++ b/lisp/wdired.el	Sat Oct 20 06:30:18 2007 +0000
@@ -499,7 +499,7 @@
 See `wdired-use-dired-vertical-movement'.  Optional prefix ARG
 says how many lines to move; default is one line."
   (interactive "p")
-  (next-line arg)
+  (forward-line arg)
   (if (or (eq wdired-use-dired-vertical-movement t)
 	  (and wdired-use-dired-vertical-movement
 	       (< (current-column)
@@ -512,7 +512,7 @@
 See `wdired-use-dired-vertical-movement'.  Optional prefix ARG
 says how many lines to move; default is one line."
   (interactive "p")
-  (previous-line arg)
+  (forward-line (- arg))
   (if (or (eq wdired-use-dired-vertical-movement t)
 	  (and wdired-use-dired-vertical-movement
 	       (< (current-column)