comparison lisp/progmodes/ebrowse.el @ 28548:19c5020c0db3

(ebrowse-tree-mode): Use propertized-buffer-identification. (ebrowse-update-member-buffer-mode-line): Likewise. (ebrowse--mode-strings): Removed. (ebrowse--mode-line-props): Removed.

28547:64b8401fb9a5

(defvar ebrowse--decl-column nil
  "Column in which declarations are displayed in member buffers.
Buffer-local in Ebrowse member buffers.")


(defvar ebrowse--mode-strings nil
  "Strings displayed in the mode line.
Buffer-local in Ebrowse tree buffers.")


(defvar ebrowse--frame-configuration nil
  "Frame configuration saved when viewing a class/member in another frame.
Buffer-local in Ebrowse buffers.")

(defvar ebrowse--tree nil
  "Class tree.
Buffer-local in Ebrowse buffers.")


(defvar ebrowse--mode-line-props nil
  "Text properties of mode line strings in member buffers.
Buffer-local in Ebrowse member buffers.")


;;; Temporaries used to communicate with `ebrowse-find-pattern'.

(defvar ebrowse-temp-position-to-view nil)

E.g.\\[save-buffer] writes the tree to the file it was loaded from.

Tree mode key bindings:
\\{ebrowse-tree-mode-map}"
  (interactive)
  (let* ((props (text-properties-at
		 0
		 (car (default-value 'mode-line-buffer-identification))))
	 (ident (apply #'propertize "C++ Tree" props))
	 header tree buffer-read-only)
    
    (kill-all-local-variables)
    (use-local-map ebrowse-tree-mode-map)
    

	      ebrowse--tree
	      ebrowse--header
	      ebrowse--show-file-names-flag
	      ebrowse--frozen-flag
	      ebrowse--tree-obarray
	      ebrowse--mode-strings
	      revert-buffer-function))
    
    (setf ebrowse--show-file-names-flag nil
	  ebrowse--tree-obarray (make-vector 127 0)
	  ebrowse--frozen-flag nil
	  major-mode 'ebrowse-tree-mode
	  mode-name "Ebrowse-Tree"
	  mode-line-buffer-identification (list ident)
	  buffer-read-only t
	  selective-display t
	  selective-display-ellipses t
	  revert-buffer-function 'ebrowse-revert-tree-buffer-from-file
	  ebrowse--header header

    


(defun ebrowse-update-tree-buffer-mode-line ()
  "Update the tree buffer mode line."
  (setf ebrowse--mode-strings
	(concat (if ebrowse--frozen-flag (or buffer-file-name
					     ebrowse--tags-file-name))
		(if (buffer-modified-p) "-**")))
  (ebrowse-rename-buffer (if ebrowse--frozen-flag
			     (ebrowse-frozen-tree-buffer-name
			      ebrowse--tags-file-name)
			   ebrowse-tree-buffer-name))
  (force-mode-line-update))

	    ebrowse--tree-obarray
	    ebrowse--virtual-display-flag
	    ebrowse--inline-display-flag
	    ebrowse--const-display-flag
	    ebrowse--pure-display-flag
	    ebrowse--mode-line-props
	    ebrowse--frozen-flag))	;buffer not automagically reused
  (setq ebrowse--mode-line-props (text-properties-at
				  0 (car (default-value
					  'mode-line-buffer-identification)))
	mode-name "Ebrowse-Members"
	mode-line-buffer-identification 'ebrowse--member-mode-strings
	buffer-read-only t
	ebrowse--long-display-flag nil
	ebrowse--attributes-flag t
	ebrowse--show-inherited-flag t
	ebrowse--source-regexp-flag nil

  "Update the mode line of member buffers."
  (let* ((name (when ebrowse--frozen-flag
		 (concat (ebrowse-class-name-displayed-in-member-buffer)
			 " ")))
	 (ident (concat name (ebrowse-member-list-name))))
    (setq ebrowse--member-mode-strings
	  (apply #'propertize ident ebrowse--mode-line-props))
    (ebrowse-rename-buffer (if name ident ebrowse-member-buffer-name))
    (force-mode-line-update)))


;;; Misc member buffer commands

28548:19c5020c0db3

(defvar ebrowse--decl-column nil
  "Column in which declarations are displayed in member buffers.
Buffer-local in Ebrowse member buffers.")


(defvar ebrowse--frame-configuration nil
  "Frame configuration saved when viewing a class/member in another frame.
Buffer-local in Ebrowse buffers.")

(defvar ebrowse--tree nil
  "Class tree.
Buffer-local in Ebrowse buffers.")


;;; Temporaries used to communicate with `ebrowse-find-pattern'.

(defvar ebrowse-temp-position-to-view nil)

E.g.\\[save-buffer] writes the tree to the file it was loaded from.

Tree mode key bindings:
\\{ebrowse-tree-mode-map}"
  (interactive)
  (let* ((ident (propertized-buffer-identification "C++ Tree"))
	 header tree buffer-read-only)
    
    (kill-all-local-variables)
    (use-local-map ebrowse-tree-mode-map)
    

	      ebrowse--tree
	      ebrowse--header
	      ebrowse--show-file-names-flag
	      ebrowse--frozen-flag
	      ebrowse--tree-obarray
	      revert-buffer-function))
    
    (setf ebrowse--show-file-names-flag nil
	  ebrowse--tree-obarray (make-vector 127 0)
	  ebrowse--frozen-flag nil
	  major-mode 'ebrowse-tree-mode
	  mode-name "Ebrowse-Tree"
	  mode-line-buffer-identification ident
	  buffer-read-only t
	  selective-display t
	  selective-display-ellipses t
	  revert-buffer-function 'ebrowse-revert-tree-buffer-from-file
	  ebrowse--header header

    


(defun ebrowse-update-tree-buffer-mode-line ()
  "Update the tree buffer mode line."
  (ebrowse-rename-buffer (if ebrowse--frozen-flag
			     (ebrowse-frozen-tree-buffer-name
			      ebrowse--tags-file-name)
			   ebrowse-tree-buffer-name))
  (force-mode-line-update))

	    ebrowse--tree-obarray
	    ebrowse--virtual-display-flag
	    ebrowse--inline-display-flag
	    ebrowse--const-display-flag
	    ebrowse--pure-display-flag
	    ebrowse--frozen-flag))	;buffer not automagically reused
  (setq mode-name "Ebrowse-Members"
	mode-line-buffer-identification
	(propertized-buffer-identification "C++ Members")
	buffer-read-only t
	ebrowse--long-display-flag nil
	ebrowse--attributes-flag t
	ebrowse--show-inherited-flag t
	ebrowse--source-regexp-flag nil

  "Update the mode line of member buffers."
  (let* ((name (when ebrowse--frozen-flag
		 (concat (ebrowse-class-name-displayed-in-member-buffer)
			 " ")))
	 (ident (concat name (ebrowse-member-list-name))))
    (setq mode-line-buffer-identification
	  (propertized-buffer-identification ident))
    (ebrowse-rename-buffer (if name ident ebrowse-member-buffer-name))
    (force-mode-line-update)))


;;; Misc member buffer commands