Lines Matching +defs:kill +defs:buffer
104 "*If non-nil, saving a bookmark queries for an annotation in a buffer."
180 "*Column at which to display filenames in a buffer listing bookmarks.
299 It is buffer local, used to make moving a bookmark forward
302 (make-variable-buffer-local 'bookmark-current-bookmark)
315 (defvar bookmark-current-buffer nil)
531 Must be at the correct position in the buffer in which the bookmark is
536 `((filename . ,(bookmark-buffer-file-name))
539 (buffer-substring-no-properties
545 (buffer-substring-no-properties
627 (defun bookmark-alist-from-buffer ()
628 "Return a `bookmark-alist' (in any format) from the current buffer.
629 The buffer must of course contain bookmark format information.
630 Does not care from where in the buffer it is called, and does not
635 (read (current-buffer))
640 (read (current-buffer)))
671 (let* ((old-list (bookmark-alist-from-buffer))
675 (pp new-list (current-buffer))
676 (save-buffer))
691 (read (current-buffer))))
748 To yank words from the text of the buffer and use them as part of the
752 Typing C-u inserts the name of the last bookmark used in the buffer
762 (bookmark-buffer-file-name)
769 (setq bookmark-current-buffer (current-buffer))
772 (bookmark-buffer-name)))
784 ;; Ask for an annotation buffer for this bookmark
799 (defun bookmark-kill-line (&optional newline-too)
802 Does not affect the kill ring."
812 (defvar bookmark-annotation-buffer nil)
818 "Use buffer contents as the annotation for a bookmark.
821 the bookmark (and file, and point) specified in buffer local variables."
828 (bookmark-kill-line t)
830 (let ((annotation (buffer-string))
834 (buf bookmark-annotation-buffer))
836 ;; in the relevant buffer, at the relevant point.
838 ;; to avoid this need. Should I handle the error if a buffer is
839 ;; killed between "C-x r m" and a "C-c C-c" in the annotation buffer?
841 (pop-to-buffer buf)
847 (kill-buffer (current-buffer)))
872 (kill-all-local-variables)
875 (make-local-variable 'bookmark-annotation-buffer)
880 (setq bookmark-annotation-buffer buf)
881 (setq bookmark-annotation-file (buffer-file-name buf))
890 "Pop up a buffer for entering a bookmark annotation.
892 (let ((buf (current-buffer))
894 (pop-to-buffer (generate-new-buffer-name "*Bookmark Annotation Compose*"))
913 (kill-all-local-variables)
927 "Use buffer contents as annotation for a bookmark.
935 (bookmark-kill-line t)
937 (let ((annotation (buffer-string))
942 (kill-buffer (current-buffer)))
946 "Pop up a buffer for editing bookmark BOOKMARK's annotation."
947 (pop-to-buffer (generate-new-buffer-name "*Bookmark Annotation Compose*"))
952 "Insert this buffer's value of `bookmark-current-bookmark'.
957 (set-buffer bookmark-current-buffer)
959 (if str (insert str) (bookmark-insert-buffer-name))))
962 (defun bookmark-insert-buffer-name ()
968 (set-buffer bookmark-current-buffer)
969 (bookmark-buffer-name))))
973 (defun bookmark-buffer-name ()
974 "Return the name of the current buffer's file, non-directory.
980 (buffer-file-name (file-name-nondirectory buffer-file-name))
990 ;; Else return the current-buffer
991 (buffer-name (current-buffer)))))
992 ;; If all else fails, use the buffer's name.
994 (buffer-name (current-buffer)))))
999 ;; get the next word from the buffer and append it to the name of
1002 (set-buffer bookmark-current-buffer)
1004 (buffer-substring-no-properties
1014 (defun bookmark-buffer-file-name ()
1015 "Return the current buffer's file in a way useful for bookmarks.
1016 For example, if this is a Info buffer, return the Info file's name."
1020 (buffer-file-name
1024 (abbreviate-file-name buffer-file-name))
1084 (switch-to-buffer (car cell))
1089 ;; show it in a buffer.
1135 (set-buffer (find-file-noselect file))
1151 (cons (current-buffer) (point))))
1227 consecutive words from the text of the buffer into the new bookmark
1235 (setq bookmark-current-buffer (current-buffer))
1268 (set-buffer (car (bookmark-jump-noselect bookmark)))
1269 (buffer-string))))
1282 Optional second arg BATCH means don't update the bookmark list buffer,
1374 (set-buffer (get-buffer-create " *Bookmarks*"))
1380 (pp bookmark-alist (current-buffer))
1391 (kill-buffer (current-buffer))
1461 (set-buffer (let ((enable-local-variables nil))
1465 (let ((blist (bookmark-alist-from-buffer)))
1482 (kill-buffer (current-buffer)))
1491 ;;; "bookmark-bmenu" for "buffer-menu":
1548 ;; todo: need to display whether or not bookmark exists as a buffer in
1557 Don't affect the buffer ring order."
1558 (if (get-buffer "*Bookmark List*")
1567 The list is displayed in a buffer named `*Bookmark List*'.
1573 (switch-to-buffer (get-buffer-create "*Bookmark List*"))
1574 (set-buffer (get-buffer-create "*Bookmark List*")))
1576 (erase-buffer)
1631 \\[bookmark-bmenu-this-window] -- select this bookmark in place of the bookmark menu buffer.
1647 in another buffer.
1648 \\[bookmark-bmenu-show-all-annotations] -- show the annotations of all bookmarks in another buffer.
1650 (kill-all-local-variables)
1653 (setq buffer-read-only t)
1720 (bookmark-kill-line)
1769 (buffer-substring-no-properties (point)
1779 "Display the annotation for bookmark named BOOKMARK in a buffer,
1784 (let ((old-buf (current-buffer)))
1785 (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t)
1790 (pop-to-buffer old-buf))))))
1794 "Display the annotations for all bookmarks in a buffer."
1795 (let ((old-buf (current-buffer)))
1796 (pop-to-buffer (get-buffer-create "*Bookmark Annotation*") t)
1814 (pop-to-buffer old-buf)))
1835 (menu (current-buffer))
1851 (bury-buffer menu)
1871 "Load the bookmark file and rebuild the bookmark menu-buffer."
1886 (bury-buffer (other-buffer))
1891 "Select this line's bookmark, with previous buffer in second window."
1895 (menu (current-buffer))
1898 (switch-to-buffer (other-buffer))
1902 (pop-to-buffer buff)
1904 (bury-buffer menu))))
1922 (switch-to-buffer-other-window buff)
1924 (set-window-point (get-buffer-window buff) pos)
1934 same-window-buffer-names
1940 (display-buffer buff)
1941 (let ((o-buffer (current-buffer)))
1943 (set-buffer buff)
1945 (set-window-point (get-buffer-window buff) pos)
1946 (set-buffer o-buffer))
1953 (set-buffer (window-buffer (posn-window (event-end event))))
2043 (buffer-substring
2180 ;;; Exit Hook, called from kill-emacs-hook
2194 (add-hook 'kill-emacs-hook 'bookmark-exit-hook-internal)