Mercurial > emacs
comparison lisp/mh-e/mh-seq.el @ 70145:00cb3fe5fed5
* mh-tool-bar.el (image-load-path): Define to shush compiler.
(mh-buffer-exists-p): Move inside mh-do-in-gnu-emacs since it isn't
used outside of it.
(mh-tool-bar-folder-buttons-init, mh-tool-bar-letter-buttons-init):
Update load-path/image-load-path before setting buttons. This code
used to be in mh-folder-mode/mh-letter-mode but this was the wrong
place since mh-tool-bar-*-buttons-init can also be called when
customizing the buttons.
(mh-tool-bar-update): New function which updates tool-bar-map in all
of the MH-E buffers after customizing the buttons (closes SF
#1452718).
(mh-tool-bar-folder-buttons-set, mh-tool-bar-letter-buttons-set): Call
it (closes SF #1452718).
* mh-folder.el (mh-folder-buttons-init-flag): Delete. Use
mh-folder-tool-bar-map instead.
(image-load-path): Delete. No longer used.
(mh-folder-mode): Moved setting of image-load-path into
mh-tool-bar-folder-buttons-init.
* mh-letter.el (mh-letter-buttons-init-flag): Delete. Use
mh-letter-tool-bar-map instead.
(image-load-path): Delete. No longer used.
(mh-letter-mode): Moved setting of image-load-path into
mh-tool-bar-letter-buttons-init.
* mh-seq.el (mh-narrow-to-seq, mh-widen): Use with-current-buffer
instead of set-buffer.
| author | Bill Wohler <wohler@newt.com> |
|---|---|
| date | Fri, 21 Apr 2006 01:32:16 +0000 |
| parents | d81780942bb8 |
| children | e3694f1cb928 72dea2ff0142 |
comparison
equal
deleted
inserted
replaced
| 70144:60a94b1ec37e | 70145:00cb3fe5fed5 |
|---|---|
| 236 (mh-recenter nil) | 236 (mh-recenter nil) |
| 237 (when (and (boundp 'tool-bar-mode) tool-bar-mode) | 237 (when (and (boundp 'tool-bar-mode) tool-bar-mode) |
| 238 (set (make-local-variable 'tool-bar-map) | 238 (set (make-local-variable 'tool-bar-map) |
| 239 mh-folder-seq-tool-bar-map) | 239 mh-folder-seq-tool-bar-map) |
| 240 (when (buffer-live-p (get-buffer mh-show-buffer)) | 240 (when (buffer-live-p (get-buffer mh-show-buffer)) |
| 241 (save-excursion | 241 (with-current-buffer mh-show-buffer |
| 242 (set-buffer (get-buffer mh-show-buffer)) | |
| 243 (set (make-local-variable 'tool-bar-map) | 242 (set (make-local-variable 'tool-bar-map) |
| 244 mh-show-seq-tool-bar-map)))) | 243 mh-show-seq-tool-bar-map)))) |
| 245 (push 'widen mh-view-ops))) | 244 (push 'widen mh-view-ops))) |
| 246 (t | 245 (t |
| 247 (error "No messages in sequence %s" (symbol-name sequence)))))) | 246 (error "No messages in sequence %s" (symbol-name sequence)))))) |
| 369 (mh-notate-cur) | 368 (mh-notate-cur) |
| 370 (mh-recenter nil))) | 369 (mh-recenter nil))) |
| 371 (when (and (null mh-folder-view-stack) (boundp 'tool-bar-mode) tool-bar-mode) | 370 (when (and (null mh-folder-view-stack) (boundp 'tool-bar-mode) tool-bar-mode) |
| 372 (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map) | 371 (set (make-local-variable 'tool-bar-map) mh-folder-tool-bar-map) |
| 373 (when (buffer-live-p (get-buffer mh-show-buffer)) | 372 (when (buffer-live-p (get-buffer mh-show-buffer)) |
| 374 (save-excursion | 373 (with-current-buffer mh-show-buffer |
| 375 (set-buffer (get-buffer mh-show-buffer)) | |
| 376 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map))))) | 374 (set (make-local-variable 'tool-bar-map) mh-show-tool-bar-map))))) |
| 377 | 375 |
| 378 | 376 |
| 379 | 377 |
| 380 ;;; Support Routines | 378 ;;; Support Routines |