Anonymous avatar Anonymous committed 9e285fe

ebola fixes

Comments (0)

Files changed (5)

 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 1.02
-AUTHOR_VERSION = 2.02f
+VERSION = 1.03
+AUTHOR_VERSION = 2.02fX1
 MAINTAINER = XEmacs Development Team <xemacs-beta@xemacs.org>
 PACKAGE = calc
 PKG_TYPE = regular
   (setq s (copy-sequence s))
   (let ((i (length s)))
     (while (>= (setq i (1- i)) 0)
-      (or (memq (aref s i) '(32 ?\n))
+      (or (memq (aref s i) '(?  ?\n))
 	  (aset s i (if calc-show-selections ?\. ?\#)))))
   s
 )
      (setq key (read-char))
      (if (= (calc-user-function-classify key) 0)
 	 (error "Can't redefine \"?\" key"))
-     (setq key (and (not (memq key '(13 32))) key)
+     (setq key (and (not (memq key '(?\r ? ))) key)
 	   keyname (and key
 			(if (or (and (<= ?0 key) (<= key ?9))
 				(and (<= ?a key) (<= key ?z))
 				    (setq min-bsp (1+ (length str)))))
 			   (setq str (concat str (char-to-string ch)))
 			 (setq str (substring str 0 -1))))
-		     (if (memq ch '(32 10 13))
+		     (if (memq ch '(?  ?\n ?\r))
 			 (setq str (concat str (char-to-string ch)))
 		       (MacEdit-unread-chars ch))
 		     (insert "type \"")
 		   (setq min-bsp (+ (length str) (length key-str)))))
 	  (setq str (concat str key-str))
 	(setq str (substring str 0 -1))))
-    (if (memq key-last '(10 13))
+    (if (memq key-last '(?\n ?\r))
 	(setq str (concat str key-str)
 	      macro-str (substring macro-str (length key-str))))
     (if (> (length str) 0)
 	    (if calc-scan-for-dels
 		(append (where-is-internal 'delete-backward-char global-map)
 			(where-is-internal 'backward-delete-char global-map)
+			(where-is-internal 'backward-or-forward-delete-char global-map)
 			'("\C-d"))
 	      '("\177" "\C-d")))
 
 			  (< ch 127)))
 	      (insert (substring str j i))
 	      (setq i (1- i)))
-	  (if (memq ch '(127 255))
+	  (if (memq ch '(?\177 ?\377))
 	      (insert (format "\\%03o" ch))
 	    (insert "\\M-" (char-to-string (- ch 128))))))
       (setq i (1+ i))))
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.