mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-06 06:20:55 -08:00
f18af6cd5c
I audited use of lsh in the Lisp source code, and fixed the glitches that I found. While I was at it, I replaced uses of lsh with ash when either will do. Replacement is OK when either argument is known to be nonnegative, or when only the low-order bits of the result matter, and is a (minor) win since ash is a bit more solid than lsh nowadays, and is a bit faster. * lisp/calc/calc-ext.el (math-check-fixnum): Prefer most-positive-fixnum to (lsh -1 -1). * lisp/vc/vc-hg.el (vc-hg-state-fast): When testing fixnum width, prefer (zerop (ash most-positive-fixnum -32)) to (zerop (lsh -1 32)) (Bug#32485#11). * lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode): Tighten sanity-check for bytecode overflow, by checking that the result of (ash pc -8) is nonnegative. Formerly this check was not needed since lsh was used and the number overflowed differently. * lisp/net/dns.el (dns-write): Fix some obvious sign typos in shift counts. Evidently this part of the code has never been exercised. * lisp/progmodes/hideif.el (hif-shiftleft, hif-shiftright): * lisp/term/common-win.el (x-setup-function-keys): Simplify. * admin/unidata/unidata-gen.el, admin/unidata/uvs.el: * doc/lispref/keymaps.texi, doc/lispref/syntax.texi: * doc/misc/calc.texi, doc/misc/cl.texi, etc/NEWS.19: * lisp/arc-mode.el, lisp/calc/calc-bin.el, lisp/calc/calc-comb.el: * lisp/calc/calc-ext.el, lisp/calc/calc-math.el: * lisp/cedet/semantic/wisent/comp.el, lisp/composite.el: * lisp/disp-table.el, lisp/dos-fns.el, lisp/edmacro.el: * lisp/emacs-lisp/bindat.el, lisp/emacs-lisp/byte-opt.el: * lisp/emacs-lisp/bytecomp.el, lisp/emacs-lisp/cl-extra.el: * lisp/erc/erc-dcc.el, lisp/facemenu.el, lisp/gnus/message.el: * lisp/gnus/nndoc.el, lisp/gnus/nnmaildir.el, lisp/image.el: * lisp/international/ccl.el, lisp/international/fontset.el: * lisp/international/mule-cmds.el, lisp/international/mule.el: * lisp/json.el, lisp/mail/binhex.el, lisp/mail/rmail.el: * lisp/mail/uudecode.el, lisp/md4.el, lisp/net/dns.el: * lisp/net/ntlm.el, lisp/net/sasl.el, lisp/net/socks.el: * lisp/net/tramp.el, lisp/obsolete/levents.el: * lisp/obsolete/pgg-parse.el, lisp/org/org.el: * lisp/org/ox-publish.el, lisp/progmodes/cc-defs.el: * lisp/progmodes/ebnf2ps.el, lisp/progmodes/hideif.el: * lisp/ps-bdf.el, lisp/ps-print.el, lisp/simple.el: * lisp/tar-mode.el, lisp/term/common-win.el: * lisp/term/tty-colors.el, lisp/term/xterm.el, lisp/vc/vc-git.el: * lisp/vc/vc-hg.el, lisp/x-dnd.el, test/src/data-tests.el: Prefer ash to lsh when either will do. |
||
|---|---|---|
| .. | ||
| .dir-locals.el | ||
| canlock.el | ||
| ChangeLog.1 | ||
| ChangeLog.2 | ||
| ChangeLog.3 | ||
| deuglify.el | ||
| gmm-utils.el | ||
| gnus-agent.el | ||
| gnus-art.el | ||
| gnus-async.el | ||
| gnus-bcklg.el | ||
| gnus-bookmark.el | ||
| gnus-cache.el | ||
| gnus-cite.el | ||
| gnus-cloud.el | ||
| gnus-cus.el | ||
| gnus-delay.el | ||
| gnus-demon.el | ||
| gnus-diary.el | ||
| gnus-dired.el | ||
| gnus-draft.el | ||
| gnus-dup.el | ||
| gnus-eform.el | ||
| gnus-fun.el | ||
| gnus-gravatar.el | ||
| gnus-group.el | ||
| gnus-html.el | ||
| gnus-icalendar.el | ||
| gnus-int.el | ||
| gnus-kill.el | ||
| gnus-logic.el | ||
| gnus-mh.el | ||
| gnus-ml.el | ||
| gnus-mlspl.el | ||
| gnus-msg.el | ||
| gnus-notifications.el | ||
| gnus-picon.el | ||
| gnus-range.el | ||
| gnus-registry.el | ||
| gnus-rfc1843.el | ||
| gnus-salt.el | ||
| gnus-score.el | ||
| gnus-sieve.el | ||
| gnus-spec.el | ||
| gnus-srvr.el | ||
| gnus-start.el | ||
| gnus-sum.el | ||
| gnus-topic.el | ||
| gnus-undo.el | ||
| gnus-util.el | ||
| gnus-uu.el | ||
| gnus-vm.el | ||
| gnus-win.el | ||
| gnus.el | ||
| gssapi.el | ||
| legacy-gnus-agent.el | ||
| mail-source.el | ||
| message.el | ||
| mm-archive.el | ||
| mm-bodies.el | ||
| mm-decode.el | ||
| mm-encode.el | ||
| mm-extern.el | ||
| mm-partial.el | ||
| mm-url.el | ||
| mm-util.el | ||
| mm-uu.el | ||
| mm-view.el | ||
| mml-sec.el | ||
| mml-smime.el | ||
| mml.el | ||
| mml1991.el | ||
| mml2015.el | ||
| nnagent.el | ||
| nnbabyl.el | ||
| nndiary.el | ||
| nndir.el | ||
| nndoc.el | ||
| nndraft.el | ||
| nneething.el | ||
| nnfolder.el | ||
| nngateway.el | ||
| nnheader.el | ||
| nnimap.el | ||
| nnir.el | ||
| nnmail.el | ||
| nnmaildir.el | ||
| nnmairix.el | ||
| nnmbox.el | ||
| nnmh.el | ||
| nnml.el | ||
| nnnil.el | ||
| nnoo.el | ||
| nnregistry.el | ||
| nnrss.el | ||
| nnspool.el | ||
| nntp.el | ||
| nnvirtual.el | ||
| nnweb.el | ||
| score-mode.el | ||
| smiley.el | ||
| smime.el | ||
| spam-report.el | ||
| spam-stat.el | ||
| spam-wash.el | ||
| spam.el | ||