Mercurial > hg > xemacs-beta
comparison lisp/toolbar.el @ 3061:fd1acd2f457a
[xemacs-hg @ 2005-11-13 07:39:26 by ben]
fix 'foo -> `foo', `foo.' -> `foo'.
derived.el, frame.el, toolbar.el, glyphs.el, hyper-apropos.el, mouse.el, files.el, specifier.el: Fix uses of `foo'; change 'foo -> `foo', and put punctuation outside
of quotes.
Add comments in specifier.el about needing better and new convenience
functions.
| author | ben |
|---|---|
| date | Sun, 13 Nov 2005 07:39:29 +0000 |
| parents | 943eaba38521 |
| children | 5efbd1253905 |
comparison
equal
deleted
inserted
replaced
| 3060:7679bfa253c2 | 3061:fd1acd2f457a |
|---|---|
| 144 ;; It really sucks that we also have to tie onto | 144 ;; It really sucks that we also have to tie onto |
| 145 ;; default-mouse-motion-handler to make sliding buttons work right. | 145 ;; default-mouse-motion-handler to make sliding buttons work right. |
| 146 ;; | 146 ;; |
| 147 (defun press-toolbar-button (event) | 147 (defun press-toolbar-button (event) |
| 148 "Press a toolbar button. This only changes its appearance. | 148 "Press a toolbar button. This only changes its appearance. |
| 149 Call function stored in `toolbar-blank-press-function,' if any, with EVENT as | 149 Call function stored in `toolbar-blank-press-function', if any, with EVENT as |
| 150 an argument if press is over a blank area of the toolbar." | 150 an argument if press is over a blank area of the toolbar." |
| 151 (interactive "_e") | 151 (interactive "_e") |
| 152 (setq this-command last-command) | 152 (setq this-command last-command) |
| 153 (let ((button (event-toolbar-button event))) | 153 (let ((button (event-toolbar-button event))) |
| 154 ;; We silently ignore non-buttons. This most likely means we are | 154 ;; We silently ignore non-buttons. This most likely means we are |
| 163 (when (functionp toolbar-blank-press-function) | 163 (when (functionp toolbar-blank-press-function) |
| 164 (funcall toolbar-blank-press-function event))))) | 164 (funcall toolbar-blank-press-function event))))) |
| 165 | 165 |
| 166 (defun release-and-activate-toolbar-button (event) | 166 (defun release-and-activate-toolbar-button (event) |
| 167 "Release a toolbar button and activate its callback. | 167 "Release a toolbar button and activate its callback. |
| 168 Call function stored in `toolbar-blank-release-function,' if any, with EVENT | 168 Call function stored in `toolbar-blank-release-function', if any, with EVENT |
| 169 as an argument if release is over a blank area of the toolbar." | 169 as an argument if release is over a blank area of the toolbar." |
| 170 (interactive "_e") | 170 (interactive "_e") |
| 171 (or (button-release-event-p event) | 171 (or (button-release-event-p event) |
| 172 (error "%s must be invoked by a mouse-release" this-command)) | 172 (error "%s must be invoked by a mouse-release" this-command)) |
| 173 (release-toolbar-button event) | 173 (release-toolbar-button event) |