diff options
| author | Stefan Monnier | 2003-02-10 22:27:33 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2003-02-10 22:27:33 +0000 |
| commit | 9a0fc3da6fd595c3f95f856cdfadc9a6b0dfb2c4 (patch) | |
| tree | 0c8522efe424d9b39001611c2a3917e40b637e34 | |
| parent | 9925c4191b6deb8efd24dceed27ff2aa62b6fa05 (diff) | |
| download | emacs-9a0fc3da6fd595c3f95f856cdfadc9a6b0dfb2c4.tar.gz emacs-9a0fc3da6fd595c3f95f856cdfadc9a6b0dfb2c4.zip | |
(e): Make it a variable.
| -rw-r--r-- | lisp/ChangeLog | 76 | ||||
| -rw-r--r-- | lisp/float-sup.el | 4 |
2 files changed, 51 insertions, 29 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 089f43d2d98..b9637fe8b0e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,27 @@ | |||
| 1 | 2003-02-10 Stefan Monnier <monnier@cs.yale.edu> | ||
| 2 | |||
| 3 | * ffap.el (ffap-complete-as-file-p): | ||
| 4 | Use minibuffer-completing-file-name. | ||
| 5 | |||
| 6 | * international/mule.el (load-with-code-conversion): Use push. | ||
| 7 | |||
| 8 | * font-core.el (font-lock-defontify): Use restore-buffer-modified-p. | ||
| 9 | |||
| 10 | * gud.el (gud-gdb-run-command-fetch-lines, gud-display-line): | ||
| 11 | Use with-current-buffer and simplify. | ||
| 12 | |||
| 13 | * help-mode.el (help-xref-on-pp): Only add xref if the text | ||
| 14 | is less than 5K. | ||
| 15 | |||
| 16 | * pcvs-parse.el (cvs-parse-table): "no longer in repo" does not | ||
| 17 | make the file dead if we used the -n arg. | ||
| 18 | |||
| 19 | * emacs-lisp/cl-macs.el (process-get): Add setf method. | ||
| 20 | |||
| 21 | * server.el (server-previous-strings): Remove. | ||
| 22 | (server-process-filter): Use (process-get 'previous-string) instead. | ||
| 23 | (server-sentinel): Remove code made superfluous. | ||
| 24 | |||
| 1 | 2003-02-10 Luc Teirlinck <teirllm@mail.auburn.edu> | 25 | 2003-02-10 Luc Teirlinck <teirllm@mail.auburn.edu> |
| 2 | 26 | ||
| 3 | * info.el (Info-follow-nearest-node): Implement new behavior. | 27 | * info.el (Info-follow-nearest-node): Implement new behavior. |
| @@ -31,9 +55,9 @@ | |||
| 31 | 55 | ||
| 32 | 2003-02-09 Martin Stjernholm <mast@lysator.liu.se> | 56 | 2003-02-09 Martin Stjernholm <mast@lysator.liu.se> |
| 33 | 57 | ||
| 34 | * progmodes/cc-mode.el (c-basic-common-init): Install | 58 | * progmodes/cc-mode.el (c-basic-common-init): |
| 35 | `c-fill-paragraph' on `fill-paragraph-function'. Although | 59 | Install `c-fill-paragraph' on `fill-paragraph-function'. |
| 36 | it's not the normal way to call it in a CC Mode buffer it | 60 | Although it's not the normal way to call it in a CC Mode buffer it |
| 37 | makes a direct call to `fill-paragraph' work better. | 61 | makes a direct call to `fill-paragraph' work better. |
| 38 | 62 | ||
| 39 | 2003-02-08 Kim F. Storm <storm@cua.dk> | 63 | 2003-02-08 Kim F. Storm <storm@cua.dk> |
| @@ -109,15 +133,14 @@ | |||
| 109 | bytes to ascii text. | 133 | bytes to ascii text. |
| 110 | (top-level): Avoid byte-compiler warnings of unused variables if | 134 | (top-level): Avoid byte-compiler warnings of unused variables if |
| 111 | the byte-compiler supports this. This is for the | 135 | the byte-compiler supports this. This is for the |
| 112 | with-parsed-tramp-file-name macro which is wont to produce such | 136 | with-parsed-tramp-file-name macro which is wont to produce such stuff. |
| 113 | stuff. | ||
| 114 | 137 | ||
| 115 | 2003-02-05 Michael Albinus <Michael.Albinus@alcatel.de> | 138 | 2003-02-05 Michael Albinus <Michael.Albinus@alcatel.de> |
| 116 | 139 | ||
| 117 | * net/tramp.el (tramp-handle-directory-file-name): Handle the case | 140 | * net/tramp.el (tramp-handle-directory-file-name): Handle the case |
| 118 | PATH is "". | 141 | PATH is "". |
| 119 | (tramp-completion-handle-file-name-all-completions): Define | 142 | (tramp-completion-handle-file-name-all-completions): |
| 120 | `tramp-current-user' locally. See `tramp-parse-passwd'. | 143 | Define `tramp-current-user' locally. See `tramp-parse-passwd'. |
| 121 | (tramp-parse-passwd): For su-alike methods it would be desirable | 144 | (tramp-parse-passwd): For su-alike methods it would be desirable |
| 122 | to return "root@localhost" as default. Unfortunately, we have no | 145 | to return "root@localhost" as default. Unfortunately, we have no |
| 123 | information whether any user name has been typed already. So we | 146 | information whether any user name has been typed already. So we |
| @@ -140,8 +163,8 @@ | |||
| 140 | different hosts. So we use virtual device numbers, generated by | 163 | different hosts. So we use virtual device numbers, generated by |
| 141 | `tramp-get-device'. Both Ange-FTP and EFS use device number -1. | 164 | `tramp-get-device'. Both Ange-FTP and EFS use device number -1. |
| 142 | In order to be different, we use device number (-1 x), whereby "x" | 165 | In order to be different, we use device number (-1 x), whereby "x" |
| 143 | is unique for a given (multi-method method user host). Suggested | 166 | is unique for a given (multi-method method user host). |
| 144 | by Kai. | 167 | Suggested by Kai. |
| 145 | (tramp-perl-file-attributes): Always return device number -1. | 168 | (tramp-perl-file-attributes): Always return device number -1. |
| 146 | There will be a virtual device number set in | 169 | There will be a virtual device number set in |
| 147 | `tramp-handle-file-attributes', which replaces this one. | 170 | `tramp-handle-file-attributes', which replaces this one. |
| @@ -149,50 +172,47 @@ | |||
| 149 | (tramp-get-device): New function. Returns the virtual device | 172 | (tramp-get-device): New function. Returns the virtual device |
| 150 | number. If it doesn't exist, generate a new one. | 173 | number. If it doesn't exist, generate a new one. |
| 151 | (tramp-handle-file-regular-p): Use Emacs file name primitives | 174 | (tramp-handle-file-regular-p): Use Emacs file name primitives |
| 152 | instead of calling tramp-handle-* equivalents directly. Needed | 175 | instead of calling tramp-handle-* equivalents directly. |
| 153 | for tramp-smb. | 176 | Needed for tramp-smb. |
| 154 | (tramp-completion-function-alist-ssh): Add parsing of | 177 | (tramp-completion-function-alist-ssh): Add parsing of |
| 155 | "/etc/ssh_config" and "~/.ssh/config". Suggested by Kai. | 178 | "/etc/ssh_config" and "~/.ssh/config". Suggested by Kai. |
| 156 | (tramp-completion-function-alist, tramp-set-completion-function): | 179 | (tramp-completion-function-alist, tramp-set-completion-function): |
| 157 | Doc string update. | 180 | Doc string update. |
| 158 | (tramp-parse-sconfig, tramp-parse-sconfig-group): New functions. | 181 | (tramp-parse-sconfig, tramp-parse-sconfig-group): New functions. |
| 159 | Provide parsing of "~/.ssh/config" style files. | 182 | Provide parsing of "~/.ssh/config" style files. |
| 160 | (tramp-completion-handle-expand-file-name): Apply | 183 | (tramp-completion-handle-expand-file-name): |
| 161 | `tramp-drop-volume-letter'. Otherwise, there are problems on W32 | 184 | Apply `tramp-drop-volume-letter'. Otherwise, there are problems |
| 162 | systems. | 185 | on W32 systems. |
| 163 | (tramp-completion-mode): Perform check (integerp last-input-event) | 186 | (tramp-completion-mode): Perform check (integerp last-input-event) |
| 164 | before (event-modifiers last-input-event) -- there might be | 187 | before (event-modifiers last-input-event) -- there might be |
| 165 | problems if `last-input-event' is a mouse event. | 188 | problems if `last-input-event' is a mouse event. |
| 166 | (tramp-parse-rhosts, tramp-parse-shosts) | 189 | (tramp-parse-rhosts, tramp-parse-shosts) |
| 167 | (tramp-parse-hosts, tramp-parse-passwd, tramp-parse-netrc): Use | 190 | (tramp-parse-hosts, tramp-parse-passwd, tramp-parse-netrc): |
| 168 | `file-readable-p' instead of `file-exists-p'. Otherwise these | 191 | Use `file-readable-p' instead of `file-exists-p'. Otherwise these |
| 169 | functions might block. Reported by <kin@neoscale.com>. | 192 | functions might block. Reported by <kin@neoscale.com>. |
| 170 | 193 | ||
| 171 | * net/tramp-ftp.el (top-level): eval-after-load "ange-ftp" | 194 | * net/tramp-ftp.el (top-level): eval-after-load "ange-ftp" |
| 172 | '(tramp-disable-ange-ftp). Suggested by Kai. | 195 | '(tramp-disable-ange-ftp). Suggested by Kai. |
| 173 | (tramp-ftp-file-name-handler): `tramp-disable-ange-ftp' not needed | 196 | (tramp-ftp-file-name-handler): `tramp-disable-ange-ftp' not needed |
| 174 | any longer. | 197 | any longer. |
| 175 | (top-level): Defaults for `tramp-default-method-alist' must be a | 198 | (top-level): Defaults for `tramp-default-method-alist' must be a list. |
| 176 | list. | ||
| 177 | 199 | ||
| 178 | * net/tramp-smb.el (tramp-smb-file-name-handler-alist): Apply | 200 | * net/tramp-smb.el (tramp-smb-file-name-handler-alist): |
| 179 | `tramp-handle-directory-file-name'. | 201 | Apply `tramp-handle-directory-file-name'. |
| 180 | (tramp-smb-devices, tramp-smb-get-device): Removed. Functionality | 202 | (tramp-smb-devices, tramp-smb-get-device): Remove. |
| 181 | moved to tramp.el. | 203 | Functionality moved to tramp.el. |
| 182 | (tramp-smb-handle-file-attributes): Apply `tramp-get-device'. | 204 | (tramp-smb-handle-file-attributes): Apply `tramp-get-device'. |
| 183 | ATIME and CTIME are (0 0) now (= "don't know"), which is more | 205 | ATIME and CTIME are (0 0) now (= "don't know"), which is more honest. |
| 184 | honest. | ||
| 185 | (tramp-smb-handle-make-directory): Use Emacs file name primitives | 206 | (tramp-smb-handle-make-directory): Use Emacs file name primitives |
| 186 | instead of calling tramp-smb-handle-* equivalents directly. | 207 | instead of calling tramp-smb-handle-* equivalents directly. |
| 187 | (tramp-smb-read-file-entry): Return size as a number but a string. | 208 | (tramp-smb-read-file-entry): Return size as a number but a string. |
| 188 | (tramp-smb-get-device, tramp-smb-get-inode): New functions. | 209 | (tramp-smb-get-device, tramp-smb-get-inode): New functions. |
| 189 | Device number and inode number don't exist for SMB files. | 210 | Device number and inode number don't exist for SMB files. |
| 190 | Therefore we must generate virtual ones. | 211 | Therefore we must generate virtual ones. |
| 191 | (tramp-smb-devices, tramp-smb-inodes): New variables. Keep | 212 | (tramp-smb-devices, tramp-smb-inodes): New variables. |
| 192 | generated virtual device numbers and inodes numbers for SMB files. | 213 | Keep generated virtual device numbers and inodes numbers for SMB files. |
| 193 | (tramp-smb-handle-file-attributes): Apply them. | 214 | (tramp-smb-handle-file-attributes): Apply them. |
| 194 | (top-level): Defaults for `tramp-default-method-alist' must be a | 215 | (top-level): Defaults for `tramp-default-method-alist' must be a list. |
| 195 | list. | ||
| 196 | 216 | ||
| 197 | 2003-02-05 Stefan Monnier <monnier@cs.yale.edu> | 217 | 2003-02-05 Stefan Monnier <monnier@cs.yale.edu> |
| 198 | 218 | ||
diff --git a/lisp/float-sup.el b/lisp/float-sup.el index b587a51b85b..29b918a3bc3 100644 --- a/lisp/float-sup.el +++ b/lisp/float-sup.el | |||
| @@ -36,7 +36,9 @@ | |||
| 36 | ;; provide an easy hook to tell if we are running with floats or not. | 36 | ;; provide an easy hook to tell if we are running with floats or not. |
| 37 | ;; define pi and e via math-lib calls. (much less prone to killer typos.) | 37 | ;; define pi and e via math-lib calls. (much less prone to killer typos.) |
| 38 | (defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") | 38 | (defconst pi (* 4 (atan 1)) "The value of Pi (3.1415926...).") |
| 39 | (defconst e (exp 1) "The value of e (2.7182818...).") | 39 | ;; It's too inconvenient to make `e' a constant because it's used as |
| 40 | ;; a temporary variable all the time. | ||
| 41 | (defvar e (exp 1) "The value of e (2.7182818...).") | ||
| 40 | 42 | ||
| 41 | ;; Careful when editing this file ... typos here will be hard to spot. | 43 | ;; Careful when editing this file ... typos here will be hard to spot. |
| 42 | ;; (defconst pi 3.14159265358979323846264338327 | 44 | ;; (defconst pi 3.14159265358979323846264338327 |