comparison lisp/toolbar.el @ 487:54fa1a5c2d12

[xemacs-hg @ 2001-04-28 07:48:36 by ben] misc changes, some for 21.4 remove bogus lines setting zmacs_region_stays to 0. remove debug lines. Correct general info about init file. Fix up Cygwin section. More contributions. Fix spurious setting of zmacs-region-stays to t after a non-shift motion command. Sync up with FSF 20.7, to fix bugs handling some etags line formats. Move non-window-system specific code that was duplicated in all window systems into the generic code. * gutter.el (init-gutter): Removed. (unused) Clean up the rectangle code w.r.t. selections. You'll now get the right text copied into the primary selection (but not the clipboard yet, unfortunately -- that really requires defining our own rectangle type).
author ben
date Sat, 28 Apr 2001 07:48:46 +0000
parents abe6d1db359e
children 7039e6323819
comparison
equal deleted inserted replaced
486:a83afd50994d 487:54fa1a5c2d12
99 (let ((name (locate-data-directory "toolbar"))) 99 (let ((name (locate-data-directory "toolbar")))
100 (if name 100 (if name
101 (setq toolbar-icon-directory 101 (setq toolbar-icon-directory
102 (file-name-as-directory name)))))) 102 (file-name-as-directory name))))))
103 103
104 ;; called from toolbar.c during device and frame initialization
104 (defun init-toolbar-from-resources (locale) 105 (defun init-toolbar-from-resources (locale)
105 (if (and (featurep 'x) 106 (if (and (featurep 'x)
106 (not (featurep 'infodock)) 107 (not (featurep 'infodock))
107 (or (eq locale 'global) 108 (or (eq locale 'global)
108 (eq 'x (device-or-frame-type locale)))) 109 (eq 'x (device-or-frame-type locale))))