- phemlock-cvs@common-lisp.net - mailman3.common-lisp.net

[Phemlock-cvs] CVS update: phemlock/src/echo.lisp phemlock/src/font.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src In directory common-lisp.net:/tmp/cvs-serv10336/src Modified Files: echo.lisp font.lisp Log Message: Replaced most trivial defsetf with a corresponding (defun (setf ...) ...) Date: Tue Aug 10 05:47:05 2004 Author: rstrandh Index: phemlock/src/echo.lisp diff -u phemlock/src/echo.lisp:1.3 phemlock/src/echo.lisp:1.4 --- phemlock/src/echo.lisp:1.3 Mon Aug 9 22:58:03 2004 +++ phemlock/src/echo.lisp Tue Aug 10 05:47:04 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.3 2004/08/10 05:58:03 rstrandh Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.4 2004/08/10 12:47:04 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -599,7 +599,8 @@ ;;; Add or remove a logical key-event link by adding to or deleting from ;;; the list in the from-char hashtable and the descriptor. ;;; -(defun %set-logical-key-event-p (key-event keyword new-value) +(defun (setf logical-key-event-p) (new-value key-event keyword) + "Change what Logical-Char= returns for the specified arguments." (let ((entry (get-logical-key-event-desc keyword))) (cond (new-value Index: phemlock/src/font.lisp diff -u phemlock/src/font.lisp:1.1.1.1 phemlock/src/font.lisp:1.2 --- phemlock/src/font.lisp:1.1.1.1 Fri Jul 9 06:37:45 2004 +++ phemlock/src/font.lisp Tue Aug 10 05:47:04 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/font.lisp,v 1.1.1.1 2004/07/09 13:37:45 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/font.lisp,v 1.2 2004/08/10 12:47:04 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -94,7 +94,8 @@ "Returns a font id for window and font." (svref (font-family-map (bitmap-hunk-font-family (window-hunk window))) font)) -(defun %set-window-font (window font font-object) +(defun (setf window-font) (font-object window font) + "Change the font-object associated with a font-number in a window." (unless (and (>= font 0) (< font font-map-size)) (error "Font number ~S out of range." font)) (setf (bitmap-hunk-trashed (window-hunk window)) :font-change) @@ -109,7 +110,8 @@ "Returns the font id for font out of the default font family." (svref (font-family-map *default-font-family*) font)) -(defun %set-default-font (font font-object) +(defun (setf default-font) (font-object font) + "Change the font-object associated with a font-number in new windows." (unless (and (>= font 0) (< font font-map-size)) (error "Font number ~S out of range." font)) (dolist (w *window-list*)

1 0

[Phemlock-cvs] CVS update: phemlock/src/bitmap/bit-screen.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src/bitmap In directory common-lisp.net:/tmp/cvs-serv10336/src/bitmap Modified Files: bit-screen.lisp Log Message: Replaced most trivial defsetf with a corresponding (defun (setf ...) ...) Date: Tue Aug 10 05:47:06 2004 Author: rstrandh Index: phemlock/src/bitmap/bit-screen.lisp diff -u phemlock/src/bitmap/bit-screen.lisp:1.1.1.1 phemlock/src/bitmap/bit-screen.lisp:1.2 --- phemlock/src/bitmap/bit-screen.lisp:1.1.1.1 Fri Jul 9 06:37:58 2004 +++ phemlock/src/bitmap/bit-screen.lisp Tue Aug 10 05:47:06 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/bitmap/bit-screen.lisp,v 1.1.1.1 2004/07/09 13:37:58 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/bitmap/bit-screen.lisp,v 1.2 2004/08/10 12:47:06 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1123,19 +1123,19 @@ ;;;; Setting window width and height. -;;; %SET-WINDOW-WIDTH -- Internal +;;; (SETF WINDOW-WIDTH) -- Internal ;;; ;;; Since we don't support non-full-width windows, this does nothing. ;;; -(defun %set-window-width (window new-value) +(defun (setf window-width) (new-value window) (declare (ignore window)) new-value) -;;; %SET-WINDOW-HEIGHT -- Internal +;;; (SETF WINDOW-HEIGHT) -- Internal ;;; ;;; Can't change window height either. ;;; -(defun %set-window-height (window new-value) +(defun (setf window-height) (new-value window) (declare (ignore window)) new-value)

1 0

[Phemlock-cvs] the CVS mailing list
by Robert Strandh 10 Aug '04

10 Aug '04

It seems like my commits do not show up on the phemlock-cvs mailing list. Does anybody know why? -- Robert Strandh --------------------------------------------------------------------- Greenspun's Tenth Rule of Programming: any sufficiently complicated C or Fortran program contains an ad hoc informally-specified bug-ridden slow implementation of half of Common Lisp. ---------------------------------------------------------------------

1 0

[Phemlock-cvs] CVS update: phemlock/src/user/bindings.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src/user In directory common-lisp.net:/tmp/cvs-serv23331/user Modified Files: bindings.lisp Log Message: Commented out some of the bindings that generated compile-time error messages because the functionality was commented out in the hemlock.system file. There are lots left, though. Date: Mon Aug 9 23:34:42 2004 Author: rstrandh Index: phemlock/src/user/bindings.lisp diff -u phemlock/src/user/bindings.lisp:1.2 phemlock/src/user/bindings.lisp:1.3 --- phemlock/src/user/bindings.lisp:1.2 Mon Aug 9 22:24:16 2004 +++ phemlock/src/user/bindings.lisp Mon Aug 9 23:34:42 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.2 2004/08/10 05:24:16 rstrandh Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.3 2004/08/10 06:34:42 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -321,24 +321,24 @@ ;;;; Typescript. -(bind-key "Confirm Typescript Input" #k"return" :mode "Typescript") -(bind-key "Interactive Beginning of Line" #k"control-a" :mode "Typescript") -(bind-key "Kill Interactive Input" #k"meta-i" :mode "Typescript") -(bind-key "Previous Interactive Input" #k"meta-p" :mode "Typescript") -(bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Typescript") -(bind-key "Next Interactive Input" #k"meta-n" :mode "Typescript") -(bind-key "Reenter Interactive Input" #k"control-return" :mode "Typescript") -(bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript") -(bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript") -(bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript") -(bind-key "Select Slave" #k"control-meta-\c") -(bind-key "Select Background" #k"control-meta-C") +;; (bind-key "Confirm Typescript Input" #k"return" :mode "Typescript") +;; (bind-key "Interactive Beginning of Line" #k"control-a" :mode "Typescript") +;; (bind-key "Kill Interactive Input" #k"meta-i" :mode "Typescript") +;; (bind-key "Previous Interactive Input" #k"meta-p" :mode "Typescript") +;; (bind-key "Search Previous Interactive Input" #k"meta-P" :mode "Typescript") +;; (bind-key "Next Interactive Input" #k"meta-n" :mode "Typescript") +;; (bind-key "Reenter Interactive Input" #k"control-return" :mode "Typescript") +;; (bind-key "Typescript Slave Break" #k"hyper-b" :mode "Typescript") +;; (bind-key "Typescript Slave to Top Level" #k"hyper-g" :mode "Typescript") +;; (bind-key "Typescript Slave Status" #k"hyper-s" :mode "Typescript") +;; (bind-key "Select Slave" #k"control-meta-\c") +;; (bind-key "Select Background" #k"control-meta-C") -(bind-key "Abort Operations" #k"hyper-a") -(bind-key "List Operations" #k"hyper-l") +;; (bind-key "Abort Operations" #k"hyper-a") +;; (bind-key "List Operations" #k"hyper-l") -(bind-key "Next Compiler Error" #k"hyper-n") -(bind-key "Previous Compiler Error" #k"hyper-p") +;; (bind-key "Next Compiler Error" #k"hyper-n") +;; (bind-key "Previous Compiler Error" #k"hyper-p") ;;;; Lisp (some). @@ -474,20 +474,20 @@ ;;;; Spell bindings. -(bind-key "Check Word Spelling" #k"meta-$") -(bind-key "Add Word to Spelling Dictionary" #k"control-x $") +;; (bind-key "Check Word Spelling" #k"meta-$") +;; (bind-key "Add Word to Spelling Dictionary" #k"control-x $") -(dolist (info (command-bindings (getstring "Self Insert" *command-names*))) - (let* ((key (car info)) - (key-event (svref key 0)) - (character (key-event-char key-event))) - (unless (or (alpha-char-p character) (eq key-event #k"'")) - (bind-key "Auto Check Word Spelling" key :mode "Spell")))) -(bind-key "Auto Check Word Spelling" #k"return" :mode "Spell") -(bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell") -(bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell") -(bind-key "Correct Last Misspelled Word" #k"meta-:") -(bind-key "Undo Last Spelling Correction" #k"control-x a") +;; (dolist (info (command-bindings (getstring "Self Insert" *command-names*))) +;; (let* ((key (car info)) +;; (key-event (svref key 0)) +;; (character (key-event-char key-event))) +;; (unless (or (alpha-char-p character) (eq key-event #k"'")) +;; (bind-key "Auto Check Word Spelling" key :mode "Spell")))) +;; (bind-key "Auto Check Word Spelling" #k"return" :mode "Spell") +;; (bind-key "Auto Check Word Spelling" #k"tab" :mode "Spell") +;; (bind-key "Auto Check Word Spelling" #k"linefeed" :mode "Spell") +;; (bind-key "Correct Last Misspelled Word" #k"meta-:") +;; (bind-key "Undo Last Spelling Correction" #k"control-x a") ;;;; Overwrite Mode.

1 0

[Phemlock-cvs] CVS update: phemlock/src/core/package.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src/core In directory common-lisp.net:/tmp/cvs-serv27169/src/core Modified Files: package.lisp Log Message: Removed logical-key-event-name and logical-key-event-documentation as they were never used. Date: Mon Aug 9 22:58:04 2004 Author: rstrandh Index: phemlock/src/core/package.lisp diff -u phemlock/src/core/package.lisp:1.2 phemlock/src/core/package.lisp:1.3 --- phemlock/src/core/package.lisp:1.2 Mon Aug 9 22:24:16 2004 +++ phemlock/src/core/package.lisp Mon Aug 9 22:58:04 2004 @@ -204,8 +204,6 @@ #:editor-finish-output #:define-logical-key-event #:logical-key-event-key-events - #:logical-key-event-name - #:logical-key-event-documentation #:logical-key-event-p #:clear-echo-area #:message @@ -661,8 +659,8 @@ #:prompt-for-keyword #:prompt-for-expression #:prompt-for-string #:prompt-for-variable #:prompt-for-yes-or-no #:prompt-for-y-or-n #:prompt-for-key-event #:prompt-for-key - #:logical-key-event-p #:logical-key-event-documentation - #:logical-key-event-name #:logical-key-event-key-events + #:logical-key-event-p + #:logical-key-event-key-events #:define-logical-key-event #:*parse-type* #:current-variable-tables ;; files.lisp @@ -860,6 +858,10 @@ ) ;; $Log: package.lisp,v $ +;; Revision 1.3 2004/08/10 05:58:04 rstrandh +;; Removed logical-key-event-name and logical-key-event-documentation +;; as they were never used. +;; ;; Revision 1.2 2004/08/10 05:24:16 rstrandh ;; Removed the string table *logical-key-event-names* as it was never ;; used, only written to.

1 0

[Phemlock-cvs] CVS update: phemlock/src/echo.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src In directory common-lisp.net:/tmp/cvs-serv27169/src Modified Files: echo.lisp Log Message: Removed logical-key-event-name and logical-key-event-documentation as they were never used. Date: Mon Aug 9 22:58:03 2004 Author: rstrandh Index: phemlock/src/echo.lisp diff -u phemlock/src/echo.lisp:1.2 phemlock/src/echo.lisp:1.3 --- phemlock/src/echo.lisp:1.2 Mon Aug 9 22:24:15 2004 +++ phemlock/src/echo.lisp Mon Aug 9 22:58:03 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.2 2004/08/10 05:24:15 rstrandh Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.3 2004/08/10 05:58:03 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -612,19 +612,6 @@ (delete keyword (logical-key-event-descriptor-key-events entry)))))) new-value) -;;; LOGICAL-KEY-EVENT-DOCUMENTATION, NAME, KEY-EVENTS -- Public -;;; -;;; Grab the right field out of the descriptor and return it. -;;; -(defun logical-key-event-documentation (keyword) - "Return the documentation for the logical key-event Keyword." - (logical-key-event-descriptor-documentation - (get-logical-key-event-desc keyword))) -;;; -(defun logical-key-event-name (keyword) - "Return the string name for the logical key-event Keyword." - (logical-key-event-descriptor-name (get-logical-key-event-desc keyword))) -;;; (defun logical-key-event-key-events (keyword) "Return the list of key-events for which Keyword is the logical key-event." (logical-key-event-descriptor-key-events @@ -643,7 +630,6 @@ (entry (or (gethash keyword *logical-key-event-descriptors*) (setf (gethash keyword *logical-key-event-descriptors*) (make-logical-key-event-descriptor))))) - (setf (logical-key-event-descriptor-name entry) name) (setf (logical-key-event-descriptor-documentation entry) documentation)))

1 0

[Phemlock-cvs] CVS update: phemlock/src/user/bindings.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src/user In directory common-lisp.net:/tmp/cvs-serv994/src/user Modified Files: bindings.lisp Log Message: Removed the string table *logical-key-event-names* as it was never used, only written to. Added #k"control=[" as an alias for ESCAPE, because that is what I use all the time (rather than trying to find the META key). Date: Mon Aug 9 22:24:16 2004 Author: rstrandh Index: phemlock/src/user/bindings.lisp diff -u phemlock/src/user/bindings.lisp:1.1.1.1 phemlock/src/user/bindings.lisp:1.2 --- phemlock/src/user/bindings.lisp:1.1.1.1 Fri Jul 9 06:38:49 2004 +++ phemlock/src/user/bindings.lisp Mon Aug 9 22:24:16 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.1.1.1 2004/07/09 13:38:49 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/user/bindings.lisp,v 1.2 2004/08/10 05:24:16 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -22,6 +22,7 @@ ;;; the next character typed. ;;; (setf (key-translation #k"escape") '(:bits :meta)) +(setf (key-translation #k"control-[") '(:bits :meta)) (setf (key-translation #k"control-z") '(:bits :control :meta)) (setf (key-translation #k"control-Z") '(:bits :control :meta)) (setf (key-translation #k"control-^") '(:bits :control))

1 0

[Phemlock-cvs] CVS update: phemlock/src/core/package.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src/core In directory common-lisp.net:/tmp/cvs-serv994/src/core Modified Files: package.lisp Log Message: Removed the string table *logical-key-event-names* as it was never used, only written to. Added #k"control=[" as an alias for ESCAPE, because that is what I use all the time (rather than trying to find the META key). Date: Mon Aug 9 22:24:16 2004 Author: rstrandh Index: phemlock/src/core/package.lisp diff -u phemlock/src/core/package.lisp:1.1 phemlock/src/core/package.lisp:1.2 --- phemlock/src/core/package.lisp:1.1 Fri Jul 9 08:00:36 2004 +++ phemlock/src/core/package.lisp Mon Aug 9 22:24:16 2004 @@ -660,7 +660,7 @@ #:prompt-for-buffer #:prompt-for-file #:prompt-for-integer #:prompt-for-keyword #:prompt-for-expression #:prompt-for-string #:prompt-for-variable #:prompt-for-yes-or-no #:prompt-for-y-or-n - #:prompt-for-key-event #:prompt-for-key #:*logical-key-event-names* + #:prompt-for-key-event #:prompt-for-key #:logical-key-event-p #:logical-key-event-documentation #:logical-key-event-name #:logical-key-event-key-events #:define-logical-key-event #:*parse-type* #:current-variable-tables @@ -860,6 +860,13 @@ ) ;; $Log: package.lisp,v $ +;; Revision 1.2 2004/08/10 05:24:16 rstrandh +;; Removed the string table *logical-key-event-names* as it was never +;; used, only written to. +;; +;; Added #k"control=[" as an alias for ESCAPE, because that is what +;; I use all the time (rather than trying to find the META key). +;; ;; Revision 1.1 2004/07/09 15:00:36 gbaumann ;; Let us see if this works. ;;

1 0

[Phemlock-cvs] CVS update: phemlock/src/echo.lisp
by Robert Strandh 10 Aug '04

10 Aug '04

Update of /project/phemlock/cvsroot/phemlock/src In directory common-lisp.net:/tmp/cvs-serv994/src Modified Files: echo.lisp Log Message: Removed the string table *logical-key-event-names* as it was never used, only written to. Added #k"control=[" as an alias for ESCAPE, because that is what I use all the time (rather than trying to find the META key). Date: Mon Aug 9 22:24:15 2004 Author: rstrandh Index: phemlock/src/echo.lisp diff -u phemlock/src/echo.lisp:1.1.1.1 phemlock/src/echo.lisp:1.2 --- phemlock/src/echo.lisp:1.1.1.1 Fri Jul 9 06:37:45 2004 +++ phemlock/src/echo.lisp Mon Aug 9 22:24:15 2004 @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; #+CMU (ext:file-comment - "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.1.1.1 2004/07/09 13:37:45 gbaumann Exp $") + "$Header: /project/phemlock/cvsroot/phemlock/src/echo.lisp,v 1.2 2004/08/10 05:24:15 rstrandh Exp $") ;;; ;;; ********************************************************************** ;;; @@ -559,10 +559,6 @@ ;;;; Logical key-event stuff. -(defvar *logical-key-event-names* (make-string-table) - "This variable holds a string-table from logical-key-event names to the - corresponding keywords.") - (defvar *real-to-logical-key-events* (make-hash-table :test #'eql) "A hashtable from real key-events to their corresponding logical key-event keywords.") @@ -648,9 +644,7 @@ (setf (gethash keyword *logical-key-event-descriptors*) (make-logical-key-event-descriptor))))) (setf (logical-key-event-descriptor-name entry) name) - (setf (logical-key-event-descriptor-documentation entry) documentation) - (setf (getstring name *logical-key-event-names*) keyword))) - + (setf (logical-key-event-descriptor-documentation entry) documentation))) ;;;; Some standard logical-key-events:

1 0

[Phemlock-cvs] CVS update: phemlock/hemlock.asd
by Dan Barlow 19 Jul '04

19 Jul '04

Update of /project/phemlock/cvsroot/phemlock In directory common-lisp.net:/tmp/cvs-serv12448 Added Files: hemlock.asd Log Message: temporary hack until gilbert switches away from mk-defsystem properly Date: Mon Jul 19 16:50:26 2004 Author: dbarlow

1 0