Mercurial > emacs
changeset 97422:6e551caf98f6
Add declarations for builds without X.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Mon, 11 Aug 2008 01:23:07 +0000 |
| parents | 721936729389 |
| children | 04e6451326c5 |
| files | lisp/ChangeLog lisp/calendar/cal-menu.el lisp/calendar/calendar.el lisp/calendar/holidays.el lisp/dired.el lisp/hi-lock.el lisp/mouse.el lisp/progmodes/cperl-mode.el lisp/term/ns-win.el lisp/term/w32-win.el lisp/term/x-win.el |
| diffstat | 11 files changed, 48 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/ChangeLog Mon Aug 11 01:23:07 2008 +0000 @@ -1,3 +1,20 @@ +2008-08-11 Glenn Morris <rgm@gnu.org> + + * dired.el (x-popup-menu): + * hi-lock.el (x-popup-menu): + * mouse.el (font-face-attributes): + * calendar/cal-menu.el (x-popup-menu): + * calendar/calendar.el (x-popup-menu): + * calendar/holidays.el (x-popup-menu): + * progmodes/cperl-mode.el (x-popup-menu): + * term/ns-win.el (dnd-open-file, tool-bar-mode, scroll-bar-scale) + (x-open-connection): + * term/w32-win.el (x-colors, x-handle-args, x-parse-geometry) + (x-command-line-resources): + * term/x-win.el (x-colors, x-parse-geometry, x-resource-name) + (x-display-name, x-command-line-resources): + Add declarations for builds without X. + 2008-08-10 Glenn Morris <rgm@gnu.org> * calendar/cal-bahai.el (holiday-bahai): Doc fix.
--- a/lisp/calendar/cal-menu.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/calendar/cal-menu.el Mon Aug 11 01:23:07 2008 +0000 @@ -153,6 +153,8 @@ ["Backward 1 Year" (calendar-scroll-right 12) :keys "4 M-v"]) "Key map for \"Scroll\" menu in the calendar.") +(declare-function x-popup-menu "xmenu.c" (position menu)) + (defmacro cal-menu-x-popup-menu (event title &rest body) "Call `x-popup-menu' at position EVENT, with TITLE and contents BODY. Signals an error if popups are unavailable."
--- a/lisp/calendar/calendar.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/calendar/calendar.el Mon Aug 11 01:23:07 2008 +0000 @@ -2422,6 +2422,8 @@ (format "Mayan date: %s" (calendar-mayan-date-string date)))))) +(declare-function x-popup-menu "xmenu.c" (position menu)) + (defun calendar-print-other-dates (&optional event) "Show dates on other calendars for date under the cursor. If called by a mouse-event, pops up a menu with the result."
--- a/lisp/calendar/holidays.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/calendar/holidays.el Mon Aug 11 01:23:07 2008 +0000 @@ -624,6 +624,8 @@ (define-obsolete-function-alias 'check-calendar-holidays 'calendar-check-holidays "23.1") +(declare-function x-popup-menu "xmenu.c" (position menu)) + ;;;###cal-autoload (defun calendar-cursor-holidays (&optional date event) "Find holidays for the date specified by the cursor in the calendar window.
--- a/lisp/dired.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/dired.el Mon Aug 11 01:23:07 2008 +0000 @@ -3314,6 +3314,7 @@ (message-box "Dired recursive copies are currently disabled.\nSee the variable `dired-recursive-copies'.")) +(declare-function x-popup-menu "xmenu.c" (position menu)) (defun dired-dnd-do-ask-action (uri) ;; No need to get actions and descriptions from the source,
--- a/lisp/hi-lock.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/hi-lock.el Mon Aug 11 01:23:07 2008 +0000 @@ -447,6 +447,8 @@ (unless hi-lock-mode (hi-lock-mode 1)) (hi-lock-set-pattern regexp face)) +(declare-function x-popup-menu "xmenu.c" (position menu)) + ;;;###autoload (defalias 'unhighlight-regexp 'hi-lock-unface-buffer) ;;;###autoload
--- a/lisp/mouse.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/mouse.el Mon Aug 11 01:23:07 2008 +0000 @@ -2473,6 +2473,7 @@ (declare-function x-select-font "xfns.c" (&optional frame ignored)) ; USE_GTK (declare-function buffer-face-mode-invoke "face-remap" (face arg &optional interactive)) +(declare-function font-face-attributes "font.c" (font &optional frame)) (defun mouse-appearance-menu (event) (interactive "@e")
--- a/lisp/progmodes/cperl-mode.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/progmodes/cperl-mode.el Mon Aug 11 01:23:07 2008 +0000 @@ -7089,6 +7089,8 @@ (cons cons1 (car cperl-hierarchy))))))) (end-of-line)))) +(declare-function x-popup-menu "xmenu.c" (position menu)) + (defun cperl-tags-hier-init (&optional update) "Show hierarchical menu of classes and methods. Finds info about classes by a scan of loaded TAGS files.
--- a/lisp/term/ns-win.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/term/ns-win.el Mon Aug 11 01:23:07 2008 +0000 @@ -749,6 +749,8 @@ (defvar ns-input-spi-name) (defvar ns-input-spi-arg) +(declare-function dnd-open-file "dnd" (uri action)) + (defun ns-spi-service-call () "Respond to a service request." (interactive) @@ -1209,6 +1211,9 @@ ;; (if this is not done, modeline is dimmed until first interaction) (add-hook 'after-make-frame-functions 'select-frame) +(defvar tool-bar-mode) +(declare-function tool-bar-mode "tool-bar" (&optional arg)) + ;; Based on a function by David Reitter <dreitter@inf.ed.ac.uk> ; ;; see http://lists.gnu.org/archive/html/emacs-devel/2005-09/msg00681.html . (defun ns-toggle-toolbar (&optional frame) @@ -1397,6 +1402,8 @@ (global-unset-key [vertical-scroll-bar mouse-1]) (global-unset-key [vertical-scroll-bar drag-mouse-1]) +(declare-function scroll-bar-scale "scroll-bar" (num-denom whole)) + (defun ns-scroll-bar-move (event) "Scroll the frame according to a Nextstep scroller event." (interactive "e") @@ -1561,6 +1568,8 @@ "Non-nil if Nextstep windowing has been initialized.") (declare-function ns-list-services "nsfns.m" ()) +(declare-function x-open-connection "xfns.c" + (display &optional xrm-string must-succeed)) ;; Do the actual Nextstep Windows setup here; the above code just ;; defines functions and variables that we use now.
--- a/lisp/term/w32-win.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/term/w32-win.el Mon Aug 11 01:23:07 2008 +0000 @@ -147,6 +147,7 @@ (global-set-key [language-change] 'ignore) (defvar x-resource-name) +(defvar x-colors) (defun xw-defined-colors (&optional frame) @@ -225,6 +226,9 @@ (declare-function create-fontset-from-x-resource "fontset" ()) (declare-function x-get-resource "frame.c" (attribute class &optional component subclass)) +(declare-function x-handle-args "common-win" (args)) +(declare-function x-parse-geometry "frame.c" (string)) +(defvar x-command-line-resources) (defun w32-initialize-window-system () "Initialize Emacs for W32 GUI frames."
--- a/lisp/term/x-win.el Mon Aug 11 01:19:29 2008 +0000 +++ b/lisp/term/x-win.el Mon Aug 11 01:23:07 2008 +0000 @@ -253,6 +253,8 @@ (defconst x-pointer-invisible 255) +(defvar x-colors) + (defun xw-defined-colors (&optional frame) "Internal function called by `defined-colors', which see." (or frame (setq frame (selected-frame))) @@ -1449,6 +1451,10 @@ (declare-function x-server-max-request-size "xfns.c" (&optional terminal)) (declare-function x-get-resource "frame.c" (attribute class &optional component subclass)) +(declare-function x-parse-geometry "frame.c" (string)) +(defvar x-resource-name) +(defvar x-display-name) +(defvar x-command-line-resources) (defun x-initialize-window-system () "Initialize Emacs for X frames and open the first connection to an X server."