Lines Matching +defs:value +defs:get
232 If so, return the value returned by PREDICATE."
314 as ,spec-var = (get ,var 'ebrowse-root) do
331 (defun ebrowse-completing-read-value (prompt table initial-input)
345 (defun ebrowse-value-in-buffer (sym buffer)
346 "Return the value of SYM in BUFFER."
351 (symbol-value sym))
358 (let ((old-buffer (get-buffer new-name)))
379 (let ((window (get-buffer-window (current-buffer))))
968 (set-buffer (get-buffer-create name))
1011 (value (gethash member-name members)))
1012 (push (list c f m) value)
1013 (puthash member-name value members)))))
1022 until (eq header (ebrowse-value-in-buffer 'ebrowse--header buffer))
1042 do (unless (get sym 'ebrowse-root)
1043 (setf (get sym 'ebrowse-root) root)))
1079 (if (get sym 'ebrowse-root)
1080 (setf (car subclass) (get sym 'ebrowse-root))
1081 (setf (get sym 'ebrowse-root) (car subclass))))
1160 (multiple-value-setq (header tree) (ebrowse-read))
1220 (get sym 'ebrowse-root) nil)
1408 (let ((tree (ebrowse-value-in-buffer 'ebrowse--tree buffer)))
1419 (eq (ebrowse-value-in-buffer 'ebrowse--tree buffer)
1432 (get-buffer ebrowse-member-buffer-name)
1456 as class = (ebrowse-value-in-buffer 'ebrowse--displayed-class buffer)
1469 (let ((buffer (get-buffer (if arg
1474 (get-buffer (if arg
1566 (or (get-text-property (point) 'ebrowse-tree)
1646 (had-a-buf (get-file-buffer file))
1679 (had-a-buf (get-file-buffer file))
1824 (symbol-value 'ebrowse-debug))
2078 (set-buffer (get-buffer-create "*Tree Buffers*"))
2124 (setq select (ebrowse-electric-get-buffer select)))
2167 (defun ebrowse-electric-get-buffer (point)
2178 (let ((buffer (ebrowse-electric-get-buffer (point))))
2340 (get ebrowse--accessor (if (ebrowse-globals-tree-p ebrowse--displayed-class)
2398 (let ((buf (or (get-buffer (ebrowse-frozen-tree-buffer-name
2400 (get-buffer ebrowse-tree-buffer-name)
2639 ;; If not given as parameters, get the necessary information
2645 (multiple-value-setq (tree member on-class)
2766 (temp-buffer (get-buffer ebrowse-member-buffer-name)))
2774 (pop-to-buffer (get-buffer-create ebrowse-member-buffer-name))
2927 (let ((tree (or (get-text-property (point) 'ebrowse-tree)
2929 (member (get-text-property (point) 'ebrowse-member)))
3018 (class (or (ebrowse-completing-read-value title compl-list initial)
3074 (ebrowse-completing-read-value
3260 (eq (get-text-property (point) 'ebrowse-what) 'class-name))
3265 (eq (get-text-property (point) 'ebrowse-what) 'member-name))
3274 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
3277 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]))
3305 (1 (case (get-text-property (posn-point (event-start event))
3322 (1 (case (get-text-property (posn-point (event-start event))
3360 (if buffer (list (ebrowse-value-in-buffer 'ebrowse--tree buffer)
3361 (ebrowse-value-in-buffer 'ebrowse--header buffer)
3372 (multiple-value-bind (class-name member-name)
3437 (multiple-value-bind
3445 (multiple-value-setq (class-name name)
3456 (ebrowse-value-in-buffer 'ebrowse--tags-file-name tree-buffer))
3547 (let ((buffer (get-buffer ebrowse-member-buffer-name)))
3566 (multiple-value-bind
3571 (multiple-value-setq (class-name name)
3598 (header (ebrowse-value-in-buffer 'ebrowse--header buffer))
3619 (header (ebrowse-value-in-buffer 'ebrowse--header buffer))
3698 (header (ebrowse-value-in-buffer 'ebrowse--header buffer)))
3814 (let ((buffer (get-file-buffer ebrowse-tags-loop-last-file)))
3822 (setq ebrowse-tags-loop-last-file (if (get-file-buffer file) nil file))
3881 (multiple-value-bind (tree header tree-buffer)
3888 (multiple-value-setq (class-name name)
4002 "If non-nil, its value is called by `ebrowse-electric-position-mode'.")
4057 (set-buffer (get-buffer-create "*Positions*"))
4187 (let ((temp-buffer (get-buffer-create "*Tree Output"))
4233 (multiple-value-bind (classes member-functions member-variables
4250 (defun ebrowse-print-statistics-line (title value)
4256 (insert (format "%d\n" value)))
4464 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
4467 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
4471 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
4475 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]
4478 :active (eq (get-text-property (point) 'ebrowse-what) 'class-name)]))
4516 (property (get-text-property where 'ebrowse-what)))
4532 (property (get-text-property where 'ebrowse-what)))
4545 (property (get-text-property where 'ebrowse-what)))