Re: Starting buffer configuration

[Silvio Levy]

Dear Drew,

Thanks for this very informative answer to Yotam's question.  
I just checked out Bookmark+ and it looks good: thanks for writing it!

I get an error when doing exactly as you said (having placed the 8
bookmark+* files on my emacs path). The whole debug output is copied
after my signature; the gist (which appears when I type C-x r l) is

Symbol's function definition is void: with-buffer-modified-unmodified

I'm using GNU Emacs 23.1.50.1.

Silvio Levy




Debugger entered--Lisp error: (void-function with-buffer-modified-unmodified)
  (with-buffer-modified-unmodified (save-excursion (save-window-excursion ... 
... ... ...)))
  (progn (unless no-msg-p (message "Showing file names...")) 
(with-buffer-modified-unmodified (save-excursion ...)) (unless no-msg-p 
(message "Showing file names...done")) (when (and ... ...) 
(fit-frame-if-one-window)))
  (if (or force bookmark-bmenu-toggle-filenames) (progn (unless no-msg-p ...) 
(with-buffer-modified-unmodified ...) (unless no-msg-p ...) (when ... ...)))
  (when (or force bookmark-bmenu-toggle-filenames) (unless no-msg-p (message 
"Showing file names...")) (with-buffer-modified-unmodified (save-excursion 
...)) (unless no-msg-p (message "Showing file names...done")) (when (and ... 
...) (fit-frame-if-one-window)))
  bookmark-bmenu-show-filenames(nil)
  (if bookmark-bmenu-toggle-filenames (bookmark-bmenu-show-filenames no-msg-p) 
(bookmark-bmenu-hide-filenames no-msg-p))
  (let ((bookmark-bmenu-toggle-filenames ...)) (if 
bookmark-bmenu-toggle-filenames (bookmark-bmenu-show-filenames no-msg-p) 
(bookmark-bmenu-hide-filenames no-msg-p)))
  bookmark-bmenu-toggle-filenames(t)
  (progn (bookmark-bmenu-toggle-filenames t))
  (if bookmark-bmenu-toggle-filenames (progn (bookmark-bmenu-toggle-filenames 
t)))
  (when bookmark-bmenu-toggle-filenames (bookmark-bmenu-toggle-filenames t))
  (let* ((inhibit-read-only t) (title ...) (show-image-file-icon-p ...)) 
(erase-buffer) (when (fboundp ...) (remove-images ... ...)) (insert (format 
"%s\n%s\n" title ...)) (add-text-properties (point-min) (point) (bmkp-face-prop 
...)) (goto-char (point-min)) (insert (format "Bookmark file:\n%s\n\n" 
bmkp-current-bookmark-file)) (forward-line bmkp-bmenu-header-lines) (let (... 
name markedp tags annotation temporaryp start) (setq bmkp-sorted-alist ...) 
(dolist ... ...) (setq max-width ...) (dolist ... ... ... ... ... ... ... ... 
... ... ... ...)) (goto-char (point-min)) (forward-line 
bmkp-bmenu-header-lines) (bookmark-bmenu-mode) (when 
bookmark-bmenu-toggle-filenames (bookmark-bmenu-toggle-filenames t)) (when (and 
... ...) (fit-frame-if-one-window)))
  bmkp-bmenu-list-1(filteredp nil 1)
  (let ((bookmark-alist ...)) (bmkp-bmenu-list-1 (quote filteredp) nil msgp))
  (cond ((and bmkp-bmenu-first-time-p bmkp-bmenu-state-file ...) (let ... ... 
...) (setq bmkp-bmenu-first-time-p nil) (let ... ...) (when ... ...) (when ... 
...) (when bmkp-last-bmenu-bookmark ...)) (t (setq bmkp-bmenu-first-time-p nil) 
(bmkp-bmenu-list-1 filteredp ... msgp)))
  bookmark-bmenu-list(nil 1)
  call-interactively(bookmark-bmenu-list)
  eval-buffer(#<buffer  *load*> nil "/home/levy/.emacs" nil t)  ; Reading at 
buffer position 328
  load-with-code-conversion("/home/levy/.emacs" "/home/levy/.emacs" t t)
  load("~/.emacs" t t)
  #[nil "\205\264emacs" windows-nt directory-files nil 
"^\\.emacs\\(\\.elc?\\)?$" "~/.emacs" "^_emacs\\(\\.elc?\\)?$" "~/_emacs" 
"/.emacs" t load expand-file-name "init" file-name-as-directory "/.emacs.d" 
file-name-extension "elc" file-name-sans-extension ".el" file-exists-p 
file-newer-than-file-p message "Warning: %s is newer than %s" sit-for 1 
"default" alt inhibit-default-init inhibit-startup-screen] 7]()
  command-line()
  normal-top-level()