Mercurial > emacs

changeset 69618:a6d6cceff8ba

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb-reset): Set buffer local value of fringe-indicator-alist instead of modifying global value. (gdb-frame-handler): Likewise.
author Kim F. Storm <storm@cua.dk>
date Tue, 21 Mar 2006 13:30:56 +0000
parents 04a1dd9137ea
children d21be88ab348
files lisp/progmodes/gdb-ui.el
diffstat 1 files changed, 11 insertions(+), 11 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/gdb-ui.el	Tue Mar 21 13:30:42 2006 +0000
+++ b/lisp/progmodes/gdb-ui.el	Tue Mar 21 13:30:56 2006 +0000
@@ -4,7 +4,7 @@
 ;; Maintainer: FSF
 ;; Keywords: unix, tools
 
-;; Copyright (C) 2002, 2003, 2004, 2005, 2006 
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006
 ;; Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
@@ -327,7 +327,7 @@
 			(process-status (get-buffer-process buffer)) status))
 	  ;; Force mode line redisplay soon.
 	  (force-mode-line-update)))))
-    
+
 (defun gdb-many-windows (arg)
   "Toggle the number of windows in the basic arrangement.
 With arg, display additional buffers iff arg is positive."
@@ -2135,7 +2135,7 @@
 	    (unless (string-equal (match-string 0) "The")
 	      (put-text-property start (match-end 0)
 				 'face font-lock-variable-name-face)
-	      (add-text-properties start end 
+	      (add-text-properties start end
 		                   '(help-echo "mouse-2: edit value"
 				     mouse-face highlight))))
 	  (forward-line 1))))))
@@ -2788,7 +2788,7 @@
     (setq gdb-overlay-arrow-position nil))
   (setq overlay-arrow-variable-list
 	(delq 'gdb-overlay-arrow-position overlay-arrow-variable-list))
-  (setcdr (assoc 'overlay-arrow fringe-indicator-alist)	'right-triangle)
+  (setq fringe-indicator-alist '((overlay-arrow . right-triangle)))
   (if (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
       (speedbar-refresh))
   (setq gud-running nil)
@@ -3119,10 +3119,10 @@
 	    (position (marker-position gud-overlay-arrow-position)))
 	(when buffer
 	  (with-current-buffer buffer
-	    (setcdr (assoc 'overlay-arrow fringe-indicator-alist)
-		    (if (string-equal gdb-frame-number "0")
-			'right-triangle
-		      'hollow-right-triangle))
+	    (setq fringe-indicator-alist
+		  (if (string-equal gdb-frame-number "0")
+		      nil
+		    '((overlay-arrow . hollow-right-triangle))))
 	    (setq gud-overlay-arrow-position (make-marker))
 	    (set-marker gud-overlay-arrow-position position)))))
   (goto-char (point-min))
@@ -3169,7 +3169,7 @@
   (gdb-enqueue-input
    (list
     (if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) 'gdba)
-	(concat "server interpreter mi \"-var-list-children --all-values "  
+	(concat "server interpreter mi \"-var-list-children --all-values "
 		varnum "\"\n")
       (concat "-var-list-children --all-values " varnum "\n"))
     `(lambda () (gdb-var-list-children-handler-1 ,varnum)))))
@@ -3298,7 +3298,7 @@
 	    (unless (string-equal (match-string 0) "No registers.")
 	      (put-text-property start (match-end 0)
 				 'face font-lock-variable-name-face)
-	      (add-text-properties start end 
+	      (add-text-properties start end
 		                   '(help-echo "mouse-2: edit value"
 				     mouse-face highlight))))
 	  (forward-line 1))))))
@@ -3380,7 +3380,7 @@
 			      help-echo "mouse-2: create watch expression"
 			      local-map ,gdb-locals-watch-map-1)
 			    name))
-		       (insert 
+		       (insert
 			(concat name "\t" (nth 1 local)
 				"\t" (nth 2 local) "\n")))
 		   (set-window-start window start)