[Emacs-commit] emacs/lisp thumbs.el

[Richard M . Stallman]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Branch:         
Changes by:     Richard M. Stallman <address@hidden>    04/05/29 15:22:57

Modified files:
        lisp           : thumbs.el 

Log message:
        Don't include cl.  Don't bother with old Emacs versions.
        
        (thumbs-subst-char-in-string): Deleted.
        (thumbs-thumbname): Use subst-char-in-string.
        (thumbs-resize-image): Use condition-case, not ignore-errors.
        (thumbs-kill-buffer): Likewise.
        
        (thumbs-mode): Make buffer read-only.
        (thumbs-make-thumb): Unconditionally accept an existing file.
        (thumbs-insert-thumb): Add thumb-image-file property to the image.
        (thumbs-do-thumbs-insertion): Be smarter about where to put newlines.
        (thumbs-show-thumbs-list): Error if images not supported.
        (thumbs-save-current-image): Improve prompt string.
        (thumbs-mode-map): Define u, R, x.
        (thumbs-unmark): New command.
        (thumbs-emboss-image): Minor cleanup.
        (thumbs-forward-char, thumbs-backward-char): Skip chars with no image.
        (thumbs-rename-images): New command.
        (thumbs-show-image-num): Rewrite.  Don't rename the buffer.
        
        (thumbs-current-image): New function.
        (thumbs-file-list, thumbs-file-alist): New functions.
        (thumbs-find-image): Delete arg L.
        Don't set up thumbs-fileL as buffer-local global var.
        (thumbs-find-image-at-point): Use thumbs-current-image.
        (thumbs-set-image-at-point-to-root-window): Likewise.
        (thumbs-delete-images): Use thumbs-current-image, thumbs-file-alist.
        Record and warn about errors.  Update thumbs-markedL for deletions.
        (thumbs-next-image, thumbs-previous-image): Use thumbs-file-alist.
        (thumbs-redraw-buffer): Use thumbs-file-list.
        (thumbs-mark): Use thumbs-current-image.
        (thumbs-show-name): Use thumbs-current-image.
        
        (thumbs-show-name): Do nothing if no image at point.
        (thumbs-mouse-find-image): New command.
        (thumbs-mode-map): Bind it to mouse-2.
        (thumbs-mode): Make mode-class special.
        (thumbs-view-image-mode): Likewise.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/emacs/emacs/lisp/thumbs.el.diff?tr1=1.5&tr2=1.6&r1=text&r2=text