Variable: gdb-memory-header

gdb-memory-header is a variable defined in gdb-mi.el.gz.

Value

(:eval
 (concat "Start address "
	 (propertize (or gdb-memory-address-expression "N/A") 'face
		     font-lock-warning-face 'help-echo
		     "mouse-1: set start address" 'mouse-face
		     'mode-line-highlight 'local-map
		     (gdb-make-header-line-mouse-map 'mouse-1
						     #'gdb-memory-set-address-event))
	 (if gdb--memory-display-warning
	     (propertize " !" 'face '(:inherit error :weight bold))
	   "")
	 " ["
	 (propertize "-" 'face font-lock-warning-face 'help-echo
		     "mouse-1: decrement address" 'mouse-face
		     'mode-line-highlight 'local-map
		     (gdb-make-header-line-mouse-map 'mouse-1
						     #'gdb-memory-show-previous-page))
	 "|"
	 (propertize "+" 'face font-lock-warning-face 'help-echo
		     "mouse-1: increment address" 'mouse-face
		     'mode-line-highlight 'local-map
		     (gdb-make-header-line-mouse-map 'mouse-1
						     #'gdb-memory-show-next-page))
	 "]: "
	 (propertize (or gdb-memory-address "N/A") 'face
		     font-lock-warning-face)
	 "  Rows: "
	 (propertize (number-to-string gdb-memory-rows) 'face
		     font-lock-warning-face 'help-echo
		     "mouse-1: set number of columns" 'mouse-face
		     'mode-line-highlight 'local-map
		     (gdb-make-header-line-mouse-map 'mouse-1
						     #'gdb-memory-set-rows))
	 "  Columns: "
	 (propertize (number-to-string gdb-memory-columns) 'face
		     font-lock-warning-face 'help-echo
		     "mouse-1: set number of columns" 'mouse-face
		     'mode-line-highlight 'local-map
		     (gdb-make-header-line-mouse-map 'mouse-1
						     #'gdb-memory-set-columns))
	 "  Display Format: "
	 (propertize gdb-memory-format 'face font-lock-warning-face
		     'help-echo "mouse-3: select display format"
		     'mouse-face 'mode-line-highlight 'local-map
		     gdb-memory-format-map)
	 "  Unit Size: "
	 (propertize (number-to-string gdb-memory-unit) 'face
		     font-lock-warning-face 'help-echo
		     "mouse-3: select unit size" 'mouse-face
		     'mode-line-highlight 'local-map
		     gdb-memory-unit-map)))

Documentation

Header line used in gdb-memory-mode.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/gdb-mi.el.gz
(defvar gdb-memory-header
  '(:eval
    (concat
     "Start address "
     ;; If `gdb-memory-address-expression' is nil, `propertize' would error.
     (propertize (or gdb-memory-address-expression "N/A")
                 'face font-lock-warning-face
                 'help-echo "mouse-1: set start address"
                 'mouse-face 'mode-line-highlight
                 'local-map (gdb-make-header-line-mouse-map
                             'mouse-1
                             #'gdb-memory-set-address-event))
     (if gdb--memory-display-warning
         (propertize " !" 'face '(:inherit error :weight bold))
       "")
     " ["
     (propertize "-"
                 'face font-lock-warning-face
                 'help-echo "mouse-1: decrement address"
                 'mouse-face 'mode-line-highlight
                 'local-map (gdb-make-header-line-mouse-map
                             'mouse-1
                             #'gdb-memory-show-previous-page))
     "|"
     (propertize "+"
                 'face font-lock-warning-face
                 'help-echo "mouse-1: increment address"
                 'mouse-face 'mode-line-highlight
                 'local-map (gdb-make-header-line-mouse-map
                             'mouse-1
                             #'gdb-memory-show-next-page))
     "]: "
     ;; If `gdb-memory-address' is nil, `propertize' would error.
     (propertize (or gdb-memory-address "N/A")
                 'face font-lock-warning-face)
     "  Rows: "
     (propertize (number-to-string gdb-memory-rows)
                 'face font-lock-warning-face
                 'help-echo "mouse-1: set number of columns"
                 'mouse-face 'mode-line-highlight
                 'local-map (gdb-make-header-line-mouse-map
                             'mouse-1
                             #'gdb-memory-set-rows))
     "  Columns: "
     (propertize (number-to-string gdb-memory-columns)
                 'face font-lock-warning-face
                 'help-echo "mouse-1: set number of columns"
                 'mouse-face 'mode-line-highlight
                 'local-map (gdb-make-header-line-mouse-map
                             'mouse-1
                             #'gdb-memory-set-columns))
     "  Display Format: "
     (propertize gdb-memory-format
                 'face font-lock-warning-face
                 'help-echo "mouse-3: select display format"
                 'mouse-face 'mode-line-highlight
                 'local-map gdb-memory-format-map)
     "  Unit Size: "
     (propertize (number-to-string gdb-memory-unit)
                 'face font-lock-warning-face
                 'help-echo "mouse-3: select unit size"
                 'mouse-face 'mode-line-highlight
                 'local-map gdb-memory-unit-map)))
  "Header line used in `gdb-memory-mode'.")