Lines Matching +defs:default +defs:frame +defs:alist
104 "*The default name of class tree buffers."
135 (defcustom ebrowse-default-declaration-column 25
141 (defcustom ebrowse-default-column-width 25
192 (defface ebrowse-default
197 (put 'ebrowse-default-face 'face-alias 'ebrowse-default)
336 TABLE is an alist whose elements' cars are strings, or an obarray.
378 otherwise use the current frame's width."
382 (frame-width))))
667 (defvar ebrowse--frame-configuration nil
668 "Frame configuration saved when viewing a class/member in another frame.
781 (defun ebrowse-tree-obarray-as-alist (&optional qualified-names-p)
782 "Return an alist describing all classes in a tree.
788 (let (alist)
791 (setq alist
793 tree alist)))
795 (setq alist
797 tree alist))))
798 alist))
856 (defun ebrowse-name/accessor-alist (tree accessor)
857 "Return an alist containing all members of TREE in group ACCESSOR.
865 (defun ebrowse-name/accessor-alist-for-visible-members ()
866 "Return an alist describing all members visible in the current buffer.
871 (let* ((list (ebrowse-name/accessor-alist ebrowse--displayed-class
877 nconc (ebrowse-name/accessor-alist
882 (defun ebrowse-name/accessor-alist-for-class-members ()
883 "Like `ebrowse-name/accessor-alist-for-visible-members'.
888 (setq list (nconc list (ebrowse-name/accessor-alist
893 (nconc list (ebrowse-name/accessor-alist class func))))))))
1507 (ebrowse-tree-obarray-as-alist) nil t)))
1593 PREFIX-ARG 5 means find it in another frame."
1598 ((= prefix-arg 5) 'other-frame)
1605 PREFIX-ARG 5 means view it in another frame."
1610 ((= prefix-arg 5) 'other-frame)
1657 Restore frame configuration active before viewing the file,
1659 (let (exit-action original-frame-configuration)
1662 (setq original-frame-configuration ebrowse--frame-configuration
1664 ;; Delete the frame in which we viewed.
1665 (mapcar 'delete-frame
1666 (loop for frame in (frame-list)
1667 when (not (assq frame original-frame-configuration))
1668 collect frame))
1673 (defun ebrowse-view-file-other-frame (file)
1674 "View a file FILE in another frame.
1675 The new frame is deleted when it is no longer used."
1677 (let ((old-frame-configuration (current-frame-configuration))
1681 (switch-to-buffer-other-frame buf-to-view)
1682 (make-local-variable 'ebrowse--frame-configuration)
1683 (setq ebrowse--frame-configuration old-frame-configuration)
1708 WHERE is either `other-window', `other-frame' or `this-window' and
1715 ;; If current window is dedicated, use another frame.
1726 (other-frame (ebrowse-view-file-other-frame file))
1731 (other-frame (find-file-other-frame file))
1901 'ebrowse-default))
2192 (let* ((insert-default-directory t)
2319 ebrowse--decl-column ebrowse-default-declaration-column
2320 ebrowse--column-width ebrowse-default-column-width
2593 find file in another frame."
2601 find file in another frame."
2609 find file in another frame."
2617 find file in another frame."
2626 find file in another frame.
2638 (if (= prefix 5) 'other-frame 'this-window))))
2943 (let* ((completion-list (ebrowse-name/accessor-alist-for-class-members))
2963 (let* ((completion-list (ebrowse-name/accessor-alist-for-visible-members))
3029 "Goto class: " (ebrowse-tree-obarray-as-alist)))
3038 (let ((alist (loop for s in supers
3043 "Goto base class: " alist))
3068 (flet ((trees-alist (trees)
3076 (trees-alist supers) nil)
3096 (flet ((ebrowse-tree-obarray-as-alist ()
3105 "Goto derived class: " (ebrowse-tree-obarray-as-alist))
3332 (defun ebrowse-class-alist-for-member (tree-header name)
3336 Value is an alist of elements (CLASS-NAME . (CLASS LIST NAME)),
3343 alist)
3345 (dolist (info (gethash name table) alist)
3347 (setf alist (acons (ebrowse-qualified-class-name
3349 info alist)
3369 from point as default. Value is a list (CLASS-NAME MEMBER-NAME)."
3415 (let ((alist (or (ebrowse-class-alist-for-member header name)
3418 (if (null (second alist))
3419 (cdr (first alist))
3422 alist nil t initial-class-name)
3423 alist))))))
3516 (defun ebrowse-tags-view-declaration-other-frame ()
3517 "View definition of member at point in other frame."
3523 (defun ebrowse-tags-find-declaration-other-frame ()
3524 "Find definition of member at point in other frame."
3530 (defun ebrowse-tags-view-definition-other-frame ()
3531 "View definition of member at point in other frame."
3537 (defun ebrowse-tags-find-definition-other-frame ()
3538 "Find definition of member at point in other frame."
4329 (define-key ebrowse-global-submap-5 "." 'ebrowse-tags-find-definition-other-frame)
4330 (define-key ebrowse-global-submap-5 "f" 'ebrowse-tags-find-definition-other-frame)
4331 (define-key ebrowse-global-submap-5 "v" 'ebrowse-tags-find-declaration-other-frame)
4332 (define-key ebrowse-global-submap-5 "F" 'ebrowse-tags-view-definition-other-frame)
4333 (define-key ebrowse-global-submap-5 "V" 'ebrowse-tags-view-declaration-other-frame)
4412 "Find the member clicked on in another frame.