Mercurial > hg > xemacs-beta
view tests/gtk/toolbar-test.el @ 4641:a90b63846dc4
Set buffer-file-coding-system more sensibly with zero-length files.
lisp/ChangeLog addition:
2009-06-07 Aidan Kehoe <kehoea@parhasard.net>
* code-files.el (insert-file-contents):
Autodetection may return undecided as a coding system. If the file
was zero-length, this is kosher, and we should set
buffer-file-coding-system to its default; if it is not
zero-length, we still need to set b-f-c-s, but we warn that the
autodetection fails. (Ignoring that for the user, autodetection
failing is something very distinct from what we use it to mean
here.) See
http://mid.gmane.org/18986.53111.800393.660612@parhasard.net and
the related thread.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sun, 07 Jun 2009 16:47:04 +0100 |
| parents | 0784d089fdc9 |
| children | db7068430402 |
line wrap: on
line source
(require 'gtk-widgets) (require 'gnome-widgets) (defvar gnomeified-toolbar ;; [CAPTION TOOLTIP ICON CALLBACK ENABLED] '(["Open" "Open a file" new toolbar-open t] ["Dired" "Edit a directory" open toolbar-dired t] ["Save" "Save buffer" save toolbar-save t] ["Print" "Print Buffer" print toolbar-print t] ["Cut" "Kill region" cut toolbar-cut t] ["Copy" "Copy region" copy toolbar-copy t] ["Paste" "Paste from clipboard" paste toolbar-paste t] ["Undo" "Undo edit" undo toolbar-undo t] ["Spell" "Check spelling" spellcheck toolbar-ispell t] ["Replace" "Search & Replace" srchrpl toolbar-replace t] ["Mail" "Read mail" mail toolbar-mail t] ; info ; compile ; debug ; news )) (setq x (gtk-toolbar-new 'horizontal 'both)) (gnome-app-set-toolbar (frame-property nil 'shell-widget) x) (mapc (lambda (descr) (gtk-toolbar-append-item x (aref descr 0) (aref descr 1) "" (gnome-stock-pixmap-widget-new x (aref descr 2)) `(lambda (&rest ignored) (,(aref descr 3))))) gnomeified-toolbar)