/[emacs]/emacs/lisp/strokes.el
ViewVC logotype

Diff of /emacs/lisp/strokes.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14.6.1 by handa, Fri Apr 16 12:50:10 2004 UTC revision 1.14.6.2 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 1354  If STROKES-MAP is not given, `strokes-gl Line 1354  If STROKES-MAP is not given, `strokes-gl
1354                             :color-symbols                             :color-symbols
1355                             `(("foreground"                             `(("foreground"
1356                                . ,(frame-parameter nil 'foreground-color))))))                                . ,(frame-parameter nil 'foreground-color))))))
1357            finally do (kill-region (1+ (point)) (point-max)))            finally do (unless (eobp)
1358                           (kill-region (1+ (point)) (point-max))))
1359      (view-buffer "*Strokes List*" nil)      (view-buffer "*Strokes List*" nil)
1360      (set (make-local-variable 'view-mode-map)      (set (make-local-variable 'view-mode-map)
1361           (let ((map (copy-keymap view-mode-map)))           (let ((map (copy-keymap view-mode-map)))
# Line 1745  Store XPM in buffer BUFNAME if supplied Line 1746  Store XPM in buffer BUFNAME if supplied
1746    (strokes-mode -1)    (strokes-mode -1)
1747    (remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes))    (remove-hook 'kill-emacs-query-functions 'strokes-prompt-user-save-strokes))
1748    
1749    (add-hooks 'strokes-unload-hook 'strokes-unload-hook)
1750    
1751  (run-hooks 'strokes-load-hook)  (run-hooks 'strokes-load-hook)
1752  (provide 'strokes)  (provide 'strokes)
1753    

Legend:
Removed from v.1.14.6.1  
changed lines
  Added in v.1.14.6.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26