From: "Andreas Röhler" <andreas.roehler@easy-emacs.de>
To: 35491@debbugs.gnu.org
Subject: bug#35491: Subject: 27.0.50; word-at-point, hand over optional argument
Date: Mon, 29 Apr 2019 17:51:21 +0200 [thread overview]
Message-ID: <bcf906eb-0e59-098e-da9c-ab76dd685b98@easy-emacs.de> (raw)
[-- Attachment #1: Type: text/plain, Size: 3627 bytes --]
Hi,
please permit ‘word-at-point’ to hand over optional arg ‘no-properties’
‘thing-at-point’ comes with an optional argument ‘no-properties’.
Seems there is no way to set it from calling ‘word-at-point’.
With attached patch:
(setq a (word-at-point t))foo
a ==> "foo"
;; current constraint:
(setq b (word-at-point))foo
b ==> #("foo" 0 2 (fontified t) 2 3 (fontified t rear-nonsticky t))
;;;
In GNU Emacs 27.0.50 (build 1, i686-pc-linux-gnu, GTK+ Version 3.14.5)
of 2019-04-29
Repository revision: 74712470fcb95cd4ef6ef5c61eee73cb8e02a8bd
Repository branch: master
Windowing system distributor 'The X.Org Foundation', version 11.0.11604000
System Description: Debian GNU/Linux 8 (jessie)
Recent messages:
For information about GNU Emacs and the GNU system, type C-h C-a.
Type C-x 1 to delete the help window.
mouse-2, RET: find function's definition
Type C-x 1 to delete the help window, C-M-v to scroll help.
mouse-2, RET: find function's definition
Mark set
Configured using:
'configure --with-modules --with-mailutils'
Configured features:
XPM JPEG TIFF GIF PNG SOUND DBUS GSETTINGS GLIB NOTIFY INOTIFY ACL
GNUTLS LIBXML2 FREETYPE XFT ZLIB TOOLKIT_SCROLL_BARS GTK3 X11 XDBE XIM
MODULES THREADS PDUMPER GMP
Important settings:
value of $LANG: de_DE.utf8
locale-coding-system: utf-8-unix
Major mode: Emacs-Lisp
Minor modes in effect:
tooltip-mode: t
global-eldoc-mode: t
eldoc-mode: t
electric-indent-mode: t
mouse-wheel-mode: t
tool-bar-mode: t
menu-bar-mode: t
file-name-shadow-mode: t
global-font-lock-mode: t
font-lock-mode: t
blink-cursor-mode: t
auto-composition-mode: t
auto-encryption-mode: t
auto-compression-mode: t
line-number-mode: t
transient-mark-mode: t
Load-path shadows:
None found.
Features:
(shadow sort mail-extr emacsbug message rmc puny seq byte-opt gv
bytecomp byte-compile cconv dired dired-loaddefs format-spec rfc822 mml
mml-sec password-cache epa derived epg epg-config gnus-util rmail
rmail-loaddefs text-property-search time-date mm-decode mm-bodies
mm-encode mail-parse rfc2231 mailabbrev gmm-utils mailheader sendmail
rfc2047 rfc2045 ietf-drums mm-util mail-prsvr mail-utils vc-git
diff-mode easy-mmode find-func cl-extra thingatpt help-fns radix-tree
help-mode easymenu cl-loaddefs cl-lib elec-pair mule-util tooltip eldoc
electric uniquify ediff-hook vc-hooks lisp-float-type mwheel term/x-win
x-win term/common-win x-dnd tool-bar dnd fontset image regexp-opt fringe
tabulated-list replace newcomment text-mode elisp-mode lisp-mode
prog-mode register page menu-bar rfn-eshadow isearch timer select
scroll-bar mouse jit-lock font-lock syntax facemenu font-core
term/tty-colors frame cl-generic cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese eucjp-ms cp51932
hebrew greek romanian slovak czech european ethiopic indian cyrillic
chinese composite charscript charprop case-table epa-hook jka-cmpr-hook
help simple abbrev obarray minibuffer cl-preloaded nadvice loaddefs
button faces cus-face macroexp files text-properties overlay sha1 md5
base64 format env code-pages mule custom widget hashtable-print-readable
backquote threads dbusbind inotify dynamic-setting system-font-setting
font-render-setting move-toolbar gtk x-toolkit x multi-tty
make-network-process emacs)
Memory information:
((conses 8 144321 10677)
(symbols 24 28536 1)
(strings 16 63330 2694)
(string-bytes 1 987604)
(vectors 8 10126)
(vector-slots 4 128792 17668)
(floats 8 22 34)
(intervals 28 376 12)
(buffers 564 13)
(heap 1024 11153 876))
[-- Attachment #2: word-at-point.patch --]
[-- Type: text/x-patch, Size: 477 bytes --]
diff --git a/lisp/thingatpt.el b/lisp/thingatpt.el
index 26e0843..6976769 100644
--- a/lisp/thingatpt.el
+++ b/lisp/thingatpt.el
@@ -585,9 +585,9 @@ thing-at-point-uuid-regexp
;; Aliases
-(defun word-at-point ()
+(defun word-at-point (&optional no-properties)
"Return the word at point. See `thing-at-point'."
- (thing-at-point 'word))
+ (thing-at-point 'word no-properties))
(defun sentence-at-point ()
"Return the sentence at point. See `thing-at-point'."
next reply other threads:[~2019-04-29 15:51 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2019-04-29 15:51 Andreas Röhler [this message]
2019-05-07 22:20 ` bug#35491: Subject: 27.0.50; word-at-point, hand over optional argument Noam Postavsky
2019-05-08 6:20 ` Andreas Röhler
2019-05-16 11:25 ` Noam Postavsky
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=bcf906eb-0e59-098e-da9c-ab76dd685b98@easy-emacs.de \
--to=andreas.roehler@easy-emacs.de \
--cc=35491@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).