Merge from emacs--rel--22

Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1121

9 files changed, 59 insertions, 39 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27f8a12fc16..3c5a1e6994e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,36 @@
+2008-04-12  Nick Roberts  <nickrob@snap.net.nz>
+
+        * progmodes/gdb-ui.el (gdb-init-buffer): New function.
+        (gdb-set-gud-minor-mode-existing-buffers)
+        (gdb-info-breakpoints-custom, gdb-get-location)
+        (gdb-set-gud-minor-mode-existing-buffers-1): Use it.
+        Previously gdb-create-define-alist wasn't always run and added to
+        after-save-hook.
+
+        * progmodes/gud.el (gud-tooltip-tips): Use tooltip-event-buffer
+
+2008-04-12  Kevin Ryde  <user42@zip.com.au>
+
+        * progmodes/make-mode.el (makefile-fill-paragraph): Treat indented
+        comments like unindented ones.
+
+2008-04-12  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+
+        * term/mac-win.el (mac-ae-open-documents): Adjust selection range
+        parameter origins.
+
+2008-04-11  Kevin Ryde  <user42@zip.com.au>
+
+        * emacs-lisp/autoload.el (autoload-generate-file-autoloads):
+        Bind print-level to ensure output forms aren't truncated if
+        print-level is set to eval-expression-print-level when going via
+        eval-defun and friends, or has been otherwise fiddled with.
+
+2008-04-08  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+        * progmodes/cc-mode.el (c-basic-common-init): Don't set
+        font-lock-extend-after-change-region-function globally.
+
 2008-04-23  Juanma Barranquero  <lekktu@gmail.com>
 
         * speedbar.el (speedbar-use-tool-tips-flag)
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index e6bca3b15dd..377d6c3f699 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -335,6 +335,7 @@ Return non-nil iff FILE adds no autoloads to OUTFILE
     (let ((autoloads-done '())
           (load-name (autoload-file-load-name file))
           (print-length nil)
+          (print-level nil)
           (print-readably t)           ; This does something in Lucid Emacs.
           (float-output-format nil)
           (visited (get-file-buffer file))
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 69a33088242..cd12b82fbee 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -1131,7 +1131,5 @@ prefix), return the prefix."
 
 (provide 'nnrss)
 
-
-;;; nnrss.el ends here
-
 ;; arch-tag: 12910c07-0cdf-44fb-8d2c-416ded64c267
+;;; nnrss.el ends here
diff --git a/lisp/progmodes/cc-mode.el b/lisp/progmodes/cc-mode.el
index 3fee14bf565..bd590d62f05 100644
--- a/lisp/progmodes/cc-mode.el
+++ b/lisp/progmodes/cc-mode.el
@@ -601,7 +601,7 @@ that requires a literal mode spec at compile time."
   (add-hook 'before-change-functions 'c-before-change nil t)
   (make-local-hook 'after-change-functions)
   (add-hook 'after-change-functions 'c-after-change nil t)
-  (setq font-lock-extend-after-change-region-function
+  (set (make-local-variable 'font-lock-extend-after-change-region-function)
         'c-extend-after-change-region)) ; Currently (2008-04), only used by AWK.
 
 (defun c-setup-doc-comment-style ()
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index d9776c0c4cd..a3f3993629c 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -481,6 +481,15 @@ otherwise do not."
 
 (defconst gdb-source-file-regexp "\\(.+?\\), \\|\\([^, \n].*$\\)")
 
+(defun gdb-init-buffer ()
+  (set (make-local-variable 'gud-minor-mode)
+       (buffer-local-value 'gud-minor-mode gud-comint-buffer))
+  (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
+  (when gud-tooltip-mode
+    (make-local-variable 'gdb-define-alist)
+    (gdb-create-define-alist)
+    (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))
+
 (defun gdb-set-gud-minor-mode-existing-buffers ()
   "Create list of source files for current GDB session."
   (goto-char (point-min))
@@ -493,12 +502,7 @@ otherwise do not."
         (when (and buffer-file-name
                    (member (file-name-nondirectory buffer-file-name)
                            gdb-source-file-list))
-          (set (make-local-variable 'gud-minor-mode) 'gdba)
-          (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
-          (when gud-tooltip-mode
-            (make-local-variable 'gdb-define-alist)
-            (gdb-create-define-alist)
-            (add-hook 'after-save-hook 'gdb-create-define-alist nil t))))))
+          (gdb-init-buffer)))))
   (gdb-force-mode-line-update
    (propertize "ready" 'face font-lock-variable-name-face)))
 
@@ -1953,10 +1957,7 @@ static char *magick[] = {
                                    (not (string-equal file "File not found")))
                               (with-current-buffer
                                   (find-file-noselect file 'nowarn)
-                                (set (make-local-variable 'gud-minor-mode)
-                                     'gdba)
-                                (set (make-local-variable 'tool-bar-map)
-                                     gud-tool-bar-map)
+                                (gdb-init-buffer)
                                 ;; Only want one breakpoint icon at each
                                 ;; location.
                                 (save-excursion
@@ -3269,9 +3270,7 @@ Add directory to search path for source files using the GDB command, dir."))
       (throw 'file-not-found nil))
     (with-current-buffer
         (find-file-noselect (match-string 0))
-      (save-current-buffer
-        (set (make-local-variable 'gud-minor-mode) 'gdba)
-        (set (make-local-variable 'tool-bar-map) gud-tool-bar-map))
+      (gdb-init-buffer)
       ;; only want one breakpoint icon at each location
       (save-excursion
         (goto-line (string-to-number line))
@@ -3293,9 +3292,7 @@ of the current session."
                     buffer-file-name)
                   gdb-source-file-list)
           (with-current-buffer (find-buffer-visiting buffer-file-name)
-            (set (make-local-variable 'gud-minor-mode)
-                 (buffer-local-value 'gud-minor-mode gud-comint-buffer))
-            (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)))))
+            (gdb-init-buffer)))))
 
 ;;from put-image
 (defun gdb-put-string (putstring pos &optional dprop &rest sprops)
@@ -3625,13 +3622,7 @@ is set in them."
   (dolist (buffer (buffer-list))
     (with-current-buffer buffer
       (when (member buffer-file-name gdb-source-file-list)
-        (set (make-local-variable 'gud-minor-mode)
-             (buffer-local-value 'gud-minor-mode gud-comint-buffer))
-        (set (make-local-variable 'tool-bar-map) gud-tool-bar-map)
-        (when gud-tooltip-mode
-          (make-local-variable 'gdb-define-alist)
-          (gdb-create-define-alist)
-          (add-hook 'after-save-hook 'gdb-create-define-alist nil t)))))
+        (gdb-init-buffer))))
   (gdb-force-mode-line-update
    (propertize "ready" 'face font-lock-variable-name-face)))
 
diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index dbb1aa8be99..8bfccaabb6d 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -3424,10 +3424,7 @@ This function must return nil if it doesn't handle EVENT."
           (if (and (eq gud-minor-mode 'gdba)
                    (not gdb-active-process))
               (progn
-                (with-current-buffer
-                    (window-buffer (let ((mouse (mouse-position)))
-                                     (window-at (cadr mouse)
-                                                (cddr mouse))))
+                (with-current-buffer (tooltip-event-buffer event)
                   (let ((define-elt (assoc expr gdb-define-alist)))
                     (unless (null define-elt)
                       (tooltip-show
diff --git a/lisp/progmodes/make-mode.el b/lisp/progmodes/make-mode.el
index ea9300f851b..2bf5b74c615 100644
--- a/lisp/progmodes/make-mode.el
+++ b/lisp/progmodes/make-mode.el
@@ -1352,7 +1352,7 @@ definition and conveniently use this command."
   (save-excursion
     (beginning-of-line)
     (cond
-     ((looking-at "^#+\\s-*")
+     ((looking-at "^[ \t]*#+\\s-*")
       ;; Found a comment.  Return nil to let normal filling take place.
       nil)
 
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el
index 60f27052892..e15f2e4c873 100644
--- a/lisp/term/mac-win.el
+++ b/lisp/term/mac-win.el
@@ -1802,11 +1802,11 @@ if possible.  If there's no such frame, a new frame is created."
              (let ((line (car selection-range))
                    (start (cadr selection-range))
                    (end (nth 2 selection-range)))
-               (if (> line 0)
-                   (goto-line line)
-                 (if (and (> start 0) (> end 0))
-                     (progn (set-mark start)
-                            (goto-char end))))))
+               (if (>= line 0)
+                   (goto-line (1+ line))
+                 (if (and (>= start 0) (>= end 0))
+                     (progn (set-mark (1+ start))
+                            (goto-char (1+ end)))))))
             ((stringp search-text)
              (re-search-forward
               (mapconcat 'regexp-quote (split-string search-text) "\\|")
diff --git a/lisp/textmodes/paragraphs.el b/lisp/textmodes/paragraphs.el
index 231eba6ba86..b21369edfda 100644
--- a/lisp/textmodes/paragraphs.el
+++ b/lisp/textmodes/paragraphs.el
@@ -355,8 +355,8 @@ With argument ARG, do it ARG times;
 a negative argument ARG = -N means move forward N paragraphs.
 
 A paragraph start is the beginning of a line which is a
-`first-line-of-paragraph' or which is ordinary text and follows a
-paragraph-separating line; except: if the first real line of a
+`paragraph-start' or which is ordinary text and follows a
+`paragraph-separate'ing line; except: if the first real line of a
 paragraph is preceded by a blank line, the paragraph starts at that
 blank line.