mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Remove XEmacs and old Emacs compat code from gamegrid.el

Browse Source 
* lisp/play/gamegrid.el (gamegrid-event-x, gamegrid-event-y)
(gamegrid-make-glyph, image-size, gamegrid-initialize-display)
(gamegrid-start-timer, gamegrid-set-timer)
(gamegrid-kill-timer)
(gamegrid-add-score-with-update-game-score-1)
(gamegrid-add-score-insecure): Removed XEmacs compat code.
(gamegrid-characterp, gamegrid-set-display-table): Removed functions.
This commit is contained in:
Lars Ingebrigtsen 2019-06-19 23:59:54 +02:00
parent ec45664d28
commit 1f6e6ee4f7
1 changed files with 13 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

69
lisp/play/gamegrid.el
View File

@ -240,20 +240,11 @@ format."
;; ;;;;;;;;;;;;;;;; miscellaneous functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defsubst gamegrid-characterp (arg)
(if (fboundp 'characterp)
(characterp arg)
(integerp arg)))
(defsubst gamegrid-event-x (event)
(if (fboundp 'event-x)
(event-x event)
(car (posn-col-row (event-end event)))))
(car (posn-col-row (event-end event))))
(defsubst gamegrid-event-y (event)
(if (fboundp 'event-y)
(event-y event)
(cdr (posn-col-row (event-end event)))))
(cdr (posn-col-row (event-end event))))
;; ;;;;;;;;;;;;; display functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -365,7 +356,7 @@ format."
(defun gamegrid-make-glyph (data-spec-list color-spec-list)
(let ((data (gamegrid-match-spec-list data-spec-list))
(color (gamegrid-match-spec-list color-spec-list)))
(cond ((gamegrid-characterp data)
(cond ((characterp data)
(vector data))
((eq data 'colorize)
(gamegrid-colorize-glyph color))
@ -399,15 +390,6 @@ format."
(t
'emacs-tty)))
(defun gamegrid-set-display-table ()
(if (featurep 'xemacs)
(add-spec-to-specifier current-display-table
gamegrid-display-table
(current-buffer)
nil
'remove-locale)
(setq buffer-display-table gamegrid-display-table)))
(declare-function image-size "image.c" (spec &optional pixels frame))
(defun gamegrid-setup-default-font ()
@ -444,7 +426,7 @@ format."
(aset gamegrid-face-table c face)
(aset gamegrid-display-table c glyph)))
(gamegrid-setup-default-font)
(gamegrid-set-display-table)
(setq buffer-display-table gamegrid-display-table)
(setq cursor-type nil))
@ -506,34 +488,19 @@ format."
(defun gamegrid-start-timer (period func)
(setq gamegrid-timer
(if (featurep 'xemacs)
(start-itimer "Gamegrid"
func
period
period
nil
t
(current-buffer))
(run-with-timer period
period
func
(current-buffer)))))
(run-with-timer period period func (current-buffer))))
(defun gamegrid-set-timer (delay)
(if gamegrid-timer
(if (fboundp 'set-itimer-restart)
(set-itimer-restart gamegrid-timer delay)
(timer-set-time gamegrid-timer
(list (aref gamegrid-timer 1)
(aref gamegrid-timer 2)
(aref gamegrid-timer 3))
delay))))
(timer-set-time gamegrid-timer
(list (aref gamegrid-timer 1)
(aref gamegrid-timer 2)
(aref gamegrid-timer 3))
delay)))
(defun gamegrid-kill-timer ()
(if gamegrid-timer
(if (featurep 'xemacs)
(delete-itimer gamegrid-timer)
(cancel-timer gamegrid-timer)))
(cancel-timer gamegrid-timer))
(setq gamegrid-timer nil))
;; ;;;;;;;;;;;;;;; high score functions ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@ -627,13 +594,7 @@ FILE is created there."
(errbuf (generate-new-buffer " *update-game-score loss*"))
(marker-string (concat
(user-full-name)
" <"
(cond ((fboundp 'user-mail-address)
(user-mail-address))
((boundp 'user-mail-address)
user-mail-address)
(t ""))
"> "
" <" user-mail-address "> "
(current-time-string))))
;; This can be called from a timer, so enable local quits.
(with-local-quit
@ -681,11 +642,7 @@ FILE is created there."
score
(current-time-string)
(user-full-name)
(cond ((fboundp 'user-mail-address)
(user-mail-address))
((boundp 'user-mail-address)
user-mail-address)
(t ""))))
user-mail-address))
(sort-fields 1 (point-min) (point-max))
(reverse-region (point-min) (point-max))
(goto-char (point-min))