627a628,632 > (defvar ebrowse--show-inherited-first-flag nil > "Non-nil means list inherited members first in a member buffer. > Buffer-local in Ebrowse member buffers.") > > 2198a2204 > (define-key map1 "o" 'ebrowse-toggle-base-class-display-order) 2472a2479,2485 > (defun ebrowse-toggle-base-class-display-order () > "Toggle the display order of members inherited from base classes." > (interactive) > (setf ebrowse--show-inherited-first-flag (not > ebrowse--show-inherited-first-flag)) > (ebrowse-redisplay-member-buffer)) > > 2685a2699,2707 > ;; Show inherited members first if appropriate > (when (and > ebrowse--show-inherited-flag > ebrowse--show-inherited-first-flag) > (dolist (super (reverse (ebrowse-base-classes > ebrowse--displayed-class))) > (goto-char (point-max)) > (if (bolp) (insert"\n")) > (ebrowse-draw-member-buffer-class-line super) > (funcall display-fn (funcall ebrowse--accessor super) super))) 2686a2709,2710 > (goto-char (point-max)) > (if (bolp) (insert"\n")) 2689,2690c2713,2716 < ;; Show inherited members if corresponding switch is on < (when ebrowse--show-inherited-flag --- > ;; Show inherited members last if appropriate > (when (and > ebrowse--show-inherited-flag > (not ebrowse--show-inherited-first-flag)) 2693c2719 < (insert (if (bolp) "\n\n" "\n")) --- > (if (bolp) (insert"\n")) 2713c2739 < (insert ":\n\n") --- > (insert ":\n") 2773,2781c2799,2808 < (insert (if (ebrowse-template-p member) "T" "-") < (if (ebrowse-extern-c-p member) "C" "-") < (if (ebrowse-virtual-p member) "v" "-") < (if (ebrowse-inline-p member) "i" "-") < (if (ebrowse-const-p member) "c" "-") < (if (ebrowse-pure-virtual-p member) "0" "-") < (if (ebrowse-mutable-p member) "m" "-") < (if (ebrowse-explicit-p member) "e" "-") < (if (ebrowse-throw-list-p member) "t" "-"))) --- > (insert (if (ebrowse-template-p member) "T" ".") > (if (ebrowse-extern-c-p member) "C" " ") > (if (ebrowse-virtual-p member) "v" ".") > (if (ebrowse-inline-p member) "i" " ") > (if (ebrowse-const-p member) "c" ".") > (if (ebrowse-pure-virtual-p member) "P" " ") > (if (ebrowse-mutable-p member) "m" ".") > (if (ebrowse-explicit-p member) "e" " ") > (if (ebrowse-throw-list-p member) "t" ".") > )) 2808a2836,2841 > (when ebrowse--attributes-flag > (let ((start (point))) > (ebrowse-draw-member-attributes member-struc) > (ebrowse-set-face start (point) > 'ebrowse-member-attribute-face))) > (insert " ") 2809a2843 > (setf start (point)) 2821,2822d2854 < (setf start (point)) < (indent-to ebrowse--decl-column) 2824,2833c2856 < (when ebrowse--attributes-flag < (let ((start (point))) < (insert "<") < (ebrowse-draw-member-attributes member-struc) < (insert ">") < (ebrowse-set-face start (point) < 'ebrowse-member-attribute))) < (insert " ") < (ebrowse-draw-member-regexp member-struc)))) < (insert "\n") --- > (insert "\n")))) 2857d2879 < (insert "<") 2859d2880 < (insert "> ") 3153a3175,3179 > ["Inherited First" ebrowse-toggle-base-class-display-order > :help "Toggle display order of inherited members" > :style toggle > :selected ebrowse--show-inherited-first-flag > :active t] _______________________________________________ gnu-emacs-sources mailing list [email protected] http://lists.gnu.org/mailman/listinfo/gnu-emacs-sources
